Discussion :

[gds35]

Mes AMIS du Forums Bonsoir et bon WE

J'ai cree un USF avec 1 combobox que j'alimente a partir d'une autre feuille BASE ( ROWSOURCE) dans laquelle en colonne B j'ai un code (1,2,3) et en colonne C le libelle correspondant (bleu,blanc,rouge) je cherche lorsque je saisie le code dans ma combobox soit 1,2,3 a afficher le code et a cote le libelle qui correspond
soit : 1------>affichage blanc etc .... je bloque sur ce pb depuis hier.

Auriez vous la gentillesse de m'aider Merci Cordialement GDS 35 ci-joint un p'tit fichier. Pas forcement catholique cependant le debut marche !!!!!!

[Theze]

Bonsoir,

Il faut qu'il y est une correspondance entre les deux combo (les index doivent correspondre) :

Code :

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

1
2
3
4
 
Private Sub ComboBox1_Click()
    ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Hervé.

[gds35]

Merci Theze de ta reponse.
Mais je pense que l'on ne sait pas compris. Je tente de t'envoyer une bride de fichier Merci et bon week.end
D'autre part sur lun de mes ordi je ne peux + acceder au site au lancement j'ai ce message:
Votre envoi ne peut pas etre execute car la marque de securite a expire
veuillez revenir en arriere et recharcher la page precedente.
Comme je ne peux envoyer aucun autre message je m'adresse a toi ou au autre utilisateur

[Theze]

Bonjour,

Donc, maintenant, si j'ai bien compris, tu veux remplir le Combo "Code article" en fonction du choix effectué dans le Combo "Taille" et vice et versa afin d'avoir tout de suite la bonne correspondance ?

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
 
Private Sub COMBOTAILLE_Click()
 
    Dim Plage As Range
    Dim Cel As Range
 
    'plage en colonne A
    With Worksheets("BASE")
        Set Plage = .Range(.[A1], .Range("A" & Rows.Count).End(xlUp))
    End With
 
    'recherche la valeur choisie et retourne la cellule concernée
    Set Cel = Plage.Find(CDbl(COMBOTAILLE.Text), , xlValues, xlWhole)
 
    'entre la valeur de la cellule tout de suite à gauche
    'pas nécessaire de tester, elle existe forcément puisque
    'puisque cette même plage sert de source
    Me.COMBOCODEART.Text = Cel.Offset(0, 1).Value
 
End Sub
 
Private Sub COMBOCODEART_Click()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("BASE")
        Set Plage = .Range(.[B1], .Range("B" & Rows.Count).End(xlUp))
    End With
 
    Set Cel = Plage.Find(Format(CDbl(COMBOCODEART.Text), "0#"), , xlValues, xlWhole)
 
    'entre la valeur de la cellule tout de suite à gauche
    'pas nécessaire de tester, elle existe forcément puisque
    'puisque cette même plage sert de source
    COMBOTAILLE.Text = Cel.Offset(0, -1).Value
 
End Sub

Hervé.

[gds35]

Bonjour Theze et Merci de te plonger sur mon probleme , effectivement je me suis mal exprime donc suis nul !!!!

Voila j'essai d'être + clair car en + on me demande une modif ;;;!!!!!

J'ai dans une Feuille (FICART) plusieurs textbox et combobox , en particulier
Combobox (combocodeart) et a coté une textebox(textboxart)
j'alimente ma combo via une feuile (BASE) ou en colonne A j'ai les valeurs que je selectionne dans combocodeart.et en colonne B le libelle correspondant à la valeur de chaque ligne de ma combo . col A 01 Col B BLEU.
Je Souhaiterais que lorsque je selectionne dans ma combo 01 de mon USF s'affiche dans ma textbox de mon USF BLEU.

Je ne sais si je me suis bien fait comprendre . Désolé mais encore merci de ton aide .

Cordialment GDS35

[Theze]

Re,

effectivement je me suis mal exprime donc suis nul !!!!

Absolument pas, c'est souvent assez difficile d'expliquer avec précision ce qu'on veux quand on a la tête dans le guidon.
Bon, tu parle d'une feuille (UserForm) "FICART", dans ton classeur elle n'existe pas ? Je trouve un UserForm "SAISIEFICART" où se trouve bien le Combo "COMBOCODEART" mais pas de TextBox nommé "textboxart" ? Dans ta feuille "BASE" les codes (par exemple 01) se trouvent en colonne B et non en colonne A ?
Test ceci mais bon, sans grande conviction (remplace ce que je t'ai posté précédemment) :

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
 
Private Sub COMBOCODEART_Click()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("BASE")
        Set Plage = .Range(.[A1], .Range("A" & Rows.Count).End(xlUp))
    End With
 
    Set Cel = Plage.Find(Format(CDbl(COMBOCODEART.Text), "0#"), , xlValues, xlWhole)
 
    'entre la valeur de la cellule tout de suite à droite
    'pas nécessaire de tester, elle existe forcément puisque
    'puisque cette même plage sert de source
    textboxart.Text = Cel.Offset(0, 1).Value
 
End Sub

Hervé.