Copier coller valeur d'une combobox

Bonjour,

J'ai réussi à afficher le contenu d'une colonne de la feuille "Ajout Fournisseur" dans une combobox de mon userform.

Private Sub UserForm_Initialize()

Sheets("Ajout Fournisseur").Select

    For i = 1 To 320
        ComboBox1.AddItem Cells(i + 11, 2)
    Next

End Sub

Ma première demande serai de pouvoir tester la colonne B pour connaitre le nombre de cellules non vide et me servir du résultat pour cette partie du code :

For i = 1 To Résultat-1

Et dans un second temps je souhaiterai pouvoir copier le contenu de la combobox en cliquant sur mon bouton :

Private Sub CommandButton_Click()

End Sub

Et le coller dans un emplacement défini.

Sheets("Feuil2").Select
    Range("A1").Select

Je vous remercie par avance.

Cordialement.

Olivier TP a écrit :

Bonjour,

Et dans un second temps je souhaiterai pouvoir copier le contenu de la combobox en cliquant sur mon bouton :

Private Sub CommandButton_Click()

End Sub

Et le coller dans un emplacement défini.

Sheets("Feuil2").Select
    Range("A1").Select

Je vous remercie par avance.

Cordialement.

BOnjour, ce n'est pas tout a fait un copié collé qu'on utilise en vba

Si tu souhaites que ta cellule A1 soi t alimentée par le contenu de ta combobox alors

dans l'évenement CommandButton_click tu indiques simple que :

Sheets("Feuil2").Select
    Range("A1").value=combobox1.value

Merci Xmenpl pour ton explication,

La mise à jour de la cellule fonctionne.

Par contre je bloque toujours pour la premiere partie...

J'ai réussi à afficher le contenu d'une colonne de la feuille "Ajout Fournisseur" dans une combobox de mon userform.

Private Sub UserForm_Initialize()

Sheets("Ajout Fournisseur").Select

    For i = 1 To 320
        ComboBox1.AddItem Cells(i + 11, 2)
    Next

End Sub

Je souhaiterai pouvoir tester la colonne B pour connaitre le nombre de cellules non vide et me servir du résultat pour cette partie du code :

For i = 1 To Résultat-1

Je vais clôturer cette question.

La partie restante n'a pas de lien avec le sujet.