teodormircea
XLDnaute Occasionnel
Bounjour de nouveaux
Je voudrais customiser un petit peut ce code
Sub Search()
Dim Rng As Range
ActiveSheet.Columns(6).Select any
For Each Rng In Selection.SpecialCells(xlCellTypeVisible)
If Rng.Value = "" Then Exit For
Debug.Print Rng.Value, Rng.Row
Next Rng
End Sub
au lieu de mettre manuellement la colonne et la valeur a filtrer je voudrais la metter dans une textbox, si ila quelcun pour m;iluminer ca serais genial😎
et aussi mettre une foncion d'auto filtre
Je voudrais customiser un petit peut ce code
Sub Search()
Dim Rng As Range
ActiveSheet.Columns(6).Select any
For Each Rng In Selection.SpecialCells(xlCellTypeVisible)
If Rng.Value = "" Then Exit For
Debug.Print Rng.Value, Rng.Row
Next Rng
End Sub
au lieu de mettre manuellement la colonne et la valeur a filtrer je voudrais la metter dans une textbox, si ila quelcun pour m;iluminer ca serais genial😎
et aussi mettre une foncion d'auto filtre
Dernière édition: