Aide fonction Find

Bonjour,

j'ai toujours du mal avec cette fonction que je trouve assez sensible.

je souhaite rechercher en colonne C un mot bien précis, puis récupérer le montant se trouvant a droite de 5 cellules.

Seul hic, le mot que je recherche en colonne C peut ne pas exister, ou exister 1 fois, ou plusieurs fois,donc à chaque fois que ce mot est trouvé, il faut que je puisse récupérer le montant de trouvant à droite de 5 cellules.

Pouvez vous me donnez des piste pour y arriver ?

merci

Bonjour,

Une adaptation du code indiqué par l'aide devrait te convenir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Explicit Sub Test() Dim c As Range Dim Trouve As Boolean Dim firstAddress As String Dim Resultat As Double   With Worksheets("Feuil1").Range("C:C") Set c = .Find("MotCherché", LookIn:=xlValues) If Not c Is Nothing Then Trouve = True firstAddress = c.Address Do Resultat = c.Offset(0, 5) 'montant se trouvant a droite de 5 cellules MsgBox "Résultat : " & Resultat Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If If Trouve Then MsgBox "Fin de traitement" Else MsgBox "Aucun mot trouvé" End If End With End Sub

---

Cordialement.