Formulaire pour sondage

[Karine38]

Bonjour à tous,

Je reviens une nouvelle fois avec mon fichier de sondage.
J'ai bien avancé grâce aux conseils ici mais je bloque de nouveau.
J'ai 3 boutons pour 3 sondages : les structures et les codes sont les mêmes normalement. Deux sondages marchent très bien mais le troisième "Sondage formation" bug au moment de copier les résultats dans l'onglet correspondant. Ca se passe juste pour deux résultats qui ne sont pas copiées dans les cellules.
Si ça se trouve ce n'est rien mais à force d'avoir le nez dessus je ne dois pas le voir.
Quelqu'un peut-il regarder ?
Merci d'avance

 

[bof]

Re : Formulaire pour sondage

Bonjour,

Private Sub b_valider_Click()
    Sheets("Sondage formation").Select
    Cells.Find("service").Select
    If ActiveCell.Offset(1, 0) <> "" Then
     ActiveCell.End(xlDown).Offset(1, 0).Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
        ActiveCell.Value = t_service
        resultat = ""
        For Each i In Me.c_motivee_suivi.Controls
            If i.Value = True Then
            resultat1 = i.Caption
            End If
        Next i
        ActiveCell.Offset(0, 1) = resultat1
        resultat2 = ""
    For Each i In Me.c_amenagement_poste.Controls
        If i.Value = True Then
            resultat2 = i.Caption
        End If
    Next i
        ActiveCell.Offset(0, 2) = resultat2
        resultat3 = ""

... la suite sans changement.
A+