Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

2 valeurs combobox

  • Initiateur de la discussion Initiateur de la discussion crackwood01
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

crackwood01

Guest
Salut, j'aimerais avoir une combobox qui renvoi 2 valeurs différentes ( toutes deux sur la même ligne de la feuille soit-dit-en-passant)
Voici mon code jusqu'a présent mais je sais qu'il manque des données
Code:
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 2
    Range("A3", Range("A" & Rows.Count).End(xlUp)).Name = "Numero"
    Range("L3", Range("L" & Rows.Count).End(xlUp)).Name = "Nom"
    Me.ComboBox1.RowSource = "Numero"
    Me.ComboBox1.RowSource = "Nom"
End Sub
Pouvez-vous m'aider
 
Re : 2 valeurs combobox

Euh ... non merci puisque ce que je veux c'est que 2 valeurs de ligne soient retournées dans la même combobox merci quand même.
 
Re : 2 valeurs combobox

Je voudrais par exemple que dans ma combobox soient renvoyés le numero de transport et le nom du chauffeur.
 

Pièces jointes

  • Capture.jpg
    54.7 KB · Affichages: 42
Re : 2 valeurs combobox

Bonsoir Le Forum
Sans fichier joint ?
Un essai

Code:
Private Sub UserForm_Initialize()
Dim Plage As Range
Dim i As Integer
Dim Ncol
Dim Tablo()
Ncol = 2
Me.ComboBox1.Clear
With Sheets("Données")
Set Plage = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With

ReDim Tablo(0 To Plage.Rows.Count - 1, 1 To 2)
For Each cell In Plage
Tablo(i, 1) = cell.Text
Tablo(i, 2) = cell.Offset(, 2).Text
i = i + 1
Next

Me.ComboBox1.list = Tablo()

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
309
Réponses
9
Affichages
325
Réponses
10
Affichages
630
Réponses
5
Affichages
391
Réponses
15
Affichages
636
Réponses
5
Affichages
832
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…