J'ai essayé le code
Private Sub DATEPLA14_AfterUpdate()
DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
Cellule(2, 5) = Modifier.DATEPLA14.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste
Internes").Range("A65536").End(xlUp).Row).Address
End Sub
Mais j'ai toujours la date en anglais (mm/jj/yyyy)
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
michdenis
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value" DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée. Cellule(2, 5).NumberFormat = "dd/mm/yyyy" Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" a écrit dans le message de news: J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1) Cellule(2, 5) = Modifier.DATEPLA14.Text Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value"
DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée.
Cellule(2, 5).NumberFormat = "dd/mm/yyyy"
Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" <NoSpam-af0509@teledisnet.be> a écrit dans le message de news:OdlssuYSEHA.2128@TK2MSFTNGP11.phx.gbl...
J'ai essayé le code
Private Sub DATEPLA14_AfterUpdate()
DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
Cellule(2, 5) = Modifier.DATEPLA14.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste
Internes").Range("A65536").End(xlUp).Row).Address
End Sub
Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value" DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée. Cellule(2, 5).NumberFormat = "dd/mm/yyyy" Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" a écrit dans le message de news: J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1) Cellule(2, 5) = Modifier.DATEPLA14.Text Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Starwing
Bonjour,
Essaie ceci:
Range("Adéterminer").NumberFormat = "dd/mm/yyyy"
Starwing
-----Message d'origine----- J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
.
Bonjour,
Essaie ceci:
Range("Adéterminer").NumberFormat = "dd/mm/yyyy"
Starwing
-----Message d'origine-----
J'ai essayé le code
Private Sub DATEPLA14_AfterUpdate()
DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)
-----Message d'origine----- J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
.
Albert
Oui Michdenis c'est un TextBox je vais essayé ce que tu me donnes Merci
"michdenis" a écrit dans le message news:
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value" DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée. Cellule(2, 5).NumberFormat = "dd/mm/yyyy" Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" a écrit dans le message de news:
J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1) Cellule(2, 5) = Modifier.DATEPLA14.Text Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Oui Michdenis c'est un TextBox
je vais essayé ce que tu me donnes
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
ufcEzFZSEHA.1168@TK2MSFTNGP11.phx.gbl...
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se
retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value"
DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée.
Cellule(2, 5).NumberFormat = "dd/mm/yyyy"
Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" <NoSpam-af0509@teledisnet.be> a écrit dans le message de
news:OdlssuYSEHA.2128@TK2MSFTNGP11.phx.gbl...
J'ai essayé le code
Private Sub DATEPLA14_AfterUpdate()
DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
Cellule(2, 5) = Modifier.DATEPLA14.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste
Internes").Range("A65536").End(xlUp).Row).Address
End Sub
Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Oui Michdenis c'est un TextBox je vais essayé ce que tu me donnes Merci
"michdenis" a écrit dans le message news:
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value" DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée. Cellule(2, 5).NumberFormat = "dd/mm/yyyy" Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" a écrit dans le message de news:
J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1) Cellule(2, 5) = Modifier.DATEPLA14.Text Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Albert
Merci c'est ce que je vais faire.
"Starwing" a écrit dans le message news: 17ba001c44992$1a136cb0$ Bonjour,
Essaie ceci:
Range("Adéterminer").NumberFormat = "dd/mm/yyyy"
Starwing
-----Message d'origine----- J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
.
Merci c'est ce que je vais faire.
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message news:
17ba001c44992$1a136cb0$a301280a@phx.gbl...
Bonjour,
Essaie ceci:
Range("Adéterminer").NumberFormat = "dd/mm/yyyy"
Starwing
-----Message d'origine-----
J'ai essayé le code
Private Sub DATEPLA14_AfterUpdate()
DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells
(Liste.ListIndex + 1, 1)
"Starwing" a écrit dans le message news: 17ba001c44992$1a136cb0$ Bonjour,
Essaie ceci:
Range("Adéterminer").NumberFormat = "dd/mm/yyyy"
Starwing
-----Message d'origine----- J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells (Liste.ListIndex + 1, 1)
Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
.
Albert
Re bonsoir,
Je viens d'essayer ce que tu me dis mais j'ai toujours en Anglais, j'ai essayé les réponses de Michdenis et Starwing mais rien ne change. Merci quand même. Y a un truc mais quoi ? je ne saisi pas quoi c'est peut-être bête comme chou mais moi pas trouvé. Au prochain essai ?? "michdenis" a écrit dans le message news:
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value" DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée. Cellule(2, 5).NumberFormat = "dd/mm/yyyy" Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" a écrit dans le message de news:
J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1) Cellule(2, 5) = Modifier.DATEPLA14.Text Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Re bonsoir,
Je viens d'essayer ce que tu me dis mais j'ai toujours en Anglais, j'ai
essayé les réponses de Michdenis et Starwing mais rien ne change.
Merci quand même.
Y a un truc mais quoi ? je ne saisi pas quoi c'est peut-être bête comme chou
mais moi pas trouvé.
Au prochain essai ??
"michdenis" <michdenis@hotmail.com> a écrit dans le message news:
ufcEzFZSEHA.1168@TK2MSFTNGP11.phx.gbl...
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se
retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value"
DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée.
Cellule(2, 5).NumberFormat = "dd/mm/yyyy"
Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" <NoSpam-af0509@teledisnet.be> a écrit dans le message de
news:OdlssuYSEHA.2128@TK2MSFTNGP11.phx.gbl...
J'ai essayé le code
Private Sub DATEPLA14_AfterUpdate()
DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy")
Dim Cellule As Range
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
Cellule(2, 5) = Modifier.DATEPLA14.Text
Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste
Internes").Range("A65536").End(xlUp).Row).Address
End Sub
Mais j'ai toujours la date en anglais (mm/jj/yyyy)
Je viens d'essayer ce que tu me dis mais j'ai toujours en Anglais, j'ai essayé les réponses de Michdenis et Starwing mais rien ne change. Merci quand même. Y a un truc mais quoi ? je ne saisi pas quoi c'est peut-être bête comme chou mais moi pas trouvé. Au prochain essai ?? "michdenis" a écrit dans le message news:
Bonjour Albert,
Ce n'est pas toujours évident de lire le code d'autrui et tenter de se retrouver (ex: DATEPLA14 est-ce un contrôle
Textbox ? )
Une suggestion pour ton code :
Si Datepla14 est un textbox, j'aurais plutôt tendance à utiliser ceci :
La propriété "Text" au lieu de "Value" DATEPLA14.text = Format(DATEPLA14.Value, "dd/mm/yyyy")
Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1)
'cette ligne est ajoutée. Cellule(2, 5).NumberFormat = "dd/mm/yyyy" Cellule(2, 5) = Modifier.DATEPLA14.Text
Salutations!
"Albert" a écrit dans le message de news:
J'ai essayé le code Private Sub DATEPLA14_AfterUpdate() DATEPLA14.Value = Format(DATEPLA14.Value, "dd/mm/yyyy") Dim Cellule As Range Set Cellule = Sheets("Liste Internes").Cells(Liste.ListIndex + 1, 1) Cellule(2, 5) = Modifier.DATEPLA14.Text Liste.RowSource = Sheets("Liste Internes").Range("A1:AE" & Sheets("Liste Internes").Range("A65536").End(xlUp).Row).Address End Sub Mais j'ai toujours la date en anglais (mm/jj/yyyy)
