(RESOLU)Concaténer les texte de plusieurs combobox dans un tableau

chaelie2015

XLDnaute Accro
BONJOUR FORUM
JE SOUHAITE UTILISER CE CODE DANS UN TABLEAU COLONNE I2 de I a P FUSIONNÉE PAR INCRÉMENTATION
Code:
Dim result As String
Dim i As Byte
For i = 1 To 8
    result = result & "   " & Controls("ComboBox" & i).Value
Next
Sheets("BdD OM").Range("I2:P2") = result
EXEMPLE
SI JE SAISI DANS LES COMBOBOX BELGE FRANCE CHINE ITALIE J AURAI DANS LA 2 LIGNE DE LA COLONNE I
COMCATENER LES 4 PAYS ET AINSI DE SUITE
SALUTATIONS
 
Dernière édition:

bbb38

XLDnaute Accro
Re : Concaténer les texte de plusieurs combobox dans un tableau

Bonjour Charlie, le forum,
Une solution, si j’ai bien compris ta demande. A tester.
Cordialement,
Bernard
 

Pièces jointes

  • CHARLIE CONCATENIR V1.xlsm
    24.9 KB · Affichages: 22
  • CHARLIE CONCATENIR V1.xlsm
    24.9 KB · Affichages: 25

chaelie2015

XLDnaute Accro
Re : (RESOLU)Concaténer les texte de plusieurs combobox dans un tableau

Re Bonsoir Forum BERNARD
Apres avoir utiliser le code de BERNARD
J'ai trouvÉ un nouveau bug avec mon code existant
Code:
Private Sub TextBox9_Enter()
  controle_actif = Format(TextBox9, "dd/mm/yyyy") '"TextBox9"
  TextBox9.BackColor = vbRed
  Calendrier.Show
  TextBox9.BackColor = vbWhite
End Sub
erreur de compilation ; variable non definie
au niveau de controle_actif
comment faire pour la definire avec le code de BERNARD
MERCI PAR AVANCE ET SALUTATIONS
 

bbb38

XLDnaute Accro
Re : (RESOLU)Concaténer les texte de plusieurs combobox dans un tableau

Bonsoir Charlie, le forum,
En début de code, j’ai mentionné l’instruction Option Explicit, pour imposer la déclaration des variables (afin d’optimiser l’exécution du code). Tu peux supprimer cette instruction (peu recommandé), ou tu déclares les variables.
Cordialement,
Bernard
 

Discussions similaires

Statistiques des forums

Discussions
312 109
Messages
2 085 381
Membres
102 876
dernier inscrit
BouteilleMan