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