Discussion :

[philippe6]

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

[Philippe Tulliez]

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 :

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

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 :

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

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

[philippe6]

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

A +

Philippe

[el_slapper]

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

Code :

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

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

[Philippe Tulliez]

Bonjour,

à 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.

[boisgontierjacques]

Bonsoir,

Pas besoin de boucle

Code :

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

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

[Philippe Tulliez]

Bonjour Jacques,

Pas besoin de boucle

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