XL 2013 Lenteur fichier dû aux Cases d'options

B

bof

XLDnaute Occasionnel

• 11 Février 2017

• #2

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+

 

Pièces jointes

• SubstCocherCase.xlsm

  160.5 KB · Affichages: 41

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 11 Février 2017

• #3

salut

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

 

Pièces jointes

• Exemple QCM.xlsm

  180.6 KB · Affichages: 38

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 12 Février 2017

• #4

Un grand MERCI !!!

Les 2 solutions me conviennent parfaitement.....

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 12 Février 2017

• #5

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

 

Pièces jointes

• SubstCocherCaseVariante.xlsm

  159.5 KB · Affichages: 39

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 12 Février 2017

• #6

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 !

 

Pièces jointes

• CocherOption.xlsm

  161.5 KB · Affichages: 41

Dernière édition: 12 Février 2017

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 13 Février 2017

• #7

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) :

 

Pièces jointes

• Sans titre.png

  5.8 KB · Affichages: 77

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 13 Février 2017

• #8

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..

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 13 Février 2017

• #9

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

 

Vote positif 0 Vote négatif