exportation donnée de plusieurs combobox

[poussy67]

Bonsoir le forum

Est il possible d'exporter des données de plusieurs combobox ou de textbox vers une cellule?

ci joint un exemple:

 

[Spitnolan08]

Re : exportation donnée de plusieurs combobox

Bonsoir,

Si bien compris la question dans le code du commandbutton :

With Sheets("Feuil1")
    .Range("A" & L) = ComboBox1.Value & Chr(10) & ComboBox2.Value & Chr(10) & ComboBox3.Value
    .Range("B" & L) = Label1.Caption & Chr(10) & Label2.Caption & Chr(10) & Label3.Caption
End With

Cordialement

 

[poussy67]

Re : exportation donnée de plusieurs combobox

bonsoir Spitnolan08

Effectivement ces ce que je voulais. Mais un petit souci quand j'utilise que un combobox, il augmente la hauteur de ligne, serait il possible d'évité? Idéal serait selon l'utilisation des combobox

cdt
poussy

 

[Spitnolan08]

Re : exportation donnée de plusieurs combobox

Re,

Une possibilité un peu bourrin :

Private Sub CommandButton1_Click()
Dim L As Integer, i As Byte
Dim Ref As String, Libel As String, chariot As String
'ici je repère la dernière ligne vide pour coller les données
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
'Ici c'est le report de la saisie dans la feuille
For i = 1 To 3
    chariot = IIf(i = 1, "", Chr(10))
    If Controls("ComboBox" & i).Value <> "" Then Ref = Ref & chariot & Controls("ComboBox" & i).Value
    If Controls("Label" & i).Caption <> "" Then Libel = Libel & chariot & Controls("Label" & i).Caption
Next
With Sheets("Feuil1")
    .Range("A" & L) = Ref
    .Range("B" & L) = Libel
End With
Unload Me
End Sub

Cordialement