J'ai un p'tit probleme avec une boucle while qui semble ne pas vouloir s'arreter
Code:
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,..)
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.
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"
et ainSi...(comparaison de nombres, pas de textes)
Code:
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