Comment incrémenter une date avec une macro
Fermé
zaboufredo
-
28 janv. 2015 à 19:15
Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019 - 28 janv. 2015 à 21:49
Patty5083 Messages postés 34 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 10 novembre 2019 - 28 janv. 2015 à 21:49
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
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro word - Guide
1 réponse
Patty5083
Messages postés
34
Date d'inscription
lundi 14 avril 2014
Statut
Membre
Dernière intervention
10 novembre 2019
28 janv. 2015 à 21:49
28 janv. 2015 à 21:49
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