Macro d'incrément de date

**Exeter** · 23/12/2010, 10h28

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:

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jfontaine** · 23/12/2010, 10h32

Bonjour,

On peut aussi faire cela avec une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Exeter** · 23/12/2010, 10h45

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?

**jfontaine** · 23/12/2010, 11h06

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Exeter** · 23/12/2010, 12h46

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :/

**jfontaine** · 23/12/2010, 13h23

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Exeter** · 23/12/2010, 13h33

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@++

**Exeter** · 23/12/2010, 17h11

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.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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...

**jfontaine** · 23/12/2010, 17h22

Essaie plutot comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Exeter** · 24/12/2010, 08h21

Salut,

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

**jfontaine** · 24/12/2010, 09h43

Peux tu envoyer un fichier test

**Exeter** · 24/12/2010, 10h23

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

**jfontaine** · 24/12/2010, 13h04

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TypeAA_Click()
AjoutAnnee 3
End Sub

**Exeter** · 27/12/2010, 08h19

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

A une prochaine

Macro d'incrément de date [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager