boucle while dans vba

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:

---

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:

---

1 2 3

If Cells(i, j).Value = Valeur_Cherchee Then

---

Il passe directement à

Code:

---

1 2

End If

---

et ne s'arrète plus à aucun jeudi jusqu'à la fin.

Auriez vous une idée ?

Merci,

Philippe

Bonjour,
D'après ce que tu décris, il semblerait que tu cherches une chaîne de caractères (jeudi). Une problème fréquent dans la recherche de chaîne de caractère est la présence de caractère espacé derrière ou devant la chaîne cherchée. Si l'espace est à l'arrière il n'est pas visible à l'oeil nu.
Pour pallier ce problème, il y a lieu d'ajouter la fonction TRIM qui enlève les espaces avant et après la chaîne de caractères.

Code:

---

1 2 3 4 5 6 7 8

Dim i As Long, j As Integer, Valeur_Cherchee As String i = 2: j = 1: Valeur_Cherchee = "jeudi" While (i < 36) If Trim(Cells(i, j).Value) = Valeur_Cherchee Then MsgBox i End If i = i + 1 Wend

---

Et pour éviter toute ambiguïté quant à la casse, tu pourrais ajouter la fonction LCase

Code:

---

If LCase(Trim(Cells(i, j).Value)) = Valeur_Cherchee Then

---

Merci beaucoup,
c'était bien ça et je n'y aurait pas pensé,

A +

Philippe

là c'est inutile(puisque jeudi est déjà tout en minuscules), mais j'ai tendance à faire ceinture et bretelles :

Code:

---

If LCase(Trim(Cells(i, j).Value)) = LCase(Trim(Valeur_Cherchee)) Then

---

Bonjour,

Citation:

---

à c'est inutile(puisque jeudi est déjà tout en minuscules), mais j'ai tendance à faire ceinture et bretelles :

---

C'est ce que je fais systématiquement aussi mais suite au fait que la valeur de la variable Valeur_Cherchee était correctement écrite, j'ai enlevé les deux fonctions Trim et LCase de l'instruction.

Bonsoir,

Pas besoin de boucle

Code:

---

1 2 3 4 5

valcherchée = "jeudi" Set champ = Range(Cells(1, 1), Cells(36, 1)) Position = Application.Match("*" & valcherchée & "*", champ, 0) MsgBox Position

---

Jacques Bosgontier

Bonjour Jacques,

Citation:

---

Pas besoin de boucle

---

C'est vrai à condition qu'il n'y ait qu'un seul jeudi dans la plage.