Date automatique sous excel
Résolu/Fermé
A voir également:
- Excel colonne date automatique
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Additionner colonne excel - Guide
- Trier colonne excel - Guide
- Figer colonne excel - Guide
8 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 395
18 janv. 2011 à 13:11
18 janv. 2011 à 13:11
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
14 janv. 2018 à 11:58
Merci mile fois.