Macro excel
Résolu
Bonsoir,
J'utilise les macros suivantes afin d'effectuer automatiquement un filtre avancé pour retrouver plus facilement une information.
Mais ça ne marche pas ? Elles se contentent de m'afficher la feuille ... Je pense avoir oublié quelque chose, mais je ne sais pas quoi.
Si vous avez une idée... Merci d'avance.
Laure
Private Sub CommandButton1_Click()
'pour noter les valeurs à rechercher
Sheets(1).Range("M4").Value = UserForm6.ComboBox1.Value
Sheets(1).Range("N4").Value = UserForm6.TextBox2.Value
Sheets(1).Range("O4").Value = UserForm6.TextBox1.Value
UserForm6.Hide
If Sheets(1).Range("D18").Value = "A" Then
rechercher Feuil2.Range("F2"), Feuil1.Range("M4:O4")
Feuil3.Activate
ElseIf Sheets(1).Range("D18").Value = "B" Then
rechercher Feuil2.Range("H2"), Feuil1.Range("M4:O4")
Feuil5.Activate
End If
End Sub
Sub rechercher(ligne As String, critere As Range)
If Sheets(1).Range("D18").Value = "A" Then
Feuil3.Range("A1:U" + CStr(ligne)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=critere, Unique:=False
ElseIf Sheets(1).Range("D18").Value = "B" Then
Feuil5.Range("A1:R" + CStr(ligne)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=critere, Unique:=False
End If
End Sub
J'utilise les macros suivantes afin d'effectuer automatiquement un filtre avancé pour retrouver plus facilement une information.
Mais ça ne marche pas ? Elles se contentent de m'afficher la feuille ... Je pense avoir oublié quelque chose, mais je ne sais pas quoi.
Si vous avez une idée... Merci d'avance.
Laure
Private Sub CommandButton1_Click()
'pour noter les valeurs à rechercher
Sheets(1).Range("M4").Value = UserForm6.ComboBox1.Value
Sheets(1).Range("N4").Value = UserForm6.TextBox2.Value
Sheets(1).Range("O4").Value = UserForm6.TextBox1.Value
UserForm6.Hide
If Sheets(1).Range("D18").Value = "A" Then
rechercher Feuil2.Range("F2"), Feuil1.Range("M4:O4")
Feuil3.Activate
ElseIf Sheets(1).Range("D18").Value = "B" Then
rechercher Feuil2.Range("H2"), Feuil1.Range("M4:O4")
Feuil5.Activate
End If
End Sub
Sub rechercher(ligne As String, critere As Range)
If Sheets(1).Range("D18").Value = "A" Then
Feuil3.Range("A1:U" + CStr(ligne)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=critere, Unique:=False
ElseIf Sheets(1).Range("D18").Value = "B" Then
Feuil5.Range("A1:R" + CStr(ligne)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=critere, Unique:=False
End If
End Sub
3 réponses
-
Bonsoir
Peux-tu mettre un exemple sur http://cijoint.fr/ ? -
Bonjour,
Merci de m'aider.
Voici un exemple de mon fichier.
http://www.cijoint.fr/cjlink.php?file=cj201009/cijOkQskth.xls
L'utilisateur doit sélectionner « Effectuer le Suivi d'un Audit » en D20, afin d'afficher un UserForm, ensuite il doit alors préciser quelques informations afin que le filtre élaboré soit déclenché sur la feuille « Audit AA ».
Laure -
Bonjour,
Il y a juste quelques petites erreurs d'adressage :Private Sub CommandButton1_Click() 'pour noter les valeurs à rechercher Sheets(1).Range("M2").Value = UserForm5.ComboBox1.Value 'service Sheets(1).Range("N2").Value = UserForm5.ComboBox2.Value ' type Sheets(1).Range("O2").Value = UserForm5.TextBox1.Value ' n° Sheets(1).Range("P2").Value = UserForm5.TextBox2.Value ' nom et prénom client UserForm5.Hide If Sheets(1).Range("D18").Value = "AA" Then rechercher Feuil2.Range("I2").Value, Feuil1.Range("M1:P2") Feuil7.Activate End If End Sub Sub rechercher(ligne As String, critere As Range) If Sheets(1).Range("D18").Value = "AA" Then Feuil7.Range("A3:AF" + CStr(ligne)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=critere, Unique:=False End If End Sub
Cordialement
Patrice
