date

[cg1980]

bonjour

dans le fîchier ci-joint, j'aimerai indiqué la date d'aujourd'hui dans la colonne H.

je connais la fonction date mais je ne sais pas comment lui indiquer la plage à remplir.

NB:la longueur de la plage a remplir dans la colonne H peut varier, je ne peux pas simplement selectionner les cellules.
merci

 

[john]

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

 

[david84]

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 :

=SI(B5<>"";AUJOURDHUI();"")

A+

 

[Victor21]

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".
😉

 

[cg1980]

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

 

[GIBI]

Re : date

Bonjour,

pour automatiser

dans Thisworkbook ajoute simplement

Private Sub Workbook_Open()
  Range("H5:h" & Range("G65000").End(xlUp).Row).Value = Format(Date, "d/mm/yyyy")
End Sub

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