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)