Discussion :

[AntMi]

Bonjour,

Je vous expose mon problème :

Je cherche à faire un macro excel permettant d'incrémenter une date "X" d'une certaine période "Y" en fonction de la date de l'ouverture du fichier. Mon programme : ==> Avec la C(6,6) la date X; C(1,5) la date " =AUJOURD'HUI "; C(5,4) la période "Y"

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 Rempalcer()
 
If Cells(6, 6) < Cells(1, 5) Then
Cells(5, 5).Value = Cells(5, 5).Value
End If
 
If Cells(5, 5) = Cells(1, 5) Then
Cells(5, 5).Value = Cells(5, 5).Value
End If
 
If Cells(5, 5) > Cells(1, 5) Then
Cells(5, 5).Value = Cells(5, 5).Value + Cells(5, 4).Value
End If
 
End Sub

[carden752]

Bonjour,

un peu de lecture sur les opérations avec les dates

[AntMi]

Bonjour,

un peu de lecture sur les opérations avec les dates

Merci pour ce lien très utile pour un débutant comme moi
J'ai repris ce qui est mentionné sur cette page, ça me donne :

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
19
Sub Remplacer()
 
X = Sheets("Feuil1").Cells(6, 9).Value
Y = Sheets("Feuil1").Cells(6, 8).Value
Z = Sheets("Feuil1").Cells(6, 6).Value
 
If DateSerial(X, Y, Z) = Date Then
Cells(6, 6).Value = DateSerial(X, Y, Z)
End If
 
If DateSerial(X, Y, Z) < Date Then
Cells(6, 6).Value = DateSerial(X, Y, Z)
End If
 
If DateSerial(X, Y, Z) > Date Then
Cells(6, 6).Value = DateSerial(X, Y, Z) + DateAdd("m", 3, A)
End If
 
End Sub

Seulement, le nombre de jours dans un mois n'étant pas le même d'un mois à l'autre, comment puis-je définir "Z"??

[carden752]

Bonjour et bienvenue sur DVP

Z doit représenter quoi?
Le premier jour du mois? le dernier jour du mois?

[AntMi]

Tout d'abord, un grand MERCI de bien vouloir m'aider
Z représente un jour.

Je prends un exemple :
Imaginons que je dois faire une mise à jour de mon téléphone tous les 6mois.
Le 15(Z)/02(Y)2013(X), je réalise la première mise à jour. Je cherche donc à savoir quand est ce que sera la suivante ?
=> Le but du macro sert à incrementer de manière automatique la date de cette mise à jour.

Cordialement.

[carden752]

Il faut utiliser la fonction dateadd en passant la date de base comme dernier paramètre

Code :

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

Cells(6, 6).Value = DateAdd("m", 6, Date)

[AntMi]

Bonjour,

Je n'ai toujours pas résolu mon problème :

La méthode que j'allais suivre ne permet pas d'incrémenter de manière juste!

J'ai trouvé un exemple à partir du lien ci-dessus :

DateDiff("q", datDateEmbauche, Date())

Je pensais donc à le transformer en

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 Remplacer()
 
Dateinitiale= Dategénéral = Cells(6, 6)
 
If Dateinitiale = Date Then
Cells(5, 5).Value = Dateinitiale
End If
 
If Dateinitiale < Date Then
Cells(5, 5).Value = Dateinitiale
End If
 
If Dateinitiale > Date Then
Cells(6, 6).Value = DateAdd("m", 6, Dateinitiale)
 
End If
 
End Sub

Mais je ne comprend pas très bien comment définir datDateEmbauche, donc par conséquent dateinitiale ?

Cordialement.

[gFZT82]

Bonjour,

Si j'ai bien compris, tu saisis une date initiale en F6 et tu cherches à incrémenter automatiquement cette date de 6 mois lorsque elle devient inférieure à la date du jour.

Code :

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

1
2
3
4
5
6
7
8
Sub Remplacer()
Dim Dateinitiale As Date
    Dateinitiale = Cells(6, 6).Value
    While Dateinitiale < Date
        Cells(6, 6).Value = DateAdd("m", 6, Dateinitiale)
        Dateinitiale = Cells(6, 6).Value
    Wend
End Sub

Cordialement.

[Invité]

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
19
20
Dim J, M, A As String
J = Day(CDate(Cells(6, 6).Value))
M = Month(CDate(Cells(6, 6).Value))
A = Year(CDate(Cells(6, 6).Value))
Select Case DateDiff("m",  CDate(Cells(6, 6).Value),Date)
    Case Is < 0
         MsgBox "<0"
    Case Is > 0
        If M + 6 > 12 Then
            M = M + 6 - 12
            A = A + 1
        Else
            M = M + 6
        End If
         Cells(6, 6).Value = CDate(J & "/" & M & "/" & A)
    Case 0
         MsgBox "=0"
    Case Else
         MsgBox "???"
    End Select

[AntMi]

Merci pour vos réponses !!