Fction NOW dans VBA avec nbre ligne aléatoires
Bonjour,
Je reviens vers vous avec un nouveau challenge.
Dans mon fichier je souhaiterait que en colonne C se mette la date du jour (équivalent =AUJOURD'HUI() dans Excel) tant que il y a des datas en colonne B
J'ai le code suivant:
Dim rg As Range
Set rg = Sheets("IMPORT").Range("b2") 'Tant que B contient des données
Do Until IsEmpty(rg)
rg.Offset(0, -1) = "ENTREPOT" 'On remplace dans la Xeme colonne (ici 20, donc v) le cellules vides par 1 - on remplace a partir de la X ligne en face (ici 0 donc en face)
Set rg = rg.Offset(1, 0)
LoopQui fonctionne parfaitement, et qui me donne "ENTREPOT" dans toutes les cellules tant que B contient des données sans soucis.
J'ai essayé de l'adapter:
Dim rc As Range
Set rc = Sheets("IMPORT").Range("b2") 'Tant que B contient des données
Do Until IsEmpty(rg)
rc.Offset(0, 1) = Format(Now, "dd/mm/yyyy") 'On remplace dans la Xeme colonne (ici 20, donc v) le cellules vides par 1 - on remplace a partir de la X ligne en face (ici 0 donc en face)
Set rc = rc.Offset(1, 0)
LoopMais qui ne fonctionne pas du tout!
Pourriez-vous m'aider?
Bonjour,
En VBA, la date du jour est tout simplement donnée par la fonction Date.
Sub Test()
MsgBox Date '=11/01/2019
MsgBox Now '=11/01/2019 14:56:00
End SubBonjour
a voir
Sub Test()
MsgBox DateValue(Now)
End SubA+
Maurice
Bonjour,
Bonjour,
En VBA, la date du jour est tout simplement donnée par la fonction Date.
Sub Test() MsgBox Date '=11/01/2019 MsgBox Now '=11/01/2019 14:56:00 End Sub
Bonjour
a voir
Sub Test() MsgBox DateValue(Now) End SubA+
Maurice
Merci à vous deux pour l'info sur la fonction Date que je ne connaissais. Votre solution ne fonctionne simplement pas puisque je ne veux pas de MsgBox mais des dates dans une cellules
Bonjour,
Ton fichier en retour (rg<>rc).
Cdlt.
@Jean-Eric
Merci beaucoup c'est parfait
bonne journée à tous!
MsgBox c'est juste pour illustrer... Les fonctions sont bien entendu utilisables autrement !