date

Re : date

Bonjour,

Si tu veux tu peux mettre ça à l'ouverture de ton classeur

Private Sub Workbook_Open()
Sheets(1).Range("B5").Select
Selection.End(xlDown).Select
ligne = ActiveCell.Row
x = 5
Do
'Sheets(1).Range("H" & x).FormulaR1C1 = "=TODAY()" ' pour la formule AUJOURD'HUI()
If Sheets(1).Range("H" & x).Value = "" Then 'ceci pour si tu ne veux pas que ça se fasse si une date est déjà encodée.
Sheets(1).Range("H" & x).value = format(date,"jj/mm/yyyy") 'pour la date du jour hardcodée
End If
x = x + 1
Loop Until x > ligne
End Sub

BàT

John

Re : date

Bonjour,
par formule tu peux entrer la formule suivante en H5 et la tirer vers le bas jusqu'à la ligne la plus basse susceptible d'être renseignée :
A+

Re : date

Bonsoir cg1980, John, David

Sauf erreur de ma part, les deux propositions ci-dessus indiqueront la date du jour, pas la date de saisie.
Si, dans cet exemple, vous désirez saisir en dur la date d'aujourd'hui de H5 à H20, sélectionnez la zone, et en maintenant la touche "ctrl "enfoncée, appuyez sur la touche ";", puis "entrée". Relachez ensuite la touche "ctrl".

Re : date

merci pour vos réponses. Je voulais bien la date du jour mais c'est bien d'avoir des solutions plus flexible.merci

Re : date

Bonjour,

pour automatiser

dans Thisworkbook ajoute simplement

il mettra la date du jour, en dure, sur toutes le hauteur du tableau à partir de la ligne 5

sinon si tu veux une formule
Range("H5:h" & Range("G65000").End(xlUp).Row).FormulaLocal = "=AUJOURDHUI()"
GIBI