Remplir une ligne grâce à son adresse

[korady91]

Bonjour,

j'ai créé en VB une fonction qui récupère la ligne dans mon find et je souhaiterai, grâce au numéro de la ligne, la remplir.

Par exemple j'ai un entier ayant comme valeur 10 et je souhaiterai avec un offset, remplir les 2 premières colonnes.

Merci beaucoup de votre aide.

 

[Pierrot93]

Re : Remplir une ligne grâce à son adresse

Bonsoir Korady

pas sur d'avoir tout compris, regarde peut être le code ci dessous si il peut t'aider :

Dim x As Range
Set x = Cells.Find("valeurcherchée", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then 
MsgBox "trouvé en ligne " & x.Row
x.Offset(0, 1).Value = "xxx" 'renseigne une valeur une colonne plus loin
End If

bonne soirée
@+

 

[tototiti2008]

Re : Remplir une ligne grâce à son adresse

Bonjour korady91,

je veux bien t'aider mais c'est un peu court.
tu disposes donc du numéro de ligne.
Pour cette ligne tu veux remplir les colonnes A et B ?

Peut-être :

Activesheet.cells(Ligne,1).value = "Coucou"
Activesheet.cells(Ligne,2).value = "Pas sûr que ce soit ça"

 

[korady91]

Re : Remplir une ligne grâce à son adresse

Bonjour korady91,

je veux bien t'aider mais c'est un peu court.
tu disposes donc du numéro de ligne.
Pour cette ligne tu veux remplir les colonnes A et B ?

Peut-être :

Activesheet.cells(Ligne,1).value = "Coucou"
Activesheet.cells(Ligne,2).value = "Pas sûr que ce soit ça"

Merci Tototiti d'avoir su me répondre malgré mon explication plus que vaseuse.
C'était bien ça que je voulais.

Merci encore