Affichage selection combobox dans cellule

Re-Bonjour à tous, quelqu'un saurait-il comment afficher la sélection de Combobox dans une cellule précise via un CommandButton avec du VBA?

Merci d'avance

Bonjour,

tu peux écrire un truc du style :

Private Sub CommandButton1_Click()

Dim WS As Worksheet

Set WS = ThisWorkbook.Sheets("Feuille_Quincaillerie")

Application.ScreenUpdating = False

 If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "CONFIRMATION") = vbYes Then

 WS.Select 'si on confirme on copie les valeurs dans l'onglet

            ligne = WS.Range("C456541").End(xlUp).Row + 1

            Cells(ligne, 3) = ComboBox7.Value
            Cells(ligne, 4) = ComboBox1.Value
            Cells(ligne, 5) = ComboBox2.Value
            Cells(ligne, 6) = ComboBox3.Value
            Cells(ligne, 7) = ComboBox4.Value
            Cells(ligne, 8) = ComboBox5.Value
            Cells(ligne, 9) = ComboBox6.Value
            Cells(ligne, 14) = ComboBox8.Value

       Else 'si non on vide le formulaire

                ComboBox1.Value = ""
                ComboBox2.Value = ""
                ComboBox3.Value = ""
                ComboBox4.Value = ""
                ComboBox5.Value = ""
                ComboBox6.Value = ""
                ComboBox7.Value = ""
                ComboBox8.Value = ""

    End If

    'on vide le formulaire

                ComboBox1.Value = ""
                ComboBox2.Value = ""
                ComboBox3.Value = ""
                ComboBox4.Value = ""
                ComboBox5.Value = ""
                ComboBox6.Value = ""
                ComboBox7.Value = ""
                ComboBox8.Value = ""

End Sub

Bonjour,

Merci beaucoup pour le coup de mail ! j'essai cela dès que possible ;)

Bonjour le fil, bonjour le foru,

En pièce jointe ton fichier modifié. la solution est très similaire à celle de Mika mais la méthode d'alimentation des ComboBoxes est différente de celle que tu utilises. Elle est beaucoup plus rapide puisqu'elle utilise un dictionnaire avec un tableau de variant TV pour les données au lieu de lire directement dans les cellules...

ThauThème ta solution est une solution PRO alors que la mienne c'est du Excel " de garage"

Merci pour le taf, je vais me pencher dessus pour m'améliorer

Re,

la mienne c'est du Excel " de garage"

De bon garage alors...

ok, du coup c'est ok ! ça fonctionne bien merci beaucoup !

Si je puis insister un peu, j'aimerai bien que dans la textbox1 s'affiche une "synthèse" des sélections des différentes combobox ex :

si je configure : "1, Antarro, N, Tip-On, 400, 30kg, Gris, Portalet",

s'affiche alors les 3 infos suivantes "AntarroN400".

Est-ce possible ?

Re,

Heu... t'as déjà écrit un code ?!...

Private Sub CommandButton1_Click()
Dim LI As Integer
Dim COL As Byte
LI = OF.Cells(Application.Rows.Count, "B").End(xlUp).Row
OF.Cells(LI, "C").Value = Me.ComboBox7.Value
For COL = 4 To 9
    Cells(LI, COL).Value = Me.Controls("Combobox" & COL - 2).Value
Next COL
Me.TextBox1.Value = Me.ComboBox1.Value & Me.ComboBox2.Value & Me.ComboBox4.Value <--- Ici
Unload Me
End Sub

Merci pour le résultat.

Et non du tout, j'ai un nouveau boulot depuis peu et il implique de créer des fichiers Excel. Ce qui est tout nouveau pour moi donc j'essaie de trouver un max d'info par moi-même sur internet mais il arrive que je sois bloqué.