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
Ricky [MVP]
Bonjour *Laurent* (et tous les lecteurs) | Bonjour | Je désire envoyer dans une cellule une date au format | jjjj jj mmmm aaaa après clique sur un bouton. | Merci | Laurent
Si tu appliques le format à la cellule toute date que tu y places va respecter le format mais il faudrait préciser ce que tu veux dire par "envoyer après clic sur un bouton" La date du jour ? une date prise qque part ? Où?
Une méthode consiste à démarrer l'enregistreur de Macro, effectuer une fois les opérations manuellement puis assigner la macro à un bouton.
Bonjour *Laurent* (et tous les lecteurs)
| Bonjour
| Je désire envoyer dans une cellule une date au format
| jjjj jj mmmm aaaa après clique sur un bouton.
| Merci
| Laurent
Si tu appliques le format à la cellule toute date que tu y places va respecter le format mais il faudrait préciser ce que tu veux dire par "envoyer après clic sur un bouton"
La date du jour ? une date prise qque part ? Où?
Une méthode consiste à démarrer l'enregistreur de Macro, effectuer une fois les opérations manuellement puis assigner la macro à un bouton.
Bonjour *Laurent* (et tous les lecteurs) | Bonjour | Je désire envoyer dans une cellule une date au format | jjjj jj mmmm aaaa après clique sur un bouton. | Merci | Laurent
Si tu appliques le format à la cellule toute date que tu y places va respecter le format mais il faudrait préciser ce que tu veux dire par "envoyer après clic sur un bouton" La date du jour ? une date prise qque part ? Où?
Une méthode consiste à démarrer l'enregistreur de Macro, effectuer une fois les opérations manuellement puis assigner la macro à un bouton.
Sub zaza() Dim dtE Do dtE = Application.InputBox("Pour confirmer, " & _ "cliquez sur OK ", "Veuillez saisir une date", _ Format(Now, "dd/mm/yyyy"), , , , , 1) Loop Until dtE <> "" On Error Resume Next Sheets("Feuil1").[A1] = Format(CDate(dtE), "dddd dd mmmm yyyy") End Sub
ChrisV
"Laurent" a écrit dans le message de news:21f1501c45d24$8da36cc0$ Bonjour Je désire envoyer dans une cellule une date au format jjjj jj mmmm aaaa après clique sur un bouton. Merci Laurent
Bonjour Laurent,
Associée au bouton...
Sub zaza()
Dim dtE
Do
dtE = Application.InputBox("Pour confirmer, " & _
"cliquez sur OK ", "Veuillez saisir une date", _
Format(Now, "dd/mm/yyyy"), , , , , 1)
Loop Until dtE <> ""
On Error Resume Next
Sheets("Feuil1").[A1] = Format(CDate(dtE), "dddd dd mmmm yyyy")
End Sub
ChrisV
"Laurent" <Laurent@fichet.fr> a écrit dans le message de
news:21f1501c45d24$8da36cc0$a601280a@phx.gbl...
Bonjour
Je désire envoyer dans une cellule une date au format
jjjj jj mmmm aaaa après clique sur un bouton.
Merci
Laurent
Sub zaza() Dim dtE Do dtE = Application.InputBox("Pour confirmer, " & _ "cliquez sur OK ", "Veuillez saisir une date", _ Format(Now, "dd/mm/yyyy"), , , , , 1) Loop Until dtE <> "" On Error Resume Next Sheets("Feuil1").[A1] = Format(CDate(dtE), "dddd dd mmmm yyyy") End Sub
ChrisV
"Laurent" a écrit dans le message de news:21f1501c45d24$8da36cc0$ Bonjour Je désire envoyer dans une cellule une date au format jjjj jj mmmm aaaa après clique sur un bouton. Merci Laurent
