Find + valeurs d'autres cellules sur la meme ligne

[syl77]

Bonjour
Dans un worksheet, je recherche une valeur donné dans la colonne A. Lorsque je trouve cette valeur dans une cellule disons a la position A15 par exemple, je veux recuperer la valeur des cellules sur la meme ligne des colonnes B, C, et D soit les valeurs des cellules B15, C15 et D15. Comment faire pour extraire ces valeurs?

Dim c As Variant
With Worksheets('Bibliographic').Range('A:A')
Set c = .Find(Biblio2)
If Not c Is Nothing Then
Range('B:' & c) .value 'des idees???????????????????
End If
End With

 

[Hervé]

Re:Find + valeurs d'autres cellules sur la meme li

Bonjour syl77

essaye comme ceci :

Dim c As Range
With Worksheets('Bibliographic').Range('A:A')
Set c = .Find(Biblio2)
If Not c Is Nothing Then
Range('B' & c.Row, 'D' & c.Row).Copy 'copy par exemple
End If
End With

Le set attend un objet (cellule) donc il faut que ton c soit déclaré range.

Ainsi tu peux utiliser toutes les méthodes attachés à l'objet range, en particulier c.row qui te donne le numéro de ligne.

salut

 

[syl77]

Re:Find + valeurs d'autres cellules sur la meme li

Merci pour votre reponse rapide, cela fait ce que je veux.
Sylvain