Macro,"majuscule", me fausse le résultat de la 1ère

[Christian0258]

Bonjour à tout le forum,
Pourriez-vous me dire pourquoi, dans la 2ème macro, la condition ;If Not IsNumeric est sans effet..
je tape 0345 "et la macro majuscule" me transforme en 0,15625

Private Sub Worksheet_Change(ByVal Target As Range) 'de job75
Application.EnableEvents = False
Set Var = Application.Intersect(Target, Range("F14:NG15,F20:NG21"))
If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
If Not Var Is Nothing And IsNumeric(Target.Value) Then
Target.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Format(Target, "0000"), 2)
End If
End If
Application.EnableEvents = True

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("F14:NG15")) Is Nothing Then
If Not IsNumeric(Range("F14:NG15")) Then 'j'ai mis cette condition
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
Application.EnableEvents = True
End Sub

Merci pour votre aide,
Bien amicalement,
Christian

 

[Lone-wolf]

Bonjour Cnristian

Target.NumberFormat = "0000" sans Left

 

[Christian0258]

Re, le forum, Lone-wolf

Merci, Lone-wolf, pour ton aide.

à la place de :
Target.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Format(Target, "0000"), 2)

à te lire.
Bien à toi,
Christian

 

[Dranreb]

Bonjour
Au lieu de: If Not IsNumeric(Range("F14:NG15")) Then
J'aurais mis, me semble-t-il : If VarType(Target.Value) = vbString Then

 

[Christian0258]

Re, le forum,Dranreb,

Merci, Dranreb, pour ton aide. Ta solution fonctionne parfaitement.
Encore merci.
Bien à toi,
Christian