Discussion :

[jerome71300]

Bonjour,

Je rencontre un problème avec une macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

[jerome71300]

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.

[Philippe Tulliez]

Bonjour,

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

[jerome71300]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !