Discussion :

[Vandesmoreit]

Bonjour à tous!

J'aurais besoin de vos lumières si possible pour une macro que je fais dans mon entreprise.
Je m'explique:
En fonction d'une valeur choisie dans une combobox (par exemple "A2", provenatn d'une feuille de calcul), je souhaite que la valeur "B2" soit inscrite dans une textbox d'une userform. (idem pour "C2", "D2", etc)
Pour le moment, je tourne en rond, et j'aimerais éviter d'inscrire toute une liste de IF/ElseIf/EndIf ....
(du genre ce qui suit....)

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
'line 3
    If ComboBox5.Value = Worksheets("OF_L3").Range("A2") Then
                    TextBox6.Text = Worksheets("OF_L3").Range("B2").Value
                    TextBox7.Text = Worksheets("OF_L3").Range("C2").Value
                    TextBox8.Text = Worksheets("OF_L3").Range("D2").Value
                    TextBox15.Text = Worksheets("OF_L3").Range("E2").Value
 
                    TextBox9.Text = Worksheets("OF_L3").Range("F2").Value
                    TextBox10.Text = Worksheets("OF_L3").Range("G2").Value
                    TextBox11.Text = Worksheets("OF_L3").Range("H2").Value
 
                    TextBox14.Text = Worksheets("OF_L3").Range("L2").Value
                    TextBox13.Text = Worksheets("OF_L3").Range("M2").Value
                    TextBox12.Text = Worksheets("OF_L3").Range("N2").Value
 
            ElseIf ComboBox5.Value = Worksheets("OF_L3").Range("A3") Then
 
                            TextBox6.Text = Worksheets("OF_L3").Range("B3").Value
                            TextBox7.Text = Worksheets("OF_L3").Range("C3").Value
                            TextBox8.Text = Worksheets("OF_L3").Range("D3").Value
                            TextBox15.Text = Worksheets("OF_L3").Range("E3").Value
 
                            TextBox9.Text = Worksheets("OF_L3").Range("F3").Value
                            TextBox10.Text = Worksheets("OF_L3").Range("G3").Value
                            TextBox11.Text = Worksheets("OF_L3").Range("H3").Value
 
                            TextBox14.Text = Worksheets("OF_L3").Range("L3").Value
                            TextBox13.Text = Worksheets("OF_L3").Range("M3").Value
                            TextBox12.Text = Worksheets("OF_L3").Range("N3").Value
 
 
    End If

Un grand merci d'avance pour votre aide!

Romain

[Igloobel]

Bonjour,

Bon pour plus de clareté plutôt que des "IF/ElseIf/EndIf" je te conseille d'utilisé des "SELECT CASE"

sinon j'ai très bien compris tu récupères dans ta combobox une valeur ou une adresse ?

En fonction d'une valeur choisie dans une combobox (par exemple "A2", provenatn d'une feuille de calcul),

Code :

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

If ComboBox5.Value = Worksheets("OF_L3").Range("A2") Then ...

[Vandesmoreit]

Merci pour ta réponse. En effet, SELECT CASE semble plus léger.
Ceci étant, je reste bloqué sur l'entrée des données de la cellule voisine. Pour répondre à ta question, oui, je récupère dans la combobox une valeur. (un commentaire / un résultat de production/ un nom de design par exemple)

[Igloobel]

Merci pour ta réponse. En effet, SELECT CASE semble plus léger.
Ceci étant, je reste bloqué sur l'entrée des données de la cellule voisine. Pour répondre à ta question, oui, je récupère dans la combobox une valeur. (un commentaire / un résultat de production/ un nom de design par exemple)

As-tu une liste quelquepart de toutes les valeurs que peux te sortir ta ComboBox ?

[Vandesmoreit]

Eh bien j'ai 5 pages, correspondant à 5 lignes de production. Sur chaque page, j'ai les ordres de fabrication à récupérer, en colonne A.
En fonction de l'ordre de fabrication choisi, dans une userform, dans diverses Textbox, doivent apparaître les informations inscrites en colonnes B, C, D, E. (délais de prod, nom du design, type de produit, etc)

Dans les fait il me faudrait transcrire l'idée suivante:

Code :

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

1
2
3
Pour tout résultat inscrit dans Combobox5
=> chercher equivalent dans Worksheet("nom de la ligne de production"), en colonne A
=> inscrire dans textbox6 la valeur de Bx (où x est le numero de ligne de la valeur trouvée en colonne A)

[Igloobel]

...Dans les fait il me faudrait transcrire l'idée suivante:

Code :

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

1
2
3
Pour tout résultat inscrit dans Combobox5
=> chercher equivalent dans Worksheet("nom de la ligne de production"), en colonne A
=> inscrire dans textbox6 la valeur de Bx (où x est le numero de ligne de la valeur trouvée en colonne A)

Ben .... ....
Tu n'as ni besoin de formulaire ni besoin de VBA pour cela .... C'est une Formule RECHERCHEV()

Bon dans les faits Je combinerai ton COMBOBOX avec le formule RechercheV
Et ta Combobox est dans feuille Excel ? si oui c'est une vrai ComboBox ou une liste de validation ?