Recherche et compléter

[Laurent]

Bonjour,

J'ai un classeur 'Book1.xls' pour lequel j'ai mis un Userform avec :

'Textbox1' : champs dans lequel je mets la valeur recherchée (qui se trouve tout le temps dans la colonne A)
'Textbox2' : champs dans lequel je mets le commentaire qu'il doit insérer dans la colonne B sur la même ligne de la valeur trouvée.

voilà mon code :
Dim Atrouve As Range
Set Atrouve = Worksheets("sheet1").Cells.Find(TextBox1.Value, LookIn:=xlValues, searchorder:=xlByRows)
If Not Atrouve Is Nothing Then Sheets("sheet1").Range(Atrouve.Address).Value = TextBox2.Value Else: MsgBox TextBox1.Value & " non trouvé dans la feuille":

Mais je n'arrive pas à trouver le code que je dois insérer au niveau du
range(Atrouve.Address)
Pour qu'il me mette mon commentaire sur la même ligne de la valeur trouvé...

Quelqu'un peut m'aider?
Merci

Laurent

 

[Minick]

Salut,

Comme ceci

If Not Atrouve Is Nothing Then Sheets("sheet1").Range(Atrouve.Address).Offset(0,1).Value = TextBox2.....

@+ Minick