Problème de date

Le 09/05/2017 à 09:52

Bonjour, j'ai fait un code mais il ne fonctionne pas. En fait dans un premier temps je récupère mon jour (par exemple le 02/05/2017) et ensuite à partir de cette même ligne je souhaite récupérer le jour d'après (03/05/2017). Cela est-il possible ? Merci

i2 = 0
While (ActiveCell.Offset(i2, 0) <> date)
    i2 = i2 + 1
Wend
ActiveCell.Offset(i2, 0).Select

date1 = ActiveCell.Row

While (ActiveCell.Offset(i2, 0) <> date)
    i2 = i2 + 1
Wend
ActiveCell.Offset(i2, 0).Select

date2 = ActiveCell.Row

Le 09/05/2017 à 10:27

Personne ne sait ?

Le 09/05/2017 à 10:42

Bonjour,

Bases VBA : Tout code exécutable se trouve dans des procédures !

Les principales procédures utilisées sont des procédures Sub et Function : une telle procédure commence par Sub (ou Function) et se termine par End Sub (ou End Function).

Quand on cite pour examen de la procédure, il est souhaitable de citer en entier, et au cas où des variables utilisées dans la procédure ne sont pas déclarées au niveau procédure (variables niveau module), l'indiquer et préciser comment elles sont initialisées.

D'autre part, la présence de Select n'est pas un gage de bonne qualité du code, travailler à partir de la cellule active doit pouvoir être justifié, si date1 et date2 recueillent des numéros de ligne elles ne restitueront certainement pas des dates !

Cordialement.

NB- J'apprécie toujours beaucoup pour ma part que le code soit indenté, et que l'on évite de sauter des lignes à tout bout de champ dans une procédure...

Le 09/05/2017 à 10:55

MFerrand a écrit :
Bonjour,
Bases VBA : Tout code exécutable se trouve dans des procédures !
Les principales procédures utilisées sont des procédures Sub et Function : une telle procédure commence par Sub (ou Function) et se termine par End Sub (ou End Function).
Quand on cite pour examen de la procédure, il est souhaitable de citer en entier, et au cas où des variables utilisées dans la procédure ne sont pas déclarées au niveau procédure (variables niveau module), l'indiquer et préciser comment elles sont initialisées.
D'autre part, la présence de Select n'est pas un gage de bonne qualité du code, travailler à partir de la cellule active doit pouvoir être justifié, si date1 et date2 recueillent des numéros de ligne elles ne restitueront certainement pas des dates !
Cordialement.
NB- J'apprécie toujours beaucoup pour ma part que le code soit indenté, et que l'on évite de sauter des lignes à tout bout de champ dans une procédure...

Bonjour et merci pour la réponse. Effectivement mon code commence par un sub et fini par un end sub mais là je n'ai mis que le corps du code. En fait ma première buocle while me retourne ma date mais c'est lors de la seconde itération que cela ne fonctionne plus. Merci

Le 09/05/2017 à 11:23

Je ne vois comment .Row pourrait retourner .Value !

Tu choisis de te débrouiller seul, très bien !

Le 09/05/2017 à 11:25

MFerrand a écrit :
Je ne vois comment .Row pourrait retourner .Value !
Tu choisis de te débrouiller seul, très bien !

C'est bon j'ai réussi.

Merci