Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Gemini 3 Switch 2 Shein ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA : Date et heure

VBA : Date et heure

12 réponses
Avatar
Domi
Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm, j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Nicolas B.
Salut Domi,

Remplace Date par Now.
C'est comme la différence entre les fonctions Aujourdhui() et
Maintenant() d'Excel.


A+
Nicolas B.


Domi wrote:
Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la date
dans un certain nombre de cellules sélectionnées aléatoirement.

...............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
...............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm, j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi




Avatar
isabelle
bonjour Domi,

essaie comme ça,

Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm, j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi


Avatar
Michel Pierron
Bonsoir Domi;
Remplace Date par Now
MP

"Domi" a écrit dans le message de
news:
Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm, j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi




Avatar
Domi
Impec, je vais encore me coucher moins c.. ;o)
Merci à tous
Domi

"Domi" a écrit dans le message de
news:
Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm, j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi




Avatar
claudy
Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub
Bizzare chez moi ça va po????

J'ai même essayé avec ça:

Sub date_heures()
Dim c As Variant
For Each c In Selection
If IsEmpty(c) Then c = Date ' Format(Now, "dd mm yy hh:mm")
Next
End Sub

et ça va po non plus !!!

a+
Claudy

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la
date


dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm,
j'ai


toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi




Avatar
isabelle
bonjour Claudy,

qu'est qui ça va po et sur quel version travaille tu ?

isabelle


Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub
Bizzare chez moi ça va po????

J'ai même essayé avec ça:

Sub date_heures()
Dim c As Variant
For Each c In Selection
If IsEmpty(c) Then c = Date ' Format(Now, "dd mm yy hh:mm")
Next
End Sub

et ça va po non plus !!!

a+
Claudy

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter la
date


dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et l'heure.
Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm,
j'ai


toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi






Avatar
claudy
Bonjour...
Xl 2002 sp3
A+
Claudy


"isabelle" a écrit dans le message de
news:
bonjour Claudy,

qu'est qui ça va po et sur quel version travaille tu ?

isabelle


Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub
Bizzare chez moi ça va po????

J'ai même essayé avec ça:

Sub date_heures()
Dim c As Variant
For Each c In Selection
If IsEmpty(c) Then c = Date ' Format(Now, "dd mm yy hh:mm")
Next
End Sub

et ça va po non plus !!!

a+
Claudy

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter
la




date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et
l'heure.




Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm,
j'ai


toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi








Avatar
isabelle
ça ne me dit pas quel est erreur rencontré. :-(

isabelle


Bonjour...
Xl 2002 sp3
A+
Claudy

"isabelle" a écrit dans le message de
news:
bonjour Claudy,

qu'est qui ça va po et sur quel version travaille tu ?

isabelle


Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub
Bizzare chez moi ça va po????

J'ai même essayé avec ça:

Sub date_heures()
Dim c As Variant
For Each c In Selection
If IsEmpty(c) Then c = Date ' Format(Now, "dd mm yy hh:mm")
Next
End Sub

et ça va po non plus !!!

a+
Claudy

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour ajouter
la




date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et
l'heure.




Quand j'affiche un format personnalisé date et heure jj/mm/aa hh:mm,
j'ai


toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel ?

Merci
Domi










Avatar
claudy
...soir....
En fait , il n'y a pas d'erreur, mais il n'y a rien qui se produit
Les cases vides ne se remplissent pas :-((
A+

"isabelle" a écrit dans le message de
news:
ça ne me dit pas quel est erreur rencontré. :-(

isabelle


Bonjour...
Xl 2002 sp3
A+
Claudy

"isabelle" a écrit dans le message de
news:
bonjour Claudy,

qu'est qui ça va po et sur quel version travaille tu ?

isabelle


Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub
Bizzare chez moi ça va po????

J'ai même essayé avec ça:

Sub date_heures()
Dim c As Variant
For Each c In Selection
If IsEmpty(c) Then c = Date ' Format(Now, "dd mm yy hh:mm")
Next
End Sub

et ça va po non plus !!!

a+
Claudy

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour
ajouter






la
date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et
l'heure.




Quand j'affiche un format personnalisé date et heure jj/mm/aa
hh:mm,






j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel
?







Merci
Domi












Avatar
isabelle
...soir....

si tu applique la formule =ESTVIDE(A1) à une de ces cases est la
fonction retourne la valeur Vrai ?

isabelle


...soir....
En fait , il n'y a pas d'erreur, mais il n'y a rien qui se produit
Les cases vides ne se remplissent pas :-((
A+

"isabelle" a écrit dans le message de
news:
ça ne me dit pas quel est erreur rencontré. :-(

isabelle


Bonjour...
Xl 2002 sp3
A+
Claudy

"isabelle" a écrit dans le message de
news:
bonjour Claudy,

qu'est qui ça va po et sur quel version travaille tu ?

isabelle


Sub Macro1()
For Each c In Selection
If IsEmpty(c) Then c = Format(Now, "dd mm yy hh:mm")
next
End Sub
Bizzare chez moi ça va po????

J'ai même essayé avec ça:

Sub date_heures()
Dim c As Variant
For Each c In Selection
If IsEmpty(c) Then c = Date ' Format(Now, "dd mm yy hh:mm")
Next
End Sub

et ça va po non plus !!!

a+
Claudy

isabelle


Bonsoir à tous,
Ci dessous un extrait d'une macro (proposée sur MPFE) pour
ajouter






la
date
dans un certain nombre de cellules sélectionnées aléatoirement.

..............
For Each c In Ref
If IsEmpty(c) Then c = Date
Next c
..............

Cela m'inscrit la date du jour (Date)

En fait je voudrais qu'apparaissent dans la cellule la date et
l'heure.




Quand j'affiche un format personnalisé date et heure jj/mm/aa
hh:mm,






j'ai
toujours 00:00 à la place de l'heure

Quelle modif apporter pour obtenir l'heure correctement ?
Est-ce au niveau de la macro ? du formatage ? de la config Excel
?







Merci
Domi














1 2