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
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