Comment écrire la valeur d'une variable dans une cellule

Version imprimable

Salut, j'ai fait un bout de code, mais je crains qu'il y ait une erreur parce que ma cellule A5 n'est pas modifié:
Sub Macro2()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim MAdate As Date
MAdate = Range("A5").Value
Dim newdate As Integer
newdate = InputBox("choississez la date?", _
    "changement d'année", "", 7000, 7000)
If newdate < MAdate Then
intervalle = Year(MAdate) - newdate
Else
intervalle = newdate - Year(MAdate)
End If
Debug.Print DateAdd("yyyy", -intervalle, MAdate)
Range("A5").Value = MAdate
End Sub

Merci beaucoup de votre aide

27/08/2010, 13h06
tarnx
C'est normal qu'elle ne change pas de valeur étant donné que tu lui réaffecte son ancienne valeur sans la modifier ;)
Code:

1 2 3 MAdate = Range("A5").Value ... Range("A5").Value = MAdate
Par contre je n'arrive pas à saisir ce que tu vérifies dans ta conditionnelle, voir même, ce que tu recherches à faire avec cette procédure :?

Re, je veut en fait modifié l'année de ma cellule en A5

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro2()

Dim MAdate As Date
MAdate = Range("A5").Value
Dim newdate As Integer
newdate = InputBox("choississez la date?", _
    "changement d'année", "", 7000, 7000)
If newdate < MAdate Then
intervalle = Year(MAdate) - newdate
Else
intervalle = newdate - Year(MAdate)
End If
MAdate = DateAdd("yyyy", -intervalle, MAdate)
Range("A5").Value = MAdate
End Sub

Bonjour,

J'ai un peux de peine à comprendre (fin de samaine :o(( ) mais regarde ceci si ça convient :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub Macro2()
 
    Dim Intervalle As Integer
    Dim MAdate As Date
    Dim newdate As Date
 
    MAdate = Range("A5").Value
    newdate = InputBox("choississez la date?", _
        "changement d'année", , 7000, 7000)
 
    Intervalle = Abs(Year(MAdate) - Year(newdate))
 
    [A5] = DateAdd("yyyy", -Intervalle, MAdate)
 
End Sub

Hervé.

30/08/2010, 15h00
wuging

re

Salut,

merci pour ton code mais il bog ici:

Code:

[A5] = DateAdd("yyyy", -Intervalle, MAdate)

Ca ne doit pas être bien compliqué je ne suis qu' un débutant merci.

les deux dernières lignes à modifier :

Code:

1
2
3
4
 
    Intervalle = Year(newdate) - Year(MAdate)
 
    [A5] = DateAdd("yyyy", Intervalle, MAdate)

31/08/2010, 08h07
wuging

re,

Merci bien ça marche nickel, il me reste plus qu'à faire une boucle sur la colonne et puis c'est bon, mais ça, j'espère que j'arrive à le faire.