double condition sur l'expression "If not intersect" |
Titre du sujet : double condition sur l'expression "If not intersect" par gladius le 06/07/2011 12:11:15 Bonjour J'aurai une petite question sur la synthaxe de l'expression suivante. If Not (Intersect(Target, [N6:O30]) Is Nothing) Then ci-dessous mon code: 'Accès au calendrier par un double clic en 1e cas Vu que ce tableau possede une frontiere orange il est normal de ne pas activer la fonction calendrier : D'ou ma façon de noter If Not (Intersect(Target, [N6:O30]) Is Nothing) And .Range ("N6:030").Interior.ColorIndex = xlNone Then ...... ...lancer le calendrier. Apres le double clic, rien ne se passe. De plus, comme le tableau peut evoluer par les boutons d'insertion/suppression de ligne, j'ai tenté de mettre une fonction ci-dessous (si la ligne appartient au tableau. Private Function ActivLignOK() As Boolean Ce code est placé avant le 1e, cela pour chasser la zone approximative N6:O30, mais je suis confronté à une erreur de compilation. |
Forums