Discussion :

[clairefranclieu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clairefranclieu]

merci