Problème de réalisation Macro EXCEL

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:

---

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

---

Bonjour,

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

Citation:

---

Envoyé par carden752

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:

---

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

Bonjour et bienvenue sur DVP

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

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.

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

Code:

---

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

---

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:

---

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.

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:

---

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.

Code:

---

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

---

Merci pour vos réponses !!