Double clic sur cellules

Bonjour le Forum,

Dans l’onglet « 2emetour » avec un double clic sur les cellules X, je voudrais aller jusqu’à la cellule X331 et X332
Le double clic fonctionne bien jusqu’à la cellule X277 pour l’UserForm1 et jusqu’à la cellule X278 pour l’UserForm2.
Mais si je veux aller + loin j’ai un message d’erreur.
Je vous ai mis les codes que j’utilise dans le VBA
Merci d’avance de votre aide
FICHIER_TEST.xlsm (180,6 Ko)

Capture-1

Bonjour

Tu as trop de cellules à prendre en compte dans l’instruction « Not Intersect »
J’ai contourné la difficulté en agissant sur le numéro de la colonne la couleur de la cellule et le dernier chiffre du numéro de la ligne pour différencier celles impaires de celles des paires afin d’appliquer le bon traitement donc d’ouvrir le formulaire adapté

Cela fonctionne

Testes et dis moi

FICHIER_TEST.xlsm (186,3 Ko)

Bonjour FFO,
Merci pour ton code.
Sur le fichier test cela fonctionne super bien.
Mais sur mon fichier original cela bug aux cellules X253 et X254 avec message d’erreur suivant.
Merci de ton aide

Capture-1

Pas d’autre choix que de me le transmettre car si dans le fichier test cela fonctionne ce n’est pas un problème de code mais plutôt celui du contexte dans lequel il est exécuté
Donc il faut que je l’ai en main pour cerner l’origine de ce message

Je te transmet une petite modif qui peut peut être résoudre la difficulté

Testes et si pas mieux transmet moi ton fichier final sans donnée confidentielle

FICHIER_TEST.xlsm (186,6 Ko)

Super ça fonctionne j’ai trouver d’où venait le dernier bug.
J’ai modifier un bout de code dans Private Sub UserForm_Initialize()
Merci beaucoup pour ton aide.
Bonne soirée à toi et au Forum et encore merci
PJ87

Ravi que t’y soit arrivé

Au plaisir de t’aider à nouveau

N’oublies pas de valider ma réponse toujours bien agréable

A très bientôt peut être