Run-time error 13, type mismatch

[Cougar]

Bonsoir tout le monde,

Avec le code suivant j'ai ce problème : lorsque je change le contenu de ma cellule le code réagit (il est tronqué car trop long et inutile pour le moment) et fonctionne très bien sauf que... j'efface le contenu de la cellule en $M$4 et je voudrais que s'arrête d'ou "And Target.Value = "" Then Goto Fin" mais cela ne fonctionne pas. Comment corriger ?

Merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$4" And Target.Value = "" Then
GoTo Fin
Else
If Target.Address = "$M$4" And Target.Value = "E1" Then
Range("a13") = "9"
Range("e13") = "08:15"
Range("f13") = "16:45"
Call CommandButton1_Click
GoTo Fin
End If
End If

 

[MJ13]

Re : Run-time error 13, type mismatch

Bonjour Cougar

Normalement quand on met un goto (goto fin dans ton exemple), il faut que tu es dans ta routine

fin:

Notons que tu peux avoir plusieurs fin ex: fin1, fin2 etc...

 

[jp14]

Re : Run-time error 13, type mismatch

Bonsoir

Bonsoir tout le monde,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$4" And Target.Value = "" Then
GoTo Fin
Else
If Target.Address = "$M$4" And Target.Value = "E1" Then
Range("a13") = "9"
Range("e13") = "08:15"
Range("f13") = "16:45"
Call CommandButton1_Click
GoTo Fin
End If
End If

Le mot "fin" n'est pas à la bonne place par rapport aux End If.

Le plus simple est de mettre exit sub.

JP

 

[James007]

Re : Run-time error 13, type mismatch

Cougar,

Pour éviter les erreurs ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Target.Address = "$M$4" And Target.Value = "E1" Then
        Range("a13") = "9"
        Range("e13") = "08:15"
        Range("f13") = "16:45"
        Call CommandButton1_Click
    ElseIf IsEmpty(Range("M4")) Then
        Range("a13,e13,f13").ClearContents
    End If
End Sub

🙂
A+