Sub Bouton1_QuandClic() With Columns('A') 'recherche en colonne A IfNot .Find('B') IsNothingThen .Find('B').Select 'recherche la valeur B End With End Sub
le code que je t'ai donné recherche la baleur B (la lettre B ) dans la colonne A.
si tu veux rechercher une variable, enlève les guillemets :
Sub Bouton1_QuandClic()
Dim B As String
B = Sheets('feuil2').Range('a2')
With Columns('A') 'recherche en colonne A
If Not .Find( B ) Is Nothing Then .Find( B ).Select 'recherche la valeur B
End With
End Sub
Sub Bouton1_QuandClic()
Dim B As String
B = Sheets('feuil2').Range('a2')
With Columns('A') 'recherche en colonne A
If Not .Find( B ) Is Nothing Then .Find( B ).Select 'recherche la valeur B
End With
End Sub