Incompatibilité de type avec Target.Value

RaceX · 14 Juin 2007

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 · 14 Juin 2007

Re : Incompatibilité de type avec Target.Value

Bonjour RaceX

essaye peut être le code ci dessous :

Code:

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 · 14 Juin 2007

Re : Incompatibilité de type avec Target.Value

bonjour RaceX

une petite verification s'impose

Code:

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

edit

salut Pierrot (plus rapide et plus simple :bravo)

RaceX · 14 Juin 2007

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 🙂

Incompatibilité de type avec Target.Value

RaceX

Guest

Pièces jointes

Pierrot93

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

RaceX

Guest

Discussions similaires

Incompatibilité de type avec Target.Value

RaceX

Guest

Pièces jointes

Pierrot93

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

RaceX

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency