Bonjour,

Une boucle toute simple veut me permettre de parcourir verticalement une colonne et me prévenir par un MsgBox, si elle rencontre un jeudi (la colonne est renseignée avec les jours de la semaine)

Voici le code de cette boucle :

i représente le numero de ligne
j ............................de colonne
Valeur_Cherchee est une variable contenant "jeudi"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
 
While (i < 36)
            If Cells(i, j).Value = Valeur_Cherchee Then
                MsgBox i
            End If
            i = i + 1
    Wend
Au premier jeudi rencontré, le MsgBox s'affiche correctement et il m'affiche le numero de sa ligne (8),
je fais OK, (je le fais en débogage pas à pas détaillé), en poursuivant, i s'incremente jusqu''au prochain jeudi, mais quand il le trouve, il nie l'égalite

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 
If Cells(i, j).Value = Valeur_Cherchee Then
Il passe directement à

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
End If
et ne s'arrète plus à aucun jeudi jusqu'à la fin.

Auriez vous une idée ?

Merci,

Philippe