gros probleme urgent

Question

salut tout le monde
dans une base de donnée excel, je dosi analyser une colonne ou il y a des date et afficher un message au cas ou la date de la colonne soit inférieur a 6 mois en avance
je ne sais pas du tout comment y faire car je ne comprends pas grand chose en vb, je débute donc svp aidez moi merci

cs_Jack · Answer

Salut psyke38 
Bien que je n'aime pas les message du style "... urgent ..." : tout le monde est pressé.
Bref
Si tu travailles avec des macros, regarde l'instruction DateDiff que tu peux utiliser comme ça :
NbMois = DateDiff("m", Now, MaDate)
"m" pour mois, "d" pour day, ...
Si Now ne fonctionne pas, essaye Maintenant()

Vala
Jack

psyke38 · Answer

ouai je suis désolé mais je suis en stage de bts la, et je fini mercredi prochain, mais je suis bloqué depuis longtemps

pourrais tu me mettre tt le script stp merci

HFanny · Answer

Bien que Jack t'ai répondu, voilà le script :

Sur la colonne A par exemple :


Dim cellule As Range
Set cellule = Worksheets("Feuil1").Range("A1")

While Not IsEmpty(cellule)
If DateDiff("m", Now, cellule.Value) < 6 Then MsgBox "Attention " & cellule.Address
Set cellule = cellule.Offset(1, 0)
Wend


Fanny

psyke38 · Answer

merci beaucoup, je vais tester ca demain, je vosu dirais

psyke38 · Answer

j'ai une erreur au wend, ca me dit qu'il ne peut pas y avoir de wend sans while
je ne comprends pas cette erreur?

HFanny · Answer

Cette erreur veut tout simplement dire que tu as mis un wend ... et que tu as oublié le while.

La structure while .. wend te permet de faire une boucle 

i = 0
While i < 11
MsgBox i
i = i + 1
Wend


Vérifies donc que tu n'as pas oublié le while.
Si tu ne trouves pas, mets nous ton code, on pourra y jeter un coup d'oeil.

Fanny

psyke38 · Answer

ben j'ai repris le meme que tu 'avais filé

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

mais il y a des cases vide des fois aussi dans ma colonne

HFanny · Answer

Alors il faut que tu trouves quelque chose sur quoi boucler, pour qu'excel sache combien de cellules il a à parcourir.

Fanny

psyke38 · Answer

euh, je comprends pas ce q'uil faut que je fasse
je suis désolé vraiment mais bon, j'en ai jamais fais du vb

mais hormis le fait que j'ai des cases vide, pk j'ai une erreur au wend, il faut que je fasse quoi?

psyke38 · Answer

Svp répondez moi c important, j'ai plus que 3 jours pour mon truc, il faudrait que je le réussisse

HFanny · Answer

Si tu as une erreur au wend, c'est que tu n'as pas de while ... 
Mais si tu as repris le code que j'ai écrit, il n'y a aucune raison que ça ne fonctionne pas.
Je fais ce code tout le temps et je n'ai jamais ce genre d'erreur.

Reposte ce message pour que d'autres personnes puissent le voir. Ils trouveront peut être la solution.

Fanny

Gros probleme urgent

11 réponses