L
Laurent
Guest
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
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