Mon userform plante

[Léon de marseille]

Bonjour à tous,

Débutant en VBA j'ai fait un userform somme toute très simple mais ça plante qui pourrait m'aider
Ci-joint le fichier
D'avance merci
Léon
[file name=Questionnaire_20051226152036.zip size=18412]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Questionnaire_20051226152036.zip[/file]

 

[Hervé]

Bonjour léon

Tu utilisais la meme boucle pour des textbox ou des combobox, c'est possible mais pas avec cette syntaxe.

il te faut donc 2 boucles distinctes.

Private Sub CommandButton1_Click() 'bouton 'Ok'
Dim Dl As Long 'déclare la variable Dl (Dernière ligne)
Dim X As Byte 'déclare la variable x

With Sheets('Feuil2')
        .Activate 'active l'onglet 'Feuil2'
        Dl = .Range('A65536').End(xlUp).Row + 1 'définit la variable Dl

        'place les donnés dans le tableau
        For X = 1 To 8 'boucle sur les 8 textbox
                .Cells(Dl, X).Value = Me.Controls('TextBox' & X).Value
        Next X
        For X = 1 To 5 'boucle sur les 5 comboboxs
                .Cells(Dl, X + 8).Value = Me.Controls('Combobox' & X).Value
        Next X
Unload Me 'vide et ferme l'UserFOrm

'tri selon le nom
.Range('A1').CurrentRegion.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:= _
                xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                DataOption1:=xlSortNormal
End With
End Sub

salut

 

[Léon de marseille]

Salut Hervé

Un grand merci en boucle
Et bonnes fêtes de fin d'année
Léon