recuperation d'info sur une bdd en vba

Pierrot93

XLDnaute Barbatruc

• 30 Septembre 2008

• #2

Re : recuperation d'info sur une bdd en vba

Bonsoir Bassdingue

essaye le code ci dessous, nom des objets à adapter :

Code:

Private Sub ComboBox1_Click()
With ComboBox1
If .ListIndex <> -1 Then TextBox1.Value = Range("B" & .ListIndex + 2).Value
End With
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 30 Septembre 2008

• #3

Re : recuperation d'info sur une bdd en vba

il me dit que l'indice n'appartient pas a la selection

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 30 Septembre 2008

• #4

Re : recuperation d'info sur une bdd en vba

petite erreur de ma part : ca marche

merci pierrot
a bientot ..................tres bientot

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Septembre 2008

• #5

Re : recuperation d'info sur une bdd en vba

Re,

tu as bien remplacé le nom de COMBOBOX1 et TEXTBOX1 par les noms utilisés dans ton fichier.... Regarde le fichier joint, fonctionne chez moi.

@+

 

Pièces jointes

• classeur1.xls

  31 KB · Affichages: 48
• classeur1.xls

  31 KB · Affichages: 56
• classeur1.xls

  31 KB · Affichages: 47

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 30 Septembre 2008

• #6

Re : recuperation d'info sur une bdd en vba

ton code marche pour une combo avec des valeurs fixes mais pas avec l'exemple que j'envoi
les données qui sont affichées dans la textbox "objectif " ne correspondent pas a la ligne correspondante
tu me suis là , je suis assez clair ?
tu vas comprendre avec l'exemple

par contre j'ai pu adapter ton code pour une autre combo et ca marche merci

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 30 Septembre 2008

• #7

Re : recuperation d'info sur une bdd en vba

j'ai oublié de joindre le fichier

 

Pièces jointes

• selection module.zip

  26.4 KB · Affichages: 18

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Septembre 2008

• #8

Re : recuperation d'info sur une bdd en vba

Re

ton fichier en retour, j'ai utilisé une colonne masquée dans le combo, le code modifié et commenté dans les événements "initialize" de l'usf, "change" et "click" des combo.

bonne soirée
@+

 

Pièces jointes

• classeur1.zip

  27.8 KB · Affichages: 25
• classeur1.zip

  27.8 KB · Affichages: 30
• classeur1.zip

  27.8 KB · Affichages: 30

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 1 Octobre 2008

• #9

Re : recuperation d'info sur une bdd en vba

Merci Pierrot,
je regarde ca et je te dis ce qu'il en est.

en revanche j'ai 2 questions:

1 A quoi correspond le -1 dans

If .ListIndex <> -1 Then TextBox1.Value = Range("B" & .ListIndex + 2).Value

2 Pourquoi le renvoi d'info sur la textbox "objectif" est il aleatoire

merci

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 1 Octobre 2008

• #10

Re : recuperation d'info sur une bdd en vba

Une troisieme question pour la forme

pourquoi est il necessaire de creer une colonne masqué ?

merci

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 1 Octobre 2008

• #11

Re : recuperation d'info sur une bdd en vba

Sinon, ca marche impec
Merci et remerci pierrot

Mais je ne comprend pas pourquoi il faut passer par la colonne cachée et que si on veut aller chercher l'info sur la feuille "table_ module" ca renvoi des infos aleatoire et fausse!

encore merci pierrot

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Octobre 2008

• #12

Re : recuperation d'info sur une bdd en vba

Bonjour Bassdingue

je suis passé par une colonne masquée, car ta 2ème combobox est alimentée en fonction de la 1ère, de ce fait il n'y a plus aucun rapport entre le numéro d'index de la combo2 et le numéro de la ligne de la cellule à renvoyer dans le textbox. Une autre solution aurait été d'effectuer une recherche par la méthode "find" sur la valeur de la 2ème combo, mais bon... je pense que la méthode de la colonne est un bon compromi, même du point de vue performance, enfin c'est juste mon avis.

Quand à l'utilisation du test "if .ListIndex <> -1", permet de s'assurer qu'une valeur a bien été sélectionnée et donc éviter un message d'erreur. Le -1.

cf aide vba :

Lorsqu'aucune ligne n'est sélectionnée, la propriété ListIndex renvoie la valeur –1.

Cliquez pour agrandir...

bonne journée
@+

 

Vote positif 0 Vote négatif

B

BASSDINGUE

XLDnaute Occasionnel

• 6 Octobre 2008

• #13

Re : recuperation d'info sur une bdd en vba

merci pour ces eclaicissement pierrot
encore merci et bonne journee a toi

 

Vote positif 0 Vote négatif