Discussion :

[wuging]

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 :

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

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

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

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

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

[wuging]

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

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

[Theze]

Bonjour,

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

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

[wuging]

Salut,

merci pour ton code mais il bog ici:

Code :

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

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

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

[tasse2the]

les deux dernières lignes à modifier :

Code :

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

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

[wuging]

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.