prob excel

Question

bonjours

Dim cellule As Range
Set cellule = Worksheets("Feuil1").Range("AA2")

While Not IsEmpty(cellule)
If DateDiff("m", Now, cellule.Value) < 6 Then MsgBox "Attention " & cellule.Address
Set cellule = cellule.Offset(1, 0)
Wend

on m'a donné ce script sur excel pour lire une colonne et faire apparaitre un message si une date qui est dans la colonne et plus petite que dans 6 mois

mais j'ai un prob avec le wend ca me dit qu'il manque le whole alors que non 
je ne comprends pas
aidez moi svp, je dois rentre ca pour mercredi
merci

juvamine · Answer

il te manke surtout un end if avant le wend pr fermer ton if
cela donne :

While Not IsEmpty(cellule)
If DateDiff("m", Now, cellule.Value) < 6 Then MsgBox "Attention " & cellule.Address
Set cellule = cellule.Offset(1, 0)
End if
Wend

vala
++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

Prob excel

1 réponse

Discussions similaires