Rapport de message :*
 

Re: Case à cocher pour une matrice de sondage

Titre du sujet : Re: Case à cocher pour une matrice de sondage
par Mth le 29/07/2009 21:44:07

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "" Then 'Si la cellule active est vide alors
        ActiveCell.Value = "R" ' on la remplace par la valeur R
    Else: ActiveCell.Value = "" 'si non on la remet à vide
End If

Cancel = True 'permet de ne pas rentrer dans la modification du contenu de la cellule
End Sub
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:
=SI(L$181=0;"";L178/L$181)
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