Pb alimentation ComboBox

Version imprimable

26/03/2011, 18h26
gds35

Pb alimentation ComboBox

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 !!!!!!
26/03/2011, 19h09
Theze
Bonsoir,

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

1 2 3 4 Private Sub ComboBox1_Click() ComboBox2.ListIndex = ComboBox1.ListIndex End Sub
Hervé.
27/03/2011, 13h54
gds35

1 pièce(s) jointe(s)

RE Pb alimentation ComboBox

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

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:

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é.

28/03/2011, 15h21
gds35

Re Pb alimentation ComboBox

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

Re,

Citation:

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:

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é.

28/03/2011, 18h28
gds35

1 pièce(s) jointe(s)

Re Pb alimentation ComboBox

RE du Nul , et encore MERCI

Je recapepette , si je t'ennui envoi moi paitre , je ne t'en voudrais pas

Je te revoi un fichier que j'avais bidouille pour ne pas depasser la taille d'ou les elements que tu ne trouvais pas.

Dans l'USF SAISIEFICART et dans CODE ARTICLE Composé d'une comboBox (COMBOCODEART) et d'une TextBox (TEXTBOXART) dont les éléments se trouvent dans la feuille BASE , j'essai ceci : si je selectionne 01 dans la combobox , je souhaiterais afficher automatiquement dans la textbox CERCUEIL 185 (c'est macabre mais j'y peux rien!!!!!!!!!)

Encore Mille Merci de ton aide GDS35

Re,

Citation:

(c'est macabre mais j'y peux rien!!!!!!!!!)

Ha bon ? La mort ne fait t'elle pas partie de la vie ? Je ne vois, ici, absolument rien de macabre.

Donc, j'avais bien compris à mon dernier post, tu mets le code qui suit dans le module de l'UserForm "SAISIEFICART" et quand tu clique sur un code dans le ComboBox "COMBOCODEART", tu aura automatiquement la valeur correspondante dans le TextBox "TEXTBOXART" :
Code:

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
Ici, c'est encore plus simple, retourne la valeur par rapport à l'index du ComboBox :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub COMBOCODEART_Click() Dim Plage As Range With Worksheets("BASE") Set Plage = .Range(.[A1], .Range("A" & Rows.Count).End(xlUp)) End With 'retoune la valeur par rapport à l'index du ComboBox '(+ 1 car "ListIndex" commence à 0) TEXTBOXART.Text = Plage(COMBOCODEART.ListIndex + 1).Offset(0, 1) End Sub
Hervé.

29/03/2011, 09h00
gds35

Re Pb Alimention Combobox

Merci , mon AMI , cela fonctionne a merveille.

Je vais me pencher maintenant sur le probleme de chargement de la page d'acceuil FORUM sur mon autre Becanne et qui me renvoi le message d'erreur :
"Votre envoi ne peut pas être éxécuté car la marque de sécurité a expiré
Veuille revenir en arriere et recharger la plage précédente.
Je ne sais pour ce message s'affiche sur mon fixe et ne s'affiche pas sur mon portable !!!!!!

Bon en tout état de cause encore un grand merci pour la résolution de mon PB N°1

Cordialement et bonne journée GDS35