Problème Macro Dates

[AJIGO]

Bonjour,

Je ne comprends pas pourquoi mon boucle ne se lance pas.

For i = 156 To Cells(Rows.Count, "B").End(xlUp).Row
If ((Cells(i, "K").Value > 0) And (Cells(i, "K").Value < 1000)) And _
Format(Cells(i, "F").Value, "yyyy") < (Year(Now) - 1) Then
Cells(i, "I").Value = "PROBLEME"
ElseIf (Cells(i, "K").Value > 0 And Cells(i, "K").Value < 200) And _
Format(Cells(i, "F").Value, "yyyy") = (Year(Now) - 1) Then
Cells(i, "I").Value = "ATTENTE " & Year(Now) - 1
End If
Next i

 

[Paf]

Bonjour,

Une des explications possibles:
dans la déclaration de la boucle, si la première borne est supérieure à la seconde (sans utilisation d'un step négatif) VBA ne provoque pas d'erreur mais n'exécute pas la boucle.
Quelle valeur contient Cells(Rows.Count, "B").End(xlUp).Row ?

A+

 

[AJIGO]

Format 00.0000.0000.00

 

[Paf]

c'est une plaisanterie ?

Cells(Rows.Count, "B").End(xlUp).Row ? définit le N° de la dernière ligne de la colonne B on ne peut donc pas avoir 0 surtout sous cette forme là!

 

[Efgé]

Bonjour AJIGO, Salut Paf 🙂

AJIGO, je pense que Paf demande quelle est la ligne trouvée par

Cells(Rows.Count, "B").End(xlUp).Row ?

Pour moi, il y a plusieurs problèmes, même si celui soulevé par Paf peut en faire partie.

Déjà

Format(Cells(i, "F").Value, "yyyy")

Format renvoie un texte qui ne peux être comparé avec un nombre (un texte = 0).

Ensuite

If ((Cells(i, "K").Value > 0) And (Cells(i, "K").Value < 1000)) And _
Format(Cells(i, "F").Value, "yyyy") < (Year(Now) - 1) Then
Cells(i, "I").Value = "PROBLEME"
ElseIf (Cells(i, "K").Value > 0 And Cells(i, "K").Value < 200) And _
Format(Cells(i, "F").Value, "yyyy") = (Year(Now) - 1) Then

Si ton chiffre en colonne K est de 100, ton test sera vrai dès le If ((Cells(i, "K").Value > 0) And (Cells(i, "K").Value < 1000)) et le code ne passe pas par ElseIf (Cells(i, "K").Value > 0 And Cells(i, "K").Value < 200)...

Cordialement

 

[AJIGO]

La dernière ligne est de 489. Dans la colonne "F" il y a des dates au format jj/mm/aaaa.
Il me faut un boucle qui permet :
Si Cells(i,"K") compris entre 0 et 1000, et Année de F< L'année dernière alors
Cells(i, "I")="Problème"

 

[Paf]

Bonjour Efgé

Si Cells(Rows.Count, "B").End(xlUp).Row contient 489, ce n'est donc pas le problème que j'évoquais qui est la cause de la non exécution de la boucle.
Voir les pistes de Efgé

A+