Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

[résolu]filtre automatique vba


Messages recommandés

Salut à tous! :-(

Voilà je suis en stage pr mes études et il m'a été demandé de faire un programme VBA pr piloter excel. En fait, il faut que je traite les valeurs d'un fichier excel de la forme :

- colonne A : date de la mesure au format jj/mm/aaaa

- colonne B : heure de la mesure au format hh/mm/ss

- colonne C : mesure au format standard

en plus faut ke j'ai fini d'ici deux semaines... je suis mal!

 

il faut modéliser les valeurs pr des intervalles choisis par l'utilisateur, dc j'ai choisi de faire une boite de dialogue pr entrer les choix de l'utilisateur en mémoire, et après faire un filtre automatique... mais rien ne marche et je comprends rien!!!!

ca me tri rien... et en plus y a des pb de compatibilité jj/mm/aaaa et mm/jj/aaaa avec VBA...

 

voilà le programme ke j'ai fait,

 

Dim c1 As Date 
Dim c2 As Date 

Private Sub CommandButton1_Click() 


TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") 
TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy") 


   If UserForm1.TextBox1.Text = "" Then 
       MsgBox "Vous n'avez rien saisi," & Chr(10) & "recommencez!" 
       Exit Sub 
   
       Else 
           TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") 
           Range("E1").Value = TextBox1.Value 
           ActiveCell.Offset(1, 0).Select 
   End If 

   If UserForm1.TextBox2.Text = "" Then 
       MsgBox "Vous n'avez rien saisi," & Chr(10) & "recommencez!" 
       Exit Sub 
   
       Else 
           TextBox2.Value = Format(TextBox2.Value, "dd/mm/yyyy") 
           Range("E2").Value = TextBox2.Value 
           ActiveCell.Offset(1, 0).Select 
   End If 
   
Range("E1") = Format(Range("E1").Value, "dd/mm/yyyy") 
Range("E2") = Format(Range("E2").Value, "dd/mm/yyyy") 

c1 = Format(Range("E1").Value, "dd/mm/yyyy") 
c2 = Format(Range("E2").Value, "dd/mm/yyyy") 

Range("A:C").AutoFilter field:=1, Criteria1:=">=" & c1, Operator:=xlAnd, Criteria2:="<=" & c2 
Sheets("Feuil1").AutoFilter.Range.Copy Sheets("Feuil2").Range("A1:C1") 

Sheets("Feuil2").Range("1:1").Delete Shift:=xlShiftToLeft 
Sheets("Feuil2").Columns("A").Delete Shift:=xlShiftToLeft 


'Graphique 
'Sheets("feuil2").Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Select 
'Sheets("feuil2").Range("B1").EntireColumn.SpecialCells(xlCellTypeConstants).Select 
 
'Dim objChart As Chart, objRange As Range 

  ' Set objRange = Worksheets("Feuil2").Range(Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants), Worksheets("Feuil2").Range("B1").EntireColumn.SpecialCells(xlCellTypeConstants)) 
  ' Set objChart = ThisWorkbook.Charts.Add 
   'objChart.ChartType = xlLine 
  ' objChart.SetSourceData objRange, xlColumns 
   
Unload Me 

End Sub 

 

 

Merci d'avance pour votre aide :P

j'espère que vous trouverez une solution à mon pb.... ++

Lien à poster
Partager sur d’autres sites

Pas de quoi. C'est un forum d'entraide informatique. Là où je peux aider je le fais sinon je me tais quoique j'ai parfois raté l'occasion de me taire. Regarde ma signature. @+ :P:-(:-P

Lien à poster
Partager sur d’autres sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×
×
  • Créer...