Comment ne rien faire dans une sub

[Phillip]

Bonjour,

J'ai crée une sub dans une feuille qui procède à différentes actions dans mon classeur, déclenchée par la saisie du mot "imprevu"

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "imprevu" Then
action 1
action 2
etc...
endif

Ca marche très bien, sauf que si je rajoute ou supprime des lignes manuellement dans mon fichier j'ai une erreur. J'ai donc rajouté :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> "imprevu" Then
Exit Sub


ElseIf Target = "imprevu" Then
action 1
action2
etc...
endif
Et mon exit sub ne marche pas....Je ne comprends pas...

merci de vos lumières

Phillip

 

[Phillip]

Re : Comment ne rien faire dans une sub

Bonjour,

J'ai crée une sub dans une feuille qui procède à différentes actions dans mon classeur, déclenchée par la saisie du mot "imprevu"

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "imprevu" Then
action 1
action 2
etc...
endif

Ca marche très bien, sauf que si je rajoute ou supprime des lignes manuellement dans mon fichier j'ai une erreur. J'ai donc rajouté :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> "imprevu" Then
Exit Sub


ElseIf Target = "imprevu" Then
action 1
action2
etc...
endif
Et mon exit sub ne marche pas....Je ne comprends pas...

merci de vos lumières

Phillip

NB : ça sort bien de ma sub si je tape n'importe quoi d'autre que imprevu...

 

[Dranreb]

Re : Comment ne rien faire dans une sub

Bonjour.
Ajoutez devant :

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

 

[Phillip]

Re : Comment ne rien faire dans une sub

Bonjour Dranreb,

Merci ! Ca marche parfaitement ! Maintenant, j'aimerais comprendre pourquoi ? Pourquoi <> 1 ?

Cordialement

 

[Dranreb]

Re : Comment ne rien faire dans une sub

Parce que lorsque vous ajoutez une ligne ça provoque l'évènement pour un Target représentant toute cette ligne.
Target.Value est alors un tableau, et sa comparaison avec un scalaire provoque une incompatibilité de type.