Excel Vba : Filtrer des cellules
Usgpa
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je m'adresse à vous, car je bloque sur un cas assez facile je pense mais dont je ne réussis pas à trouver la solution. Voilà, garce à un premier Userform je filtre un tableau selon la valeur de la colonne A. Ensuite ma Combobox2 permet de sélectionner une ligne en particulier dans la colonne B. Le problème c'est que ma combobox dont la rowsource est ("B:B") permet de sélectionner toutes les cellules de la ligne B même celle qui sont exclues par le filtre. Je pense que je dois ainsi
Private Sub Combobox2_Click()
cherche1 = ComboBox2.Value
b = Feuil1.Cells.Find(what:=cherche1, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlNext).Row
TextBox1 = Feuil1.Range("F" & b).Value
TextBox2 = Feuil1.Range("G" & b).Value
TextBox3 = Feuil1.Range("C" & b).Value
TextBox4 = Feuil1.Range("H" & b).Value
TextBox6 = Feuil1.Range("J" & b).Value
TextBox7 = Feuil1.Range("H" & b).Value
TextBox9 = Feuil1.Range("D" & b).Value
End Sub
Je m'adresse à vous, car je bloque sur un cas assez facile je pense mais dont je ne réussis pas à trouver la solution. Voilà, garce à un premier Userform je filtre un tableau selon la valeur de la colonne A. Ensuite ma Combobox2 permet de sélectionner une ligne en particulier dans la colonne B. Le problème c'est que ma combobox dont la rowsource est ("B:B") permet de sélectionner toutes les cellules de la ligne B même celle qui sont exclues par le filtre. Je pense que je dois ainsi
Private Sub Combobox2_Click()
cherche1 = ComboBox2.Value
b = Feuil1.Cells.Find(what:=cherche1, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlNext).Row
TextBox1 = Feuil1.Range("F" & b).Value
TextBox2 = Feuil1.Range("G" & b).Value
TextBox3 = Feuil1.Range("C" & b).Value
TextBox4 = Feuil1.Range("H" & b).Value
TextBox6 = Feuil1.Range("J" & b).Value
TextBox7 = Feuil1.Range("H" & b).Value
TextBox9 = Feuil1.Range("D" & b).Value
End Sub
A voir également:
- Excel Vba : Filtrer des cellules
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide