Menu

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

Manu - 18 janv. 2011 à 11:42 - Dernière réponse :  Cerqui
- 14 janv. 2018 à 11:58
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



Afficher la suite 

9 réponses

melanie1324 - 18 janv. 2011 à 12:54
+2
Utile
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.
Cette réponse vous a-t-elle aidé ?  
Vaucluse 21881 Messages postés lundi 23 juillet 2007Date d'inscriptionContributeurStatut 24 avril 2018 Dernière intervention - 18 janv. 2011 à 13:11
+2
Utile
1
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

Cette réponse vous a-t-elle aidé ?  
Si simple mais il fallait le savoir.
Merci mile fois.
0
Utile
merci beaucoup de ta reponse...je vais de suite essayer cela..
0
Utile
c'est bel et bien ce que je cherche mais est 'il possible d'automatiser cette action ?
0
Utile
Mince alors ...parfois faut pas chercher bien difficile....

Merci bien
melanie1324 - 18 janv. 2011 à 13:28
0
Utile
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.
melanie1324 - 18 janv. 2011 à 13:29
0
Utile
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.