Incrémentation automatique sur condition de date

bonjour a tous ,

je vous suis depuis un petit moment en utilisateur anonyme pour chercher a comprendre et apprendre cet outil ,auquel nous somme de plus en plus confronté et nous soulagé un peu de la paperasse . et parfois çà prend plus de temps que de remplir un simple papier .bref
ma question

dans une feuille nommée "fourniture" dans laquelle j’ai deux tableau cote a cote de la même taille (e3;ac126)et (ad3;bc126) le premier est en format date ,le deuxième pas de format particulier pour l'instant .
-est-il possible que lorsque je change une date manuellement dans mon premier tableau par exemple cellule E3 prend la valeur 20/04/17, la cellule AD3 sur mon deuxième tableau s’incrémente de 1 a chaque fois que l'on modifie la date de la cellule e3 et si elle est supérieure a l'ancienne valeur et ceci pour toute la plage de cellule du premier tableau .
Dans mon esprit çà donnais a peu près ça .
selection cellule, si valeur<nouvelle valeur DECALER 27 a droite sur la meme ligne ="+1 "

si une âme charitable pouvais me donner un coup de pousse voire de main ,vu que j'ai jamais mis le nez dans le vba mise a part avec l'enregistreur :mouarf:
en espérant avoir été assez clair
Merci

Bonjour et bienvenue au forum !

Citation:

---

lorsque je change

---

Ceci fait référence aux évènements dans la feuille de calcul : http://silkyroad.developpez.com/VBA/EvenementsFeuille/. Dans ce cas, ce sera la méthode Worksheet_Change.
Tu voudras que ta cellule Target soit dans la colonne n°5. Avec Offset(ligne, colonne), tu peux travailler sur d'autres cellules en te décalant d'un certain nombre de lignes et/ou de colonnes par rapport à la cellule de base.
Quand à l'incrémentation, il suffit d'ajouter +1 à la valeur de la cellule voulue. Prenons un exemple simple, imaginons que tu veux ajouter 1 à la cellule A1, tu écris:

Code:

---

Range("A1").Value = Range("A1").Value + 1

---

Voilà ! J'espère que tu pourras un peu avancer comme cela. Essaie déjà de coder qqs lignes et reviens vers nous si tu bloques encore ;)

Bonjour
Attention au déclenchement de l'évènement Change (ne nom est un faux ami). Il se déclenche également si, en cours de saisie, l'utilisateur se ravise et saisit une valeur à l'identique de celle qui était là.

Pire encore : que l'utilisateur (par étourderie, maladresse ou autre) :
- entre dans la cellule
- place son curseur dans la barre de formule
- se ravise (constatant qu'il est là où il ne voulait pas, par exemple)
- sélectionne une autre cellule
et .... l'évènement Change est déclenché !!!! Alors même qu'il n'a à aucun moment pressé la moindre touche ;)

La parade/précaution existe, mais elle nécessite l'utilisation conjuguée d'une variable générale et des évènements SelectionChange et Change.

Bonjour,

unparia a raison, il faut se méfier de ce genre de pratique ou alors, se blinder en contrôles pour que ça fonctionne vraiment comme on le souhaite sans trop de risques d'erreurs. Une piste malgré tout, à mettre dans le module de la feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim LaDate As Date   Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Value > LaDate Then   Application.EnableEvents = False Target.Offset(, 25).Value = Target.Offset(, 25).Value + 1 Application.EnableEvents = True   End If   End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range)   If Not IsDate(Target.Value) Then Exit Sub   LaDate = Target.Value   End Sub

---

Déjà, Merci d'avoir pris le temps d'essayer de comprendre ma requête, chapeau bas Theze ta solution a l'air de fonctionner , maintenant j'essaye de comprendre comment marche le code:aie: , j' ai juste eu a augmenter la valeur de Target.Offset(, 25).
Merci a ceux qui on fait avancer le bouzin .
je reviens vers vous si j'ai d'autre interrogations promis .