Erreur d'éxecution 13 suite a une suppression de plage

[statik69]

Bonjour a tous,
Un petit probleme dont je pense que l'un d'entre vous connaittra la réponse:

Quand je supprime une plage de mon tableau, excel me déclanche l'erreur d'éxecution 13 qui est du a la ligne en rouge, j'ai une idée du pourquoi (je cible une cellule donc la suppression d'une plage me crée cette erreur) seulement je ne sais pas comment faire autrement... help


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

' Pour les pannes urgentes

Dim Panne As Variant

If Target = "0" Then
Panne = Application.InputBox("Veuillez décrire la panne :" + vbLf + "N'oubliez pas de signer SVP", "Panne urgente")

If VarType(Panne) = vbBoolean Then
Exit Sub

Else: Target.AddComment Panne

End If

End If

' Pour les pannes simples

If Target = "2" Then
Panne = Application.InputBox("Veuillez d'écrire la défaillance :" + vbLf + "N'oubliez pas de signer SVP", "Panne")

If VarType(Panne) = vbBoolean Then
Exit Sub

Else: Target.AddComment Panne
End If
End If
End Sub

 

[Pierrot93]

Re : Erreur d'éxecution 13 suite a une suppression de plage

Bonjour,

essaye en plcant peut être ceci en première instruction :

If Target.Count > 1 Then Exit Sub

bon après midi
@+

Edition :bonjour Robert

 

[Robert]

Re : Erreur d'éxecution 13 suite a une suppression de plage

Bonjour Statik, bonjour le forum

Peut-être en rajoutant cette ligne après ta déclaration Dim... :

If Target.Cells.Count > 1 Then Exit Sub

[Édition]
Arf... À 5 minutes près j'avais l'air moins c...

 

[statik69]

Re : Erreur d'éxecution 13 suite a une suppression de plage

ça fonctionne à merveille vous etes des génies merci encore

Bonne aprem à la prochaine galère