voila un soucis ma macros se composer ainsi mais a la saisie les
informations des que l'on tape la date voulu les données sont anglaise donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas
dd/jj/aaaa
Sub Action1111()
Dim dat As String
Range("c10").Select
response1 = Application.InputBox("Entrer La Date de Travail ?", ,
ActiveWorkbook.ActiveSheet.Range("c10").Value)
If response1 <> False Then ActiveCell.Value = response1
End Sub
merci
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
Jacky
Bonjour C'est qui cause qu'en anglais , le VBA Une solution...... '----- response1 = Application.InputBox("Entrer La Date de Travail ?", , Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy")) If response1 <> False Then ActiveCell.Value = Format(response1, "mm/dd/yyyy") '-------- Salutations JJ
"pPTIFRED" a écrit dans le message de news:
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les informations des que l'on tape la date voulu les données sont anglaise donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas dd/jj/aaaa
Sub Action1111() Dim dat As String Range("c10").Select response1 = Application.InputBox("Entrer La Date de Travail ?", , ActiveWorkbook.ActiveSheet.Range("c10").Value) If response1 <> False Then ActiveCell.Value = response1 End Sub merci
Bonjour
C'est qui cause qu'en anglais , le VBA
Une solution......
'-----
response1 = Application.InputBox("Entrer La Date de Travail ?", ,
Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then ActiveCell.Value = Format(response1,
"mm/dd/yyyy")
'--------
Salutations
JJ
"pPTIFRED" <pPTIFRED@discussions.microsoft.com> a écrit dans le message de
news:B41C82CD-D027-4266-9541-B128578B23AA@microsoft.com...
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les
informations des que l'on tape la date voulu les données sont anglaise
donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas
dd/jj/aaaa
Sub Action1111()
Dim dat As String
Range("c10").Select
response1 = Application.InputBox("Entrer La Date de Travail ?", ,
ActiveWorkbook.ActiveSheet.Range("c10").Value)
If response1 <> False Then ActiveCell.Value = response1
End Sub
merci
Bonjour C'est qui cause qu'en anglais , le VBA Une solution...... '----- response1 = Application.InputBox("Entrer La Date de Travail ?", , Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy")) If response1 <> False Then ActiveCell.Value = Format(response1, "mm/dd/yyyy") '-------- Salutations JJ
"pPTIFRED" a écrit dans le message de news:
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les informations des que l'on tape la date voulu les données sont anglaise donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas dd/jj/aaaa
Sub Action1111() Dim dat As String Range("c10").Select response1 = Application.InputBox("Entrer La Date de Travail ?", , ActiveWorkbook.ActiveSheet.Range("c10").Value) If response1 <> False Then ActiveCell.Value = response1 End Sub merci
michdenis
Bonjour pPTIFRED,
Perso, je préfère cette forme là ... elle te permet de donner à la cellule de destination le format de cellule de ton choix.
response1 = Application.InputBox("Entrer La Date de Travail ?", , _ Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then With ActiveCell .NumberFormat = "DD/MM/yyyy" .Value = CDate(response1) End With End If
Salutations!
"pPTIFRED" a écrit dans le message de news:
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les informations des que l'on tape la date voulu les données sont anglaise donc inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas dd/jj/aaaa
Sub Action1111() Dim dat As String Range("c10").Select response1 = Application.InputBox("Entrer La Date de Travail ?", , ActiveWorkbook.ActiveSheet.Range("c10").Value) If response1 <> False Then ActiveCell.Value = response1 End Sub merci
Bonjour pPTIFRED,
Perso, je préfère cette forme là ... elle te permet de donner à la cellule de destination le format de cellule de ton choix.
response1 = Application.InputBox("Entrer La Date de Travail ?", , _
Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then
With ActiveCell
.NumberFormat = "DD/MM/yyyy"
.Value = CDate(response1)
End With
End If
Salutations!
"pPTIFRED" <pPTIFRED@discussions.microsoft.com> a écrit dans le message de news:
B41C82CD-D027-4266-9541-B128578B23AA@microsoft.com...
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les
informations des que l'on tape la date voulu les données sont anglaise donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas
dd/jj/aaaa
Sub Action1111()
Dim dat As String
Range("c10").Select
response1 = Application.InputBox("Entrer La Date de Travail ?", ,
ActiveWorkbook.ActiveSheet.Range("c10").Value)
If response1 <> False Then ActiveCell.Value = response1
End Sub
merci
Perso, je préfère cette forme là ... elle te permet de donner à la cellule de destination le format de cellule de ton choix.
response1 = Application.InputBox("Entrer La Date de Travail ?", , _ Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then With ActiveCell .NumberFormat = "DD/MM/yyyy" .Value = CDate(response1) End With End If
Salutations!
"pPTIFRED" a écrit dans le message de news:
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les informations des que l'on tape la date voulu les données sont anglaise donc inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas dd/jj/aaaa
Sub Action1111() Dim dat As String Range("c10").Select response1 = Application.InputBox("Entrer La Date de Travail ?", , ActiveWorkbook.ActiveSheet.Range("c10").Value) If response1 <> False Then ActiveCell.Value = response1 End Sub merci
Jacky
Bonjour Michel
En effet, c'est bien mieux
JJ
"michdenis" a écrit dans le message de news:%
Bonjour pPTIFRED,
Perso, je préfère cette forme là ... elle te permet de donner à la cellule de destination le format de cellule de ton choix.
response1 = Application.InputBox("Entrer La Date de Travail ?", , _ Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then With ActiveCell .NumberFormat = "DD/MM/yyyy" .Value = CDate(response1) End With End If
Salutations!
"pPTIFRED" a écrit dans le message de news:
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les informations des que l'on tape la date voulu les données sont anglaise donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas dd/jj/aaaa
Sub Action1111() Dim dat As String Range("c10").Select response1 = Application.InputBox("Entrer La Date de Travail ?", , ActiveWorkbook.ActiveSheet.Range("c10").Value) If response1 <> False Then ActiveCell.Value = response1 End Sub merci
Bonjour Michel
En effet, c'est bien mieux
JJ
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23My4vS3vFHA.3764@TK2MSFTNGP09.phx.gbl...
Bonjour pPTIFRED,
Perso, je préfère cette forme là ... elle te permet de donner à la cellule
de destination le format de cellule de ton choix.
response1 = Application.InputBox("Entrer La Date de Travail ?", , _
Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then
With ActiveCell
.NumberFormat = "DD/MM/yyyy"
.Value = CDate(response1)
End With
End If
Salutations!
"pPTIFRED" <pPTIFRED@discussions.microsoft.com> a écrit dans le message de
news:
voila un soucis ma macros se composer ainsi mais a la saisie les
informations des que l'on tape la date voulu les données sont anglaise
donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas
dd/jj/aaaa
Sub Action1111()
Dim dat As String
Range("c10").Select
response1 = Application.InputBox("Entrer La Date de Travail ?", ,
ActiveWorkbook.ActiveSheet.Range("c10").Value)
If response1 <> False Then ActiveCell.Value = response1
End Sub
merci
Perso, je préfère cette forme là ... elle te permet de donner à la cellule de destination le format de cellule de ton choix.
response1 = Application.InputBox("Entrer La Date de Travail ?", , _ Format(ActiveWorkbook.ActiveSheet.Range("c10").Value, "dd/mm/yyyy"))
If response1 <> False Then With ActiveCell .NumberFormat = "DD/MM/yyyy" .Value = CDate(response1) End With End If
Salutations!
"pPTIFRED" a écrit dans le message de news:
bonjour
voila un soucis ma macros se composer ainsi mais a la saisie les informations des que l'on tape la date voulu les données sont anglaise donc
inverse comment faire pour quel reste au meme format jj/dd/aaaa et non pas dd/jj/aaaa
Sub Action1111() Dim dat As String Range("c10").Select response1 = Application.InputBox("Entrer La Date de Travail ?", , ActiveWorkbook.ActiveSheet.Range("c10").Value) If response1 <> False Then ActiveCell.Value = response1 End Sub merci
