[Résolu] Problème worksheet_change

LOLO13130

XLDnaute Nouveau
Bonjour à tous,

J'ai réalisé 3 macros (qui fonctionnent quand on les lance manuellement) que je souhaite déclencher au changement de certaines cellules de la page "Réglages du kit".
J'ai donc essayé de créer une worksheet_change mais elle me lance seulement 2 macros sur 3 (Réglages_masquer_feuilles et Réglages_masquer_colonnes). Voici le code :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union([D3], [D5], [D7], [I3])) Is Nothing Then
    Réglages_masquer_feuilles
If Application.Intersect(Target, Union([I3], [K3])) Is Nothing Then Exit Sub
    Réglages_masquer_colonnes
If Application.Intersect(Target, Union([D7], [D9])) Is Nothing Then Exit Sub
    Réglages_masquer_lignes
End If
End Sub

Pouvez-vous me venir en aide s'il-vous-plaît ?
Merci d'avance.
Laurent
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir LOLO13130,

Essayez peut-être :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Union([D3], [D5], [D7], [I3])) Is Nothing Then Réglages_masquer_feuilles
   If Not Application.Intersect(Target, Union([I3], [K3])) Is Nothing Then Réglages_masquer_colonnes
   If Not Application.Intersect(Target, Union([D7], [D9])) Is Nothing Then Réglages_masquer_lignes
End Sub
 

Discussions similaires