XL 2013 Lenteur fichier dû aux Cases d'options

[alain.raphael]

Bonjour à Tous,

Mon fichier possède 1 questionnaire par feuillet. Ce questionnaire possède 80 questions OUI - NON et donc 160 cases d'options.

J'ai à peine fini mon 1er feuillet que des lenteurs apparaissent......alors qu'il me faut 50 feuillets


Je ne sais pas comment y remédier........


J'avais déjà vu des cases d'options intégrées aux cellules.....cela avait l'air moins lourd...mais je ne sais pas si j'ai si cela existe vraiment...

Des idées ?

En vous remerciant...

 

[bof]

Bonjour,
Une possibilité en pièce jointe.

[Nota] J'ai supposé qu'il s'agit seulement de relever les réponses. Parce que je ne vois pas comment tu pourrais intégrer le texte des 80 questions + 160 coches dans la même feuille.
A+

 

[Si...]

salut

un autre exemple avec 3 options (oui, non, ?).
Nota : j'ai laissé la macro pour dupliquer l'onglet 1.

 

[alain.raphael]

Un grand MERCI !!!

Les 2 solutions me conviennent parfaitement.....

 

[chris]

Bonjour

Une légère variante de la solution de bof : plutôt un double clic qu'un clic droit, et si les feuilles ont la même structure, un seul nom défini pour l'ensemble des feuilles

 

[Si...]

Re

« To be or not to be ?» , une autre variante de la variante de Chris (hello ), pour décocher les "fausses cases" et avec un ou exclusif …


Nota : avec les évènements BeforeRightClick et BeforeDoubleClick , seule la première cellule de la sélection est prise en compte donc le test If Target.Count = 1 Then … devient superflu !

 

[alain.raphael]

Re bonjour à vous 3.....

J'ai un souci....cela ne fonctionne pas chez moi.

J'ai bien sélectionné les cellules de réponses OuiNon dans mon Gestionnaire de noms....

Malgrè tout, cette fenêtre apparait (bibliothèque introuvable) :

 

[alain.raphael]

Mmmmm J'ai décoché quelquechose qui manquait dans Outils VBA -> Références.....

et maintenant cela marche sauf que j'ai pas le bon logo, j'ai ü qui apparait à la place du logo....

Pour info j'ai xl 2013..

 

[alain.raphael]

A y est.... j'ai mis les cellules en Wingding....