Comment incrémenter une date avec une macro
zaboufredo
-
Patty5083 Messages postés 35 Statut Membre -
Patty5083 Messages postés 35 Statut Membre -
Bonjour,
j'ai un tableau sous excel avec des données à rentrer tous les jours(une machine qui produit des pièces et aussi des rebuts;ça arrive)
j'ai crée une macro qui lorsque le mois est terminé me crée un nouveau classeur avec mon tableau terminé archivé et me remet également à zéro mon tableau initial prêt à recevoir les nouvelles données.
mais je voudrais aussi que sur mon tableau "vidé" le mois soit incrémenté +1
en plus je reprend le mois en a1 comme valeur pour remplir ma colonne date.
je ne sais pas comment passer de 01/01/2015 à 01/02/2015.
merci pour vos infos.
j'ai un tableau sous excel avec des données à rentrer tous les jours(une machine qui produit des pièces et aussi des rebuts;ça arrive)
j'ai crée une macro qui lorsque le mois est terminé me crée un nouveau classeur avec mon tableau terminé archivé et me remet également à zéro mon tableau initial prêt à recevoir les nouvelles données.
mais je voudrais aussi que sur mon tableau "vidé" le mois soit incrémenté +1
en plus je reprend le mois en a1 comme valeur pour remplir ma colonne date.
je ne sais pas comment passer de 01/01/2015 à 01/02/2015.
merci pour vos infos.
A voir également:
- Comment incrémenter une date avec une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment ouvrir un fichier dat - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Comment modifier une date sur un document ✓ - Forum Windows
1 réponse
Bonsoir
Ce code marche. A toi de l'adapter pour ton cas ou de trouver mieux:
Bon courage
Ce code marche. A toi de l'adapter pour ton cas ou de trouver mieux:
Sub Ajout_mois()
'Mettre le 1er du mois suivant dans les cellules B12,B13,B14 à partir des dates des cellules B2,B3,B4
Range("B12") = Year(Range("B2")) & "/" & Month(Range("B2")) + 1 & "/" & 1
Range("B13") = Year(Range("B3")) & "/" & Month(Range("B3")) + 1 & "/" & 1
Range("B14") = Year(Range("B4")) & "/" & Month(Range("B4")) + 1 & "/" & 1
End Sub
Bon courage
