Problème Macro Dates

AJIGO · 30 Avril 2019

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 · 30 Avril 2019

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 · 30 Avril 2019

Format 00.0000.0000.00

Paf · 30 Avril 2019

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é · 30 Avril 2019

Bonjour AJIGO, Salut Paf

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

Paf à dit:
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à

AJIGO à dit:
Format(Cells(i, "F").Value, "yyyy")

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

Ensuite

AJIGO à dit:
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 · 30 Avril 2019

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 · 30 Avril 2019

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+

Problème Macro Dates

AJIGO

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

AJIGO

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

AJIGO

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

Discussions similaires