Discussion :

[ciambe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pijaku]

Salut Pierre,

Sans oublier le .Value

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Frank.

Merci pour la correction

[OrDonc]

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) :

Si on préfère ne pas avoir d’erreurs plutôt qu’avoir à les gérer …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

@ 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
  With UserForm1
    .ComboBox1.List = xlTools.getArrayFromRange(Range("tableau1[Prénom]"))
    .Show
  End With
End Sub

[OrDonc]

re

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

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.

[ciambe]

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.