Bonjour,
j'ai un peu modifié l'ensemble pour lui donner une meilleure ergonomie, et modifier quelques détails.
Prière de charger ce nouveau document. (tout en bas du fil après l'image...)
Dans la feuille "OMSAT" j'ai commencé par cocher des réponses à chaque question.
J'ai installé un macro (dans le module de cette feuille) qui coche la réponse à chaque clic ce qui permet de travailler plus rapidement.
Cette macro n'est pas commentée car toute simple : Elle met un 1 là ou vous cochez...
J'ai également installé une Mise en Forme Conditionnelle (Onglet Accueil) qui colore les réponses relevées dans "OMSAT"
Ces routines permettent de s'assurer au premier coup d'œil qu'il y a bien une réponse par ligne (et une seule)
... car les macros ne font pas de vérification à ce sujet.
J'ai commencé par nommer un certain nombre de plage (Onglet Formules > Gestionnaire de noms
Answ dont la formule est :
=DECALER(RESULTAT!$C$1;1;;NBVAL(RESULTAT!$A:$A)-1)
Correspond à la zone : RESULTAT![A2:A49]
Codage dont la formule est :
=DECALER(CODAGE!$A$1;1;1;NBVAL(CODAGE!$A:$A)-1;7)
Correspond à la zone : CODAGE![B2:H49]
Data dont la formule est :
=DECALER(OMSAT!$A$1;1;2;NBVAL(OMSAT!$A:$A);7)
Correspond à la zone : RESULTAT![C2:I49]
GrpQ dont la formule est :
=DECALER(RESULTAT!$A$1;1;1;NBVAL(RESULTAT!$A:$A)-1)
Correspond à la zone : RESULTAT![B2:B15]
iDQ dont la formule est :
=DECALER(OMSAT!$A$1;1;;NBVAL(OMSAT!$A:$A))
Correspond à la zone : RESULTAT![A2:A49]
Score dont la formule est :
=DECALER(PROFIL!$C$1;1;;(NBVAL(RESULTAT!$A:$A)-1))
Correspond à la zone : SCORE![C2:C15]
La feuille DECODAGE inutile a été supprimée.
La macro "galopin" est commentée dans le code.
Nota : Pour lire les commentaires (et les macros) plus facilement je vous conseille de paramétrer VBA de la manière suivante :
Onglet Outils > Options > Format de l'éditeur
cliquer Texte du commentaire
puis Arrière plan > choisir une couleur (gris moyen semble idéal)
validez par Ok
La composition d'une macro comme celle-ci peut-prendre un temps fou : Inutile de faire travailler des dizaines d'internautes bénévoles pour rien.
Merci de clore le sujet (y compris sur l'autre forum...).
A+