[VBA-E]Cumul for et if

Bonjours,

J'ai un petit souci, je voudrais en premier rechercher si un nom existe dans une liste; s'il existe ,une msgbox me met "OK", sinon "NO".

J'ai fais cette petite macro:

Code:

---

1 2 3 4 5 6 7 8

For i = 6 To 10   If Trim(Worksheets("pdjf").Cells(i, 16)) = Trim(Worksheets("pdjf").Cells(1, 27)) Then   MsgBox "ok" Else: MsgBox "no" End If Next

---

mon problème est que pour chaque ligne, j'ai une boite qui apparait. Donc si "x" existe à la ligne 6, il me met "ok" puis 4 fois "no".

Comment faire pour que mon test se fasse entièrement (regarde toutes les lignes de ma liste), puis me donne une réponse.

merci

claire

utilise une variable pour mémoriser le résultat de ton test..., et tu peu aussi sortir "prématurément" de ta boucle..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

dim bOk as boolean For i = 6 To 10   If Trim(Worksheets("pdjf").Cells(i, 16)) = Trim(Worksheets("pdjf").Cells(1, 27)) Then bOk = True exit For end if Next   if bOK then MsgBox "ok" Else: MsgBox "no" End If

---

merci