recchercher une valeur avec cells.find dans une colonne précise

[jeff]

slt à tous,
voila j'ai créée un bouton recherche dans une feuille excel et j'aimerais qu'il ne recherche que dans une seule colonne mais en gardant la fonction cells.find

voici ce que j'ai fait:

var = InputBox(prompt:="taper le code recherchée.")
Sheets("fournisseurs").Select
Cells.Find(What:=(var), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

ca marche mais je voudrais qu'il ne recherque que dans la colonne A car tout codes se trouve sur la feuille fournisseurs dans la colonne A.

merci d'avance pour votre aide.
ciao

 

[omicron]

Bonjour Jeff,

Voici un morceau de code qui te permettra à partir d'un bouton de lancer la recherche souhaitée dans une colonne d'une feuille.

=====================================================
Private Sub CommandButton1_Click()
Feuille = "fournisseurs"
Colonne = "D"
Msg = "La colonne " & Colonne & " de la feuille : " & Feuille & Chr(10)
Set rng = Sheets(Feuille).Columns(Colonne)
Var = InputBox(prompt:="taper le code recherchée.")
Set c = rng.Find(What:=(Var), LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If c Is Nothing Then
MsgBox Msg & "ne contient pas le code : " & Var
Else
MsgBox Msg & "contient le code : " & Var & Chr(10) & " dans la cellule : " & c.Address
End If
End Sub
=====================================================

il suffit juste de valoriser correctement les paramètres Feuille et Colonne.

Cordialement.

omicron

 

[jeff]

un grand merci a toi omicron!!
je teste ca tout de suite
ciao et encore merciii pour tout ;-)