Date automatique sous excel [Résolu/Fermé]

Signaler
-
 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



8 réponses

Messages postés
24883
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
20 février 2020
5 038
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

9
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 87676 internautes nous ont dit merci ce mois-ci

Si simple mais il fallait le savoir.
Merci mile fois.
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.
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.
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.
ca te convient?
merci beaucoup de ta reponse...je vais de suite essayer cela..
c'est bel et bien ce que je cherche mais est 'il possible d'automatiser cette action ?
Mince alors ...parfois faut pas chercher bien difficile....

Merci bien