Mettre une variable dans une combobox

Bonjour

J'ai besoin de vous pour faire une boucle avec des combobox et une variable, grace à vous j'ai trouvé ce code magique qui est à la base conçue pour uniquement des textbox.

je l'ai donc adapté à mon besoin mais je ne sais pas pourquoi, le code m'insère dans le tableau uniquement la derniere combobox saisie. En gros je veux texter le nombre de combobox non vide avec comme champs unique pour ces combobox (textbox1, textbox2)

ex: pour un Karaoke champs unique: "allumer le feu"=> texbox1, 'Johnny Halliday=> textbox2

combobox rattaché: pierre, paul et Jacque

dans mon cas il n y'a que Jacques qui ressort

je ne sais pas si je suis clair mais j'ai vraiment besoin de votre aide

Merci d'avance

NAdine

----------------------------------------------------------------------------

Private Sub CommandButton1_Click()

T = 1
While Controls("ComboBox" & T) <> ""
Sheets("Suivi").Range("A" & i) = TextBox1
Sheets("Suivi").Range("B" & i) = TextBox2
Sheets("Suivi").Range("E" & i) = Controls("ComboBox" & T)
T = T + 1
Wend

End Sub

Bonjour Nadine_78 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment

• Joignez (si possible) un fichier pour augmenter vos chances d'obtenir de l'aide en cliquant sur le bouton Fichier de l'éditeur. Si votre fichier est trop lourd ou contient des données personnelles, créez une version allégée de votre fichier avec juste assez d'informations pour permettre de comprendre votre problème. Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles (cet utilitaire peut vous aider à les retirer).

Merci de votre participation

Cordialement

Bonjour et bienvenue sur le forum

Apparemment, la variable i n'est pas définie.

Donne lui une valeur et recommence.

Private Sub CommandButton1_Click()
    T = 1
    i = 3
    While Controls("ComboBox" & T) <> ""
        Sheets("Suivi").Range("A" & i) = TextBox1
        Sheets("Suivi").Range("B" & i) = TextBox2
        Sheets("Suivi").Range("E" & i) = Controls("ComboBox" & T)
        T = T + 1
    Wend
End Sub

Sinon, joins ton fichier et on regardera ça de plus près !

Bye !

Bonjour

En fait le i me sert à alimenter mon tableau.

En pj la version simple de mon fichier qui me pose problème

Merci

Nadine

Bonjour

Un essai à tester. Te convient-il ?

Bye !