Macro d'incrément de date

Bonjour à tous,

Je souhaite incrémenter la date contenue dans une cellule d'une valeur contenue dans une autre cellule et écrire ce résultat dans une troisième cellule.
un petit exemple:
http://www.developpez.net/forums/att...1&d=1293093583

je voudrais donc afficher dans la colonne B le résultat de mai 2008 + 5ans = mai 2013

Mais le classeur Excel contenant 500 lignes environ, j'aimerais pouvoir définir les cellules avec quelque chose comme: "la cellule à droite de celle active"

De plus, il faudrait que cette macro ne soit active que sur ces 3 colonnes (et pas sur les 20 autres que j'utilise dans le classeur) si c'est possible, je ne vois pas trop comment définir ceci. Je pense activer la macro en utilisant un raccouci du style ctrl + alt + une touche

Voici le code que j'ai écrit pour le moment:

Code:

---

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

Sub Incrementdate() ' ' Incrementdate Macro ' Macro enregistrée le 23/12/2010 par delavs20 ' ' Touche de raccourci du clavier: Ctrl+d '   Columns("N:N, O:O, P:P").NumberFormat = "yy-mmm"   somme = Val(DatePart("yy", ActiveCell)) + ' 'la valeur contenue dans la cellule de la colonne C dans l'exemple'   'cellule de la colonne B de l'exemple = somme     End Sub

---

Merci d'avance pour votre aide

Bonjour,

On peut aussi faire cela avec une formule

Code:

---

=DATE(ANNEE(A2)+C2;MOIS(A2);JOUR(A2))

---

Bonjour,

Oui tout à fait, le fonctionnement est ce que je recherche, mais il nécessite d'entrer cette formule dans chaque cellule. Pour le moment j'en ai qu'une dizaine, mais à l'avenir il pourrait y en avoir beaucoup plus, ce serait moins fastidieux avec une macro.

Est-t'il possible de définir "la cellule à droite de celle activée"?
il me serait alors possible via une macro d'écrire cette formule dans la cellule activée en prenant comme valeur de départ les valeurs contenues dans les cellules situées à droite et à gauche de celle activée, ou je me trompe?

Citation:

---

Est-t'il possible de définir "la cellule à droite de celle activée"?

---

Code:

---

ActiveCell.Offset(0, 1).Value

---

Cela dit, tu pourrais tout simplement copier la formule se trouvant sur la ligne du dessus et ainsi de suite

Code:

---

1 2	ActiveCell.Offset(-1, 0).Copy ActiveCell.PasteSpecial xlPasteFormulas

---

Cette solution marche assez bien, mais toutes mes lignes ne sont pas toujours remplies. Si la précédente est vide, la macro ne recopie rien.

Je pensais utiliser une boucle If ... else comme ceci:

Code:

---

1 2 3 4 5 6 7

If ActiveCell.Offset(-1, 0) <> "" Then ActiveCell.Offset(-1, 0).Copy ActiveCell.PasteSpecial xlPasteFormulas Else ActiveCell.Offset(-X, 0).Copy ActiveCell.PasteSpecial xlPasteFormulas End If

---

mais je ne vois pas comment définir ce -X :/

s'il y a des lignes vide, une solution consiste a prendre la formule qui se trouve sur la première ligne

Code:

---

1 2	cells(1, ActiveCell.Column).Copy ActiveCell.PasteSpecial xlPasteFormulas

---

Merci beaucoup pour ton aide, la macro fonctionne pile poil comme je le souhaite.

voici le code pour les personnes qui en aurait besoin:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub IncrementDate() ' ' IncrementDate Macro ' Touche de raccourci du clavier: Ctrl+d ' If ActiveCell.Offset(-1, 0) <> "*" Then Cells(11, ActiveCell.Column).Copy ActiveCell.PasteSpecial xlPasteFormulas Else Cells(11, ActiveCell.Column).Copy ActiveCell.PasteSpecial xlPasteFormulas End If   End Sub

---

@++

Bon, mon patron à décider de changer le cahier des charges de la base de donnée sur laquelle je travaille et la macro précédente ne convient plus.

J'ai désormais un nouvel onglet où j'y "entrepose" certains paramètres et plus particulièrement la colonne C de mon exemple de départ. Dans cet onglet, j'ai remplacé les valeur que j'avais écrit directement dans une cellule par un bouton pour que lorsqu'on clique dessus le calcul s'effectue. Il y aura un bouton par valeur, il me suffira de changer la valeur à l'intérieur de la formule pour chaque bouton.

http://www.developpez.net/forums/att...1&d=1293120565

Voici donc le code que j'ai; il marche nickel.

Code:

---

1 2 3 4 5 6 7 8 9

Sub TypeAA_Click() Workbooks.Open "C:\Documents and Settings\delavs20\Desktop\recensement\IncrementDate.txt" Selection.Copy   Workbooks("Listing.xls").Activate Worksheets("Usinage").Activate ActiveCell.PasteSpecial xlPasteFormulas Workbooks("IncrementDate.txt").Close End Sub

---

(Je sais pas pouquoi ca me met les références aux fichiers en rouge, ca y est pas sur Visual Basic)
Ce qui ne vas pas c'est que la formule contenue dans le fichier texte qui est:

Code:

---

=DATE(ANNEE(ActiveCell.offset(0,-1))+3;MOIS(ActiveCell.offset(0,-1));JOUR(ActiveCell.offset(0,-1)))

---

ne parche évidement pas. Excel demande des nombres dans ANNEE() MOIS() etc etc, pas du VB ^^

J'ai beau me torturer les méninges, je ne vois pas comment faire pour qu'un appui sur le bouton fasse le calcul avec comme précédement la valeur située à côté de la case sélectionnée.

A moins que je ne parte pas du tout dans la bonne direction...

Essaie plutot comme cela

Code:

---

1 2 3

ActiveCell.FormulaLocal= "=DATE(ANNEE(" & ActiveCell.offset(0,-1).value & ")+3;MOIS(" & ActiveCell.offset(0,-1).value & "));JOUR(" & ActiveCell.offset(0,-1).value & ")))

---

A tester car j'ai tapé directement

Salut,

Il me copie la formule dans la cellule selectionnée, et ca reste tel quel, comme si ce n'était pas une fonction.

Peux tu envoyer un fichier test

Voici un zip avec la feuille .xls et le fichier texte.
Inutile de vous faire penser à changer l'adresse du fichier texte dans la macro :)

Je ne comprend pas bien l'utilité de mettre les formules dans un fichier texte

Si tu veux utiliser un nombre d'année variable, tu peux faire une procedure qui attendra comme argument le nombre d'année

Code:

---

1 2 3 4 5 6

Sub AjoutAnnee(nbAnnee As Integer)   Worksheets("Usinage").Activate ActiveCell.Value = DateAdd("yyyy", nbAnnee, ActiveCell.Offset(0, -1).Value)   End Sub

---

qui sera appelé par le bouton

Code:

---

1 2 3

Sub TypeAA_Click() AjoutAnnee 3 End Sub

---

Génial, merci beaucoup. Je partais pas dans la bonne direction.

A une prochaine ;)