Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour guillaume,
Private Sub OK_Click() DerL = Sheets("Feuil1").Range("B65536").End(xlUp).Row 'dernière ligne de la colonne B Sheets("?????").Range("B6:U" & DerL).AutoFilter Field:=1, Criteria1:=Sheets("?????").TextBox1.Value End Sub
ps/ si c'est un control button, n'oublie pas de mettre sa propriété TakeFocusOnClick à false
isabelle
bonjour,
j'aimerai pouvoir afficher des lignes sur l'action d'un bouton qui ont été filtrées en vba.
*******code du masquage***********
Private Sub OK_Click() Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value End Sub
**********
la plage de donnée est (B6:U)
merci
bonjour guillaume,
Private Sub OK_Click()
DerL = Sheets("Feuil1").Range("B65536").End(xlUp).Row 'dernière ligne de la colonne B
Sheets("?????").Range("B6:U" & DerL).AutoFilter Field:=1, Criteria1:=Sheets("?????").TextBox1.Value
End Sub
ps/ si c'est un control button, n'oublie pas de mettre sa propriété TakeFocusOnClick à false
isabelle
bonjour,
j'aimerai pouvoir afficher des lignes sur l'action d'un bouton qui ont été
filtrées en vba.
*******code du masquage***********
Private Sub OK_Click()
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value
End Sub
Private Sub OK_Click() DerL = Sheets("Feuil1").Range("B65536").End(xlUp).Row 'dernière ligne de la colonne B Sheets("?????").Range("B6:U" & DerL).AutoFilter Field:=1, Criteria1:=Sheets("?????").TextBox1.Value End Sub
ps/ si c'est un control button, n'oublie pas de mettre sa propriété TakeFocusOnClick à false
isabelle
bonjour,
j'aimerai pouvoir afficher des lignes sur l'action d'un bouton qui ont été filtrées en vba.
*******code du masquage***********
Private Sub OK_Click() Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value End Sub
