Bonjour à tous.

Voilà je souhaite faire un sondage et j'aimerais remplacer les cases ou je remplis a la mano par des 1 afin de comptabiliser et avoir un bilan par des cases a cocher.

Case cocher=1
Case pas cocher=0

Voici mon fichier source.

Merci d'avance de votre aide.

Michel.G

Bonjour Michel,

Salut MTH.

Je viens de voir le travail accompli par tes soins en effet je n'ai pas été très clair.
Ce que je souhaitais c'était de mettre en place des cases à cocher comme un formulaire internet afin d'utiliser uniquement la souris ce qui permetterait d'éviter d'utiliser le clavier et de mettre des 1 ou des x sur chaque case.

Je ne sais pas du tout si c'est possible mais je suis en plein apprentissage d'excel et je pense qu'il faudrait faire une macro mais étant débutant et devant le terminer avant début Août cela est fastidieux.

En tout cas merci pour ce que tu as fait et pour les explications que j'apprécie beaucoup.

Pour les photos je suis ravi de t'avoir aider à t'évader un peu.

Michel.G

Bonsoir mishka, Mth, le Forum,

Sur la même lignée que Mth, je te déconseille fortement le recours à autant d'objets "cases à cocher" (ou Checkbox) sur une feuille de calcul. Ton classeur risque vite de devenir une infâme usine à gaz beaucoup trop lourde.

Toujours sur la base du fichier que Mth t'a fourni, je te propose une alternative : déclencher l'inscription d'un "x" (ou son effacement) sur un simple double-clic dans les cellules ciblées.

Comme ça, pas de jaloux : l'adepte du "tout à la souris" y trouve son compte, alors que le virtuose du clavier peut continuer à pratiquer son sport favori

Pour ce faire, j'ai ajouté dans le classeur en pièce jointe la procédure ci-dessous, placée dans le module de code de la feuille "Niveau1" :


Cordialement,

PS: je confirme... jolies photos.

Bonsoir Michel,

J'ai revu ma copie que tu trouveras ci-jointe, je ne suis pas totalement satisfaite de la solution mais cela peut peut-être te dépanner en attendant mieux...

Ceci dit, j'ai volontairement évité les cases à cocher car je me suis dit que 25 jours fois 31 lignes fois 4 tableaux, ça faisait plusieurs milliers de cases à cocher.... je crois que c'est trop...

Pour les validations de données, j'ai modifié mon x en R majuscule, qui en police Wingling 2 ressemble à une case à cocher, le X est peut-être aussi bien, à toi de voir.

Ensuite j'ai mis une procédure événementielle sur la feuil1 qui à chaque double clic:
      - si la cellule est vide la coche
      - si la cellule est cochée la décoche
Désolée, je n'ai pas réussi à faire la même chose avec un simpe clic ce qui eut été plus proche de ta demande ...
Tu trouveras dans le fichier le code attaché à l'onglet Feuil1 (en cliquant sur ALT+F11):

Je ne suis pas une pro du VBA, on peut certainement écrire ça bien mieux
Par ailleurs, pour la formule total par ligne (merci JM ) un NBVAL() est aussi bien (cette fonction compte le nombre de cellules non vides dans une plage)

J'ai aussi modifié les formules tout en bas:
Cette formule en N178 permet de ne pas avoir d'affichage #DIV/0 si la cellule L181 est égale à zéro.

Voilà, il y a certainement de meilleures solutions c'est pourquoi je vais suivre ton fil avec attention, mais peut-être cela peut-il te dépanner un peu.

Début août ça va venir vite.... alors bon courage Michel et à bientôt,

mth


Edit: sourire.... le temps que j'écrive tout ça, formidable, Didier est passé par là , du coup Michel oublie mon code VBA car avec Didier tu as un très beau code écrit comme il faut.
Et moi je suis aussi ravie car en lisant cette réponse j'ai une fois de plus appris des choses .
Mes amitiés à tous,
mth

Bonjour tout le monde.

Merci à tous tout d'abord pour votre rapidité et votre collaboration.
Un travail remarquable et meilleur que mes espérances.

Par contre je reviens vers vous car lorsque je fais un copier coller de la feuille sur une nouvelle le double clique ne fonctionne pas. De nature curieux, j'aimerais simplement connaître la raison car lorsque je fais un copier/déplacer de la feuille le double clique fonctionne à merveille.

Merci encore et longue vie à ce beau site.

Miche.G

Bonjour tout le monde

Pourtant tout est dans les explications de

Didier :
Citation :

Pour ce faire, j'ai ajouté dans le classeur en pièce jointe la procédure ci-dessous, placée dans le module de code de la feuille "Niveau1"

Mireille
Citation :

Ensuite j'ai mis une procédure événementielle sur la feuil1 qui à chaque double clic:
      - si la cellule est vide la coche
      - si la cellule est cochée la décoche
Désolée, je n'ai pas réussi à faire la même chose avec un simpe clic ce qui eut été plus proche de ta demande ...
Tu trouveras dans le fichier le code attaché à l'onglet Feuil1 (en cliquant sur ALT+F11):

Il te suffit de rajouter ce code dans ta nouvelle feuille

@+Jean-Marie