Probleme boucle while

[niwiz]

Bonjour,

J'ai un p'tit probleme avec une boucle while qui semble ne pas vouloir s'arreter

dateDebutP = Format(DateSerial(Year(Date), Month(Date) - 5, 1), "dd/mm/yyyy")

 a = 7
        While Format(Cells(3, a).Value, "dd/mm/yyyy") <> dateDebutP Or a <= 18
            Cells(3, a).Interior.ColorIndex = 51
            a = a + 1
        Wend

Ici a va jusqu'a 16385 alors qu'il est censé s'arreter au pire a 18.
De plus normalement on retrouve "dateDebutP" dans une des cellules, mais il ne reconnait pas

quelqu'un aurait une piste (comptatibilité , synthaxe,..)

merci d'avance

 

[Fred0o]

Re : Probleme boucle while

Bonjour niwiz,

Pour ce qui est de la date non reconnue, sans fichier exemple, difficxile de t'aider. Par contre pour la boucle, essaie de remplacer le "Or" par un "And" et normalement la boucle s'arrêtera à la ligne 18.

A+

 

[niwiz]

Re : Probleme boucle while

bonjour fredo voici un fichier xlsm pour aider.

Ma macro est censé mettre en couleur les cellule ayant une date inférieur a la dateDebutP

 

[niwiz]

Re : Probleme boucle while

oops le mode rapide pas une bonne idee ^^"

 

[niwiz]

Re : Probleme boucle while

"trompage" de document désolé

 

[niwiz]

Re : Probleme boucle while

j'ai changé un peut le code mais j'ai toujours un problème, cette fois il ne met pas en forme toutes les dates (aout a dec). Pour le code "01/08/2011" et supérieur a "01/05/2012"


merci d'avance

 

[Si...]

Re : Probleme boucle while

salut

et ainSi...(comparaison de nombres, pas de textes)

Sub Bouton1_Cliquer()
  dateDebutP = CDate(Format(DateSerial(Year(Date), Month(Date) - 5, 1), "dd/mm/yyyy"))
  For b = 7 To 18
    If CDate(Format(Cells(4, b).Value, "dd/mm/yyyy")) < dateDebutP Then
      Cells(4, b).Interior.ColorIndex = 34
    End If
  Next
End Sub

 

[niwiz]

Re : Probleme boucle while

Sa marche merci beaucoup Si...

a + et merci encore