Prob excel

Signaler
Messages postés
17
Date d'inscription
jeudi 27 mai 2004
Statut
Membre
Dernière intervention
27 juin 2004
-
Messages postés
468
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
30 août 2007
-
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

1 réponse

Messages postés
468
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
30 août 2007
2
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