collecte de réponse à un questionnaire provenant d'un userform

[Karine]

Bonjour tout le monde!


Je souhaite collecter les réponses à un questionnaire provenant d'un userform. Pour le moment, je ne rencontre pas de souci puisque j'arrive à collecter les données mais je souhaite également multiplier les possibilités de réponse. J'aimerai qu'à chaque questionnaire complété, les données soient collectées à la ligne suivante.

Dans le fichier joins, les données issue de la question de l'UserForm vont se reporter à la ligne 3 (cellule A), j'aimerai que (si cela est possible)qu'à chaque fois que je coche dans l'UserForm la réponse vienne se repoter à la ligne suivante.

En espérant avoir été clair dans ma demande, je vous remercie de m'avoir et vous remercie par avance de me faire parvenir vos idées si vous avez une solution.

Merci et bonnée journée

 

[JPM]

Salut à tous
Ca c'est une solution mais je pense qu'il y en a un tas d'autres

Private Sub SaveRecord()
Select Case True
Case opfoot.Value
sportData = "Tu aimes Zizou mon coco"
Case optennis.Value
sportData = "Arazi c ton idole"
Case opdanse.Value
sportData = "Danse ma cocotte"
End Select
i = 3
Do While Range("A" & i) <> ""
i = i + 1
Loop
Range("A" & i).Value = sportData

End Sub

A+ JPM

 

[Karine]

Merci beaucoup!

Le code fonctionne à merveille, merci pour ton aide!

Karine