Discussion :

[Exeter]

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]

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]

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]

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]

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]

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