Merci pour ta réponse mais j'ai sans doute donné le mauvais exemple car je travaille sur des dates bien inférieures à 1900 comme par exemple 01/01/1600.
Roger
"CAP2" a écrit dans le message de news: %
Salut,
fais plutôt :
en D1 : ÚTE(C1;B1;A1)
Ca marche ?
CAP2
Salut,
Merci pour ta réponse mais j'ai sans doute donné le mauvais exemple car je
travaille sur des dates bien inférieures à 1900 comme par exemple
01/01/1600.
Roger
"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de news:
%23X6C4waSFHA.1268@TK2MSFTNGP14.phx.gbl...
Merci pour ta réponse mais j'ai sans doute donné le mauvais exemple car je travaille sur des dates bien inférieures à 1900 comme par exemple 01/01/1600.
Roger
"CAP2" a écrit dans le message de news: %
Salut,
fais plutôt :
en D1 : ÚTE(C1;B1;A1)
Ca marche ?
CAP2
Frédo P
Bonsoir Roger Je ne vois qu'une possibilité par VBA Colle cette procédure dans le code de la feuille utilisée.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo gest Application.EnableEvents = False If InStr(Target, "/") = 2 Then Target.Value = "0" & Target.Value End If If Mid(Target.Value, 5, 1) = "/" Then Target.Value = Left(Target.Value, 3) & "0" & Right(Target.Value, Len(Target.Value) - 3) End If gest: Application.EnableEvents = True End Sub
"roger.dessemon" a écrit dans le message de news:426d109c$0$847$
Salut,
Merci pour ta réponse mais j'ai sans doute donné le mauvais exemple car je travaille sur des dates bien inférieures à 1900 comme par exemple 01/01/1600.
Roger
"CAP2" a écrit dans le message de news: %
Salut,
fais plutôt :
en D1 : ÚTE(C1;B1;A1)
Ca marche ?
CAP2
Bonsoir Roger
Je ne vois qu'une possibilité par VBA
Colle cette procédure dans le code de la feuille utilisée.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo gest
Application.EnableEvents = False
If InStr(Target, "/") = 2 Then
Target.Value = "0" & Target.Value
End If
If Mid(Target.Value, 5, 1) = "/" Then
Target.Value = Left(Target.Value, 3) & "0" & Right(Target.Value,
Len(Target.Value) - 3)
End If
gest:
Application.EnableEvents = True
End Sub
"roger.dessemon" <roger.dessemon@wanadoo.fr> a écrit dans le message de
news:426d109c$0$847$8fcfb975@news.wanadoo.fr...
Salut,
Merci pour ta réponse mais j'ai sans doute donné le mauvais exemple car je
travaille sur des dates bien inférieures à 1900 comme par exemple
01/01/1600.
Roger
"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de news:
%23X6C4waSFHA.1268@TK2MSFTNGP14.phx.gbl...
Bonsoir Roger Je ne vois qu'une possibilité par VBA Colle cette procédure dans le code de la feuille utilisée.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) On Error GoTo gest Application.EnableEvents = False If InStr(Target, "/") = 2 Then Target.Value = "0" & Target.Value End If If Mid(Target.Value, 5, 1) = "/" Then Target.Value = Left(Target.Value, 3) & "0" & Right(Target.Value, Len(Target.Value) - 3) End If gest: Application.EnableEvents = True End Sub
"roger.dessemon" a écrit dans le message de news:426d109c$0$847$
Salut,
Merci pour ta réponse mais j'ai sans doute donné le mauvais exemple car je travaille sur des dates bien inférieures à 1900 comme par exemple 01/01/1600.
