Incompatibilité de type avec Target.Value

[RaceX]

Bonjour le forum,

Un exemple concret parlant plus que les mots, je vous joints ici un exemple de mon problème. En gros, lorsque j'essaie de supprimer plusieurs cellules d'un coup j'obtiens ce jolie message d'erreur.

Merci par avance.

 

[Pierrot93]

Re : Incompatibilité de type avec Target.Value

Bonjour RaceX

essaye peut être le code ci dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("I5:L5000")) Is Nothing Then
If Not Target.Value = "titi" Then
MsgBox ("toto")
End If
End If
End Sub

bonne journée
@+

 

[pierrejean]

Re : Incompatibilité de type avec Target.Value

bonjour RaceX

une petite verification s'impose

If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub

edit

salut Pierrot (plus rapide et plus simple :bravo)

 

[RaceX]

Re : Incompatibilité de type avec Target.Value

Bonjour Pierrot93,

Merci pour ta réponse rapide comme l'éclair. C'était vraiment tout bête.

Vive ExcelDownloads 🙂

Edit: Merci aussi pierrejean 🙂