VBA Excell -- Relation entre deux Box d'après un tableau [Résolu]

cs_erlab 15 Messages postés mardi 22 juin 2004Date d'inscription 12 juin 2009 Dernière intervention - 29 janv. 2008 à 18:11 - Dernière réponse : bigfish_le vrai 1839 Messages postés vendredi 13 mai 2005Date d'inscription 20 novembre 2013 Dernière intervention
- 30 janv. 2008 à 23:23
Bonjour ou Bonsoir,

Après une longue journée de test infructueuse, je me tourne vers vous tous.

J'ai une Feuille (F1) sous Excell avec 2 colonnes : l'une des Noms, l'autre des Numéros de téléphone.

Sous VBA Excell :
J'ai déclaré une première Combobox Nom avec en " Rowsource  --  F1!A1:A20 " et donc je récupére le nom des personnes. Pas de soucis.

Et voilà mon problème : Je souhaite créé une autre ComboBox ou TextBox qui reprends automatique le numéro de téléphone en fonction du nom choisit dans la combobox.

Donc en résumé :

Si la Combobox pour le Nom je sélectionne la Cellule A1 de la Feuille (F1). il faut que l'autre Combobox ou Textbox affiche automatiquement la Cellule B1 de la Feuille (F1).

Merci pour votre aide,
Cordialement, Eric.
Afficher la suite 

3 réponses

Répondre au sujet
bigfish_le vrai 1839 Messages postés vendredi 13 mai 2005Date d'inscription 20 novembre 2013 Dernière intervention - 29 janv. 2008 à 19:04
+3
Utile
Salut,

le code ci-dessou fonctionne avec une combobox et textbox dans une feuille. leur nom respectif sont
combbox1 et textbox1. ce code est a mettre dans l'evenement change de la combobox1

Private Sub ComboBox1_Change()
    Dim maplage As Range, nom As String
    Set maplage = [a1:b20] 'tableau des nons et numeros
    nom = ComboBox1.Value
    TextBox1.Value = Application.VLookup(nom, maplage, 2, False)
End Sub

A+
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de bigfish_le vrai
cs_erlab 15 Messages postés mardi 22 juin 2004Date d'inscription 12 juin 2009 Dernière intervention - 30 janv. 2008 à 13:59
0
Utile
Merci beaucoup pour cette aide mais il faut que je trouve le moyen de pourvoir remplir les champs aussi si le nom et le numéro ne sont pas dans la liste.

Encore merci.
Commenter la réponse de cs_erlab
bigfish_le vrai 1839 Messages postés vendredi 13 mai 2005Date d'inscription 20 novembre 2013 Dernière intervention - 30 janv. 2008 à 23:23
0
Utile
Salut,

Pourquoi ?

A+
Commenter la réponse de bigfish_le vrai

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.