Target.Value et sélection multiple

Bonjour,

Je rencontre un problème avec une macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub WorkSheet_Change(ByVal Target As Range) bla...bla...bla... ElseIf Not Intersect(Target, Range("B195:B209")) Is Nothing Then Set ws = Application.ActiveSheet L = Target.Row If Target.Value <> "" Then
Mon problème est que ça plante sur cette dernière ligne si je sélection plusieurs cellules de la plage donnée :
Erreur d'exécution '13':
Incompatibilité de type

J'ai essayé plusieurs trucs mais je n'arrive à rien.

Merci de votre aide.

Bonjour,

Et en testant le nombre de cellules sélectionnées au tout début de la procédure ?
Code:

1 2 3 4 Private Sub WorkSheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub
Cordialement.

Merci d'avoir répondu.
J'ai en effet testé cela et ça fonctionne.

Le problème est que j'ai une autre macro qui me permet de vider ces cases quand on décoche une case.

J'ai donc besoin que cette macro s'exécute.

Bonjour,

Citation:

Le problème est que j'ai une autre macro qui me permet de vider ces cases quand on décoche une case.
J'ai donc besoin que cette macro s'exécute.

Tu parles de cases ou de cellules ?
Il n'y a pas de miracle, on ne peux pas tout faire sur une multi-sélection. Il faudra sans doute passer par une boucle For Each ou un Area mais sans voir un peu plus de code c'est difficile de t'aider

Citation:

Envoyé par jerome71300

Le problème est que j'ai une autre macro qui me permet de vider ces cases quand on décoche une case.

Si le code de cette macro est dans la même procédure, essayez :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub WorkSheet_Change(ByVal Target As Range)
 
 
        Select Case Target.Count
 
               Case 1
 
                    If Not Intersect(Target, Range("B195:B209")) Is Nothing Then
                       Set ws = ActiveSheet
                       L = Target.Row
                       '....
                       Set ws = Nothing
 
               Case Else
 
                    ' Effacement des cellules
 
        End Select

Si une macro interfère sur cette zone de la colonne B, ajoutez dans le code de votre macro :

Code:

1
2
3
4
5
 
 
        Application.EnableEvents = False ' Au début de la macro
        '....
        Application.EnableEvents = True ' A la fin de la macro.

Cordialement.

Citation:
Envoyé par Eric KERGRESSE
Si une macro interfère sur cette zone de la colonne B, ajoutez dans le code de votre macro :
Code:

1 2 3 Application.EnableEvents = False ' Au début de la macro '.... Application.EnableEvents = True ' A la fin de la macro.
Cordialement.
Merci.
C'était bien ça !