Entrer une série de dates
Résolu
majanian
Messages postés
27
Statut
Membre
-
Majanian -
Majanian -
Bonjour,
Je croyais avoir posté cela hier, mais apparemment cela n'a pas marché. Voici mon message !
Dans un tableau qui démarre à la cellule B10, je cherche à renseigner la première ligne (10) avec une série de dates consécutives à partir de la cellule C10. La date de début figure en A1 et la date de fin en A2.
J'ai créé la procédure suivante, qui ne marche pas (il ne se passe rien quand je la lance) :
Sub Macro1()
Dim date1 As Date, date2 As Date
date1 = Range("A1").Value
date2 = Range("A2").Value
For i = 0 To (date2 - date1)
Range("C10" & (1 + i)).Value = date1 + i
Next
End Sub
Quelqu'un peut-il m'aider ?
Dans l'idéal, j'aimerais avoir un bouton "Saisie des dates" qui ouvrirait une boîte où l'on saisirait la date de départ et la date de fin, ce qui renseignerait la ligne de dates. Mais ceci est largement au-dessus de mes capacités !!
Je peux envoyer le fichier, si nécessaire.
Merci d'avance,
Majanian
Je croyais avoir posté cela hier, mais apparemment cela n'a pas marché. Voici mon message !
Dans un tableau qui démarre à la cellule B10, je cherche à renseigner la première ligne (10) avec une série de dates consécutives à partir de la cellule C10. La date de début figure en A1 et la date de fin en A2.
J'ai créé la procédure suivante, qui ne marche pas (il ne se passe rien quand je la lance) :
Sub Macro1()
Dim date1 As Date, date2 As Date
date1 = Range("A1").Value
date2 = Range("A2").Value
For i = 0 To (date2 - date1)
Range("C10" & (1 + i)).Value = date1 + i
Next
End Sub
Quelqu'un peut-il m'aider ?
Dans l'idéal, j'aimerais avoir un bouton "Saisie des dates" qui ouvrirait une boîte où l'on saisirait la date de départ et la date de fin, ce qui renseignerait la ligne de dates. Mais ceci est largement au-dessus de mes capacités !!
Je peux envoyer le fichier, si nécessaire.
Merci d'avance,
Majanian
A voir également:
- Entrer une série de dates
- Rechercher ou entrer l'adresse - Guide
- Entrer les informations d'identification reseau - Guide
- Nombre de jours entre deux dates excel - Guide
- Télécharger idm gratuitement sans numéro de série - Télécharger - Téléchargement & Transfert
- Entrer code puk samsung - Guide
4 réponses
Bonjour
Range("C" & d'incrément) ou cells(ton calcul d'incrément, "C")
d(autre part plutot que que de trimbaler tes dates 1 & 2
Nombre = Range("A2").Value - Range("A1").Value
Nombre déclaré en Byte ou Intéger suivant la différnce de dates
Range("C" & d'incrément) ou cells(ton calcul d'incrément, "C")
d(autre part plutot que que de trimbaler tes dates 1 & 2
Nombre = Range("A2").Value - Range("A1").Value
Nombre déclaré en Byte ou Intéger suivant la différnce de dates
Bonjour Michel,
Merci de t'occuper de mon problème.
J'ai essayé les deux modifications que tu suggères, mais cela remplit la colonne C et non la ligne 10 à partir de C10.
Et je ne comprends pas ce que tu suggères en ce qui concerne les dates. Désolé !
Cordialement,
Majanian
Merci de t'occuper de mon problème.
J'ai essayé les deux modifications que tu suggères, mais cela remplit la colonne C et non la ligne 10 à partir de C10.
Et je ne comprends pas ce que tu suggères en ce qui concerne les dates. Désolé !
Cordialement,
Majanian