Utilisation d'une multibox et textbox pour remplir des cells

Bonjour,

J'ai un petit souci concernant un petit projet.

Voici ce que je souhaiterais faire :

L'utilisateur de mon fichier doit choisir dans mon userform3 une valeur dans la combobox(3). Les valeurs de cette combobox3 sont définies par la colonne A de la ma sheet "Data"

Une fois qu'il appuie sur le bouton 4, cela le redirige vers mon userform5.

Dans cet userform5, j'ai créé un textbox(1) reprenant la valeur de la combobox3 de l'userform3.

Par la suite, l'utilisateur doit sélectionner des valeurs dans diverses combobox (au nombre de 40.)

Il n'est pas obligé de répondre à toutes les questions.

Une fois que c'est fait, il cliquera sur un bouton.

J'aimerais que ce bouton enregistre les différentes valeurs des combobox dans des colonnes différentes, à une ligne correspondante à la valeur de la textbox1, en d'autres termes, la valeur de la combobox3 de l'userform3. De manière à remplir un tableau préétabli.

Par exemple, si la valeur de textbox1 est AAA; et que cette valeur est en A4, je souhaiterais que la valeur de la combobox1 aille en B4, celle de la combobox2 en C4, etc.

De plus, j'aimerais que l'utilisateur puisse répondre à 3..4 questions, enregistrer, fermer excel, et lorsqu'il ouvre le fichier, et sélectionne a nouveau le même élément dans la combobox3 de mon userform3, il puisse continuer son encodage sans devoir refaire les questions auxquelles il a répondu.

Merci pour votre aide !

Voici le code de mon userform 5:

Private Sub CommandButton3_Click()
Dim Criteria As Integer
With Sheets("Data")
    Criteria = .Columns("A").Find(TextBox1, .Range("A4"), xlValues).Row
    ComboBox1 = .Cells(Criteria, "B")
    ComboBox2 = .Cells(Criteria, "C")
    ComboBox3 = .Cells(Criteria, "D")
    ComboBox4 = .Cells(Criteria, "E")
    ComboBox5 = .Cells(Criteria, "F")
    ComboBox6 = .Cells(Criteria, "G")
    ComboBox7 = .Cells(Criteria, "H")
    ComboBox8 = .Cells(Criteria, "I")
    ComboBox9 = .Cells(Criteria, "J")
    ComboBox10 = .Cells(Criteria, "K")
    ComboBox11 = .Cells(Criteria, "L")
    ComboBox12 = .Cells(Criteria, "M")
    ComboBox13 = .Cells(Criteria, "N")
    ComboBox14 = .Cells(Criteria, "O")
    ComboBox15 = .Cells(Criteria, "P")
    ComboBox16 = .Cells(Criteria, "Q")
    ComboBox17 = .Cells(Criteria, "R")
    ComboBox18 = .Cells(Criteria, "S")
    ComboBox19 = .Cells(Criteria, "T")
    ComboBox20 = .Cells(Criteria, "U")
    ComboBox21 = .Cells(Criteria, "V")
    ComboBox22 = .Cells(Criteria, "W")
    ComboBox23 = .Cells(Criteria, "X")
    ComboBox24 = .Cells(Criteria, "Y")
    ComboBox25 = .Cells(Criteria, "Z")
    ComboBox26 = .Cells(Criteria, "AA")
    ComboBox27 = .Cells(Criteria, "AB")
    ComboBox28 = .Cells(Criteria, "AC")
    ComboBox29 = .Cells(Criteria, "AD")
    ComboBox30 = .Cells(Criteria, "AE")
    ComboBox31 = .Cells(Criteria, "AF")
    ComboBox32 = .Cells(Criteria, "AG")
    ComboBox33 = .Cells(Criteria, "AH")
    ComboBox34 = .Cells(Criteria, "AI")
    ComboBox35 = .Cells(Criteria, "AJ")
    ComboBox36 = .Cells(Criteria, "AK")
    ComboBox37 = .Cells(Criteria, "AL")
    ComboBox38 = .Cells(Criteria, "AM")
    ComboBox39 = .Cells(Criteria, "AN")
    ComboBox40 = .Cells(Criteria, "AO")
End With
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
ComboBox8 = ""
ComboBox9 = ""
ComboBox10 = ""
ComboBox11 = ""
ComboBox12 = ""
ComboBox13 = ""
ComboBox14 = ""
ComboBox15 = ""
ComboBox16 = ""
ComboBox17 = ""
ComboBox18 = ""
ComboBox19 = ""
ComboBox20 = ""
ComboBox21 = ""
ComboBox22 = ""
ComboBox23 = ""
ComboBox24 = ""
ComboBox25 = ""
ComboBox26 = ""
ComboBox27 = ""
ComboBox28 = ""
ComboBox29 = ""
ComboBox30 = ""
ComboBox31 = ""
ComboBox32 = ""
ComboBox33 = ""
ComboBox34 = ""
ComboBox35 = ""
ComboBox36 = ""
ComboBox37 = ""
ComboBox38 = ""
ComboBox39 = ""
ComboBox40 = ""
UserForm6.Show
End

End Sub

Bonjour

Bizarre ton code

Tu écris des valeurs dans tes combobox et ensuite tu les effaces !!!!

Ton fichier avec ton code serait plus utile que cette macro