Date automatique sous excel
Résolu
Manu
-
Cerqui -
Cerqui -
Bonjour,
je voudrais savoir s'il est possible sous excel de mettre des dates automatiquement..je m'explique
Dans la colonne de gauche je désire mettre les jours du mois en cours
01/01/2011
02/01/2011
03/01/2011
etc...
Mais à chaque fois je me vois dans l'obligation de réécrire sur chaque ligne la date voulue.
je voulais donc savoir s'il existait une formule qui permette en sélectionnant toute la colonne de me mettre le mois entier sans avoir à retaper à chaque ligne..
Par avance merci
je voudrais savoir s'il est possible sous excel de mettre des dates automatiquement..je m'explique
Dans la colonne de gauche je désire mettre les jours du mois en cours
01/01/2011
02/01/2011
03/01/2011
etc...
Mais à chaque fois je me vois dans l'obligation de réécrire sur chaque ligne la date voulue.
je voulais donc savoir s'il existait une formule qui permette en sélectionnant toute la colonne de me mettre le mois entier sans avoir à retaper à chaque ligne..
Par avance merci
A voir également:
- Excel colonne date automatique
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
8 réponses
Bonjour
au plus simple
enter le 1° jour du mois dans la cellule
sélectionnez la cellule par le petit carré noir en bas à droite
maintenez le clic et tirez sur la hauteur voulue.
crdlmnt
au plus simple
enter le 1° jour du mois dans la cellule
sélectionnez la cellule par le petit carré noir en bas à droite
maintenez le clic et tirez sur la hauteur voulue.
crdlmnt
Bonjour,
la fonction date :
=DATE(année;mois;jour)
utilise comme ça dans A2 :
=date($a$1;$b$1;$c$1) (a1 = année;b1 = mois; jour = 1 pour premier jour du mois)
dans a3, tu écris :
=A2 +1
dans A4, tu écris
=A3 +1 (tu déroules jusqu'à 31 jours).
Chauqe mois, tu changes le mois. chaque année tu changes l'année.
la fonction date :
=DATE(année;mois;jour)
utilise comme ça dans A2 :
=date($a$1;$b$1;$c$1) (a1 = année;b1 = mois; jour = 1 pour premier jour du mois)
dans a3, tu écris :
=A2 +1
dans A4, tu écris
=A3 +1 (tu déroules jusqu'à 31 jours).
Chauqe mois, tu changes le mois. chaque année tu changes l'année.
Bonjour,
Il est tout à fait possible d'automatiser à l'aide d'une macro, copies ca dans un module :
Sub automatiquedate()
Sheets("Sheet1").Select ' remplace sheet1 par ton nom de feuille
a = 0
Do While a = 0
a = InputBox("Quelle est l'année?", "Année")
If Not IsNumeric(a) Then
a = MsgBox("Vous avez commis une erreur, voulez-vous continuer?", vbYesNo, "erreur de saisie")
If a = 7 Then
a = MsgBox("Vous avez décidé d'annuler la mise à jour des dates automatiques!", vbOKOnly)
a = "a"
Else
a = 0
End If
End If
Loop
If a <> "a" Then
Do While b = 0
b = InputBox("Quelle est le mois?", "Année")
If Not IsNumeric(b) Or b < 0 Or b > 12 Then
b = MsgBox("Vous avez commis une erreur, voulez-vous continuer?", vbYesNo, "erreur de saisie")
If b = 7 Then
b = MsgBox("Vous avez décidé d'annuler la mise à jour des dates automatiques!", vbOKOnly)
b = "b"
Else
b = 0
End If
End If
Loop
If b <> "b" Then
i = 2 ' i = à la ligne que tu veux commencer, j'ai mis 2
Cells(i, 1).Select 'A2 'cells(ligne, colonne) dans mon cas 2e lgne, 1ère colonne
a = a + 1 - 1
b = b - 1 + 1
j = 1
ActiveCell.FormulaR1C1 = "=DATE(" & a & "," & b & "," & j & ")"
If b = 2 Then
c = 28
Else
If b = 4 Or b = 6 Or b = 9 Or b = 11 Then
c = 30
Else
c = 31
End If
End If
For d = 2 To c
j = j + 1
i = i + 1
Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=DATE(" & a & "," & b & "," & j & ")"
Next
End If
End If
End Sub
dis moi si c'est mieux.
Il est tout à fait possible d'automatiser à l'aide d'une macro, copies ca dans un module :
Sub automatiquedate()
Sheets("Sheet1").Select ' remplace sheet1 par ton nom de feuille
a = 0
Do While a = 0
a = InputBox("Quelle est l'année?", "Année")
If Not IsNumeric(a) Then
a = MsgBox("Vous avez commis une erreur, voulez-vous continuer?", vbYesNo, "erreur de saisie")
If a = 7 Then
a = MsgBox("Vous avez décidé d'annuler la mise à jour des dates automatiques!", vbOKOnly)
a = "a"
Else
a = 0
End If
End If
Loop
If a <> "a" Then
Do While b = 0
b = InputBox("Quelle est le mois?", "Année")
If Not IsNumeric(b) Or b < 0 Or b > 12 Then
b = MsgBox("Vous avez commis une erreur, voulez-vous continuer?", vbYesNo, "erreur de saisie")
If b = 7 Then
b = MsgBox("Vous avez décidé d'annuler la mise à jour des dates automatiques!", vbOKOnly)
b = "b"
Else
b = 0
End If
End If
Loop
If b <> "b" Then
i = 2 ' i = à la ligne que tu veux commencer, j'ai mis 2
Cells(i, 1).Select 'A2 'cells(ligne, colonne) dans mon cas 2e lgne, 1ère colonne
a = a + 1 - 1
b = b - 1 + 1
j = 1
ActiveCell.FormulaR1C1 = "=DATE(" & a & "," & b & "," & j & ")"
If b = 2 Then
c = 28
Else
If b = 4 Or b = 6 Or b = 9 Or b = 11 Then
c = 30
Else
c = 31
End If
End If
For d = 2 To c
j = j + 1
i = i + 1
Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=DATE(" & a & "," & b & "," & j & ")"
Next
End If
End If
End Sub
dis moi si c'est mieux.
Pour le copier dans un module :
Options, macro, visual basic.
Insertion Module.
Tu copies tel quel, enregistres et fermes.
Pour l'exécuter : Outils, Options, macros et tu la choisis.
Options, macro, visual basic.
Insertion Module.
Tu copies tel quel, enregistres et fermes.
Pour l'exécuter : Outils, Options, macros et tu la choisis.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci mile fois.