Remplir une ComboBox à partir d'un Label et d'une TextBox

Bonjour le Forum,
Je voudrais savoir s’il est possible d’alimenter une Combobox à partir de valeurs récupérées d'un Label et d'une TextBox
J’arrive à remplir ma ComboBox à partir de la TextBox mais il me manque la condition du Label.
Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Private Sub UserForm_Initialize() 'UserForm2. Label1.Caption = Worksheets("Formulaire").Range("G6").Value 'Valeur du Fourni   TextBox1.Value = Worksheets("Formulaire").Range("N19").Value 'Valeur du CodePiece   End Sub   Private Sub TextBox1_Change() ''Changement de la valeur TextBox alimente la ComoBox   ComboBox1.Clear 'Vider la combobox   Dim CodePiece As String 'Variable de type Texte   CodePiece = TextBox1.Value 'Declare la variable qui represente la valeur rentree dans la TextBox   Dim DernLigne As Long 'Chercher la derniere cellule non vide de la colonne B DernLigne = Sheets("Base").Range("B" & Rows.Count).End(xlUp).Row   For i = 2 To DernLigne 'pour les ligne 2 jusqu'a la derniere non vide 'si la cellule en B = CodePiece If CodePiece = Sheets("Base").Range("B" & i) Then 'alors on remplit la combobox avec la cellule de la colonne I ComboBox1.AddItem (Sheets("Base").Range("I" & i)) End If Next i   End Sub     Private Sub ComboBox1_Change() ''Changement de valeur de la ComboBox copie la valeur 2 cellules a gauche de la cellule active   ActiveCell.Offset(0, -2).Activate 'Deplacer de 2 cellules a gauche de la cellule active   ActiveCell = Me.ComboBox1.Value 'Mettre la valeur de la ComboBox     End Sub

---

Salut.

Il est rarement utile de sélectionner les cellules pour les traiter en VBA.

• Alimenter une Combobox par boucle sur les lignes d'une plage est un processus très lent.
• Délimiter la plage de travail avec des .End(xlUp) est une technique obsolète depuis que les tableaux structurés existent (XL 2007)
• Il faut mieux définir ta demande pour que l'on puisse t'aider valablement (le code que tu donnes n'est pas suffisamment explicite par rapport à ce que tu souhaites réaliser). Il faudrait expliquer en français (sans jargon Excel et vba) ce que tu souhaites réaliser, comme si tu remplissais un cachier des charges.

Les références structurées permettent de ne pas devoir borner ta plage, et tu peux remplir un combobox d'un coup en lui passant une plage de cellules. (EDIT: Corrigé après remarque de Pijaku)

Code:

---

ComboBox1.List = Range("MonTableau[MaColonne]").Value

---

Dans cette discussion, j'illustre avec un fichier d'exemple la manière de remplir une combobox, et dans cette contribution, je détaille une approche générique des interactions entre userform et table de données dont tu pourrais t'inspirer pour la réalisation de ton application.

Salut Pierre,

Sans oublier le .Value ;)

Code:

---

ComboBox1.List = Range("MonTableau[MaColonne]").Value

---

:plusser: Frank.

Merci pour la correction ;)

Bonjour …

Iil y a toujours un début à tout, non ?
Quand il est prévu d’étendre la liste le premier Item (dans le formulaire) :
Pièce jointe 536409
Si on préfère ne pas avoir d’erreurs plutôt qu’avoir à les gérer …

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() If Range("MonTableau").Rows.Count > 1 Then ComBobox1.List = Range("MonTableau[Nom]").Value Else ComBobox1 = Range("MonTableau")(1, 1).Value End If End Sub

---

@ ordonc,

C'est exact, on ne répond pas toujours complètement à la question initiale posée en envisageant tous les cas de figure, sinon on aurait un roman à chaque réponse donnée sur le forum... ;)

Surtout que dans mes classeurs, j'ai toujours mon module xlTools qui contient la fonction générique suivante, m'évitant de répéter ou d'oublier le test pour chaque combobox ou listbox chargé ;)

Code:

---

1 2 3 4 5 6 7 8 9

Function getArrayFromRange(Item As Range) If Item.Cells.Count = 1 Then Dim t(1, 1) t(1, 1) = Item.Value getArrayFromRange = t Else getArrayFromRange = Item.Value End If End Function

---

Et je l'utilise systématiquement lorsque je dois charger des combobox ou des listbox

Code:

---

1 2 3 4 5 6

Sub test() With UserForm1 .ComboBox1.List = xlTools.getArrayFromRange(Range("tableau1[Prénom]")) .Show End With End Sub

---

re

Citation:

---

Envoyé par Pierre Fauconnier

C'est exact, on ne répond pas toujours complètement à la question initiale posée en envisageant tous les cas de figure

---

Citation:

---

Si je propose une solution générique sur votre solution spécifique, c'est parce que, fainéant de nature, je privilégie le réutilisable...

---

Je suis peut-être plus fainéant que toi ? Tu as dû t'en apercevoir avec mes codes condensés.

Cela dit, mon intervention n’était due qu’au fait que j’avais déjà présenté ce problème de .List, sans effet à ce jour.

Bonjour à tous merci pour l’aide
Voila ce que je voudrais améliorer sur mon classeur formulaire

Ce qui fonctionne dans mon formulaire :
Récupération du nom du Fournisseur dans un classeur fermée
Récupération de la Désignation à partir du Code Pièce, dans un classeur fermé

Données

classeur : BdPrix
Onglet : base contenant plusieurs lignes triées pour le même code pièce dont les colonnes qui m’intéresse sont
B3 Référence, C3 Désignation, H3 Fournisseur, I3 Ref Fournisseur

Onglet : recap avec les mêmes colonnes qui ne contiennent qu’une seule ligne par code pièce (triées sans doublons à l’aide d’un Module Dico)

classeur : Formulaire
Onglet : Formulaire
G6 : Nom du fournisseur (récupéré par une ComboBox sur à un classeur différent lecture sans ouvrir celui-ci cela fonctionne)

Ligne 19 en tête de mon formulaire
G19 : Désignation (actuellement récupéré par le code la pièce par formule dans le classeur BdPrix sur un onglet recap lecture sans ouvrir celui-ci cela fonction)
F19 Ref Fournisseur (il peut avoir plusieurs ref pour le même fournisseur seul des positions de montages change mais nous ne faisons pas la différence au niveau de notre code pièce)
H19 Code Pièce (cette colonne est remplie soit manuellement soit par copier-coller d’une feuille de nomenclature)

Sur le formulaire à partir de la ligne 20 ou sont rentrés les codes pièces
But : lorsque je clique sur la cellule Code Pièce, à partir du Nom du Fournisseur, du Code Pièces remplir sur la même ligne que le code pièce : Ref Fournisseur (si il y a plusieurs choix ComboBox), Désignation

J’espère être un peu plus claire (dans le code fourni au début j’essayé de le faire sans les liaisons sur les classeurs fermés).
Merci Pierre pour les liens je regarde.