Concatener des combobox...

[aurel7687]

Bonsoir à vous.

Je me pose le probleme suivant:

J'ai 12 combobox.

Je souhaiterais, apres validation par un bouton, que les données de ces combobox soient CONCATENER avec un espace entre chaque (un &).
Et que le tout soit renvoyer dans une cellule.

Pouvez vous m'indiquer la marche à suivre s'il vous plait?

Merci beaucoup.
AUREL

 

[Spitnolan08]

Re : Concatener des combobox...

Bonsoir,

Private Sub CommandButton1_Click()
Dim result As String
Dim i As Byte
For i = 1 To 12
    result = result & " " & Controls("ComboBox" & i).Value
Next
Sheets(1).Range("A1") = result
End Sub

Cordialement

 

[aurel7687]

Re : Concatener des combobox...

Merci Spitnolan08.

C'est exactement ce que je voulais.
Merci bien.

AUREL