Excel VBA questionnaire - consolidation des réponses EN BOUCLE

Bonjour à tous,

Débutant en macro/vba je viens vers vous concernant un petit problème. Si vous avez du temps à accorder à mon problème, je vous demanderai svp d'expliquer vos propositions car je recherche avant tout à progresser et non pas simplement trouver la solution toute faite

J'ai mis en place un questionnaire basique sur excel comme vous pouvez le voir dans le fichier excel en pj.

Dans l'onglet "Administration" :

La colonne b correspond aux réponses possibles,

La colonne c correspond aux questions posées,

Et la colonne d correspond aux réponses des participants (VRAI = réponse choisie, FAUX = réponses non choisies)

Je recherche à consolider les réponses pour chaque participant dans l'onglet "records".

Je souhaite qu'à chaque utilisation l'on capture les réponses choisies sur la première ligne vide à partir de la ligne 2.

Exemple pour la réponse VRAIE à la question 1 renseignée dans l'onglet "administration" je voudrais retrouver cette réponse dans la colonne de la Q1 dans l'onglet "records".

J'espère avoir donné assez d'information pour que vous soyez en mesure de m'aider. Toutes contributions est la bienvenue

Merci ENCORE pour votre aide !

Bonjour,

Pourquoi ne pas utiliser Google Forms, qui incrémente automatiquement un classeur Google Sheets (exportable sous Excel si besoin) ?

Bonjour,

Le fonctionnement de ce questionnaire est plus complexe qu'un Google form. J'ai même regardé pour régler mon problème avec Google app mais je n'y suis pas parvenu facilement.

Est ce que vous etes en mesure de m'aider concernant le code vba ? Comme écrit plus haut je souhaite progresser en vba et rien ne vaut de la pratique pour developper ses compétences

Merci !

Jabsonfire

Jabsonfire a écrit :

Bonjour,

Le fonctionnement de ce questionnaire est plus complexe qu'un Google form. J'ai même regardé pour régler mon problème avec Google app mais je n'y suis pas parvenu facilement.

Est ce que vous etes en mesure de m'aider concernant le code vba ? Comme écrit plus haut je souhaite progresser en vba et rien ne vaut de la pratique pour developper ses compétences

Merci !

Jabsonfire

Bonjour,

A moins que votre exemple soit fictif, il s'agit à priori que de questions à choix multiple, ce qui est tout à fait gérable dans Google Forms... Mais passons !

Votre tableau "records" n'accepte qu'une info par question, j'imagine qu'il doit s'agir de l'ID de la réponse assortie d'un VRAI (ex : 1, 2, 3 ou 4 pour Q1) ?

Une proposition de macro :

Sub RecordAnswer()

'Décalration des variables
Dim LigRec As Long, ColRec As Integer, Lig As Long, ID_rep As Integer

With Sheets("Administration") 'Tout élément qui commence par "." s'y rapporte
    LigRec = Sheets("Records").Range("B" & Rows.Count).End(xlUp).Row + 1 'N° de la 1ère ligne vierge en feuille "Records"
    For Lig = 3 To 117 'Boucle sur les réponses
        ColRec = .Range("C" & Lig) + 1 'Indice colonne de la réponse dans "Records"
        ID_rep = Right(.Range("B" & Lig), 2) * 1 'N° de la réponse
        If .Range("D" & Lig) Then Sheets("Records").Cells(LigRec, ColRec) = ID_rep 'Si réponse "VRAI", on reporte son n°
    Next Lig
End With

End Sub

Bonjour Pedro 22,

Merci pour le code, j'ai pu le comprendre et l'adapter au fichier.

Jabsonfire

Jabsonfire a écrit :

Bonjour Pedro 22,

Merci pour le code, j'ai pu le comprendre et l'adapter au fichier.

Jabsonfire

Merci du retour, pense à valider le sujet !