Liaison ComboBox et TextBox

Bonsoir le forum

Je me tourne vers vous pour résoudre mon problème sur lequel je bloque.

Dans un Userform j'ai plusieurs comboBox et TexTbox

Je souhaite afficher le muméro de tél automatiquement si le contact est renseigné.

Dans ComboBox "CboContact" avec pour Propriété RowSource alimenté par un tableau structuré nommé LContact.

Un TextBox "TxtNumtel", j'ai préparé un tableau structure nommé LTelContact.

Cest 2 tableaux se situent dans la feuille "Administrateur"

Merci de votre aide et bonne nuit

A Bientôt

Bonjour Ledzep

Depuis le temps tu devrais savoir que le mieux des de joindre un fichier

Trop de zic dans les oreilles

A+

Bonjour le Forum

Bonjour BrunoM45, oui tu as raison

Voici le fichier

dans Feuille Tableau de Bord -> clic sur nouvelle entrée -> ouverture Userform -> ComboBox " Nom du Contact "

Si je sélectionne DUPONT 1 alors le TextBox " Num Tel" se charge avec les infos du tbl "TEL CONTACT"

Les informations sont sur la feuille "Administrateur "

Si vous avez des suggestions, des améliorations sur le reste du code déjà en place sur le fichier, je suis ouvert à toutes remarques

Merci de votre aide

Bonne journée à tous

Bonjour,

Tout d'abord, fusionnez vos 2 tableaux structurés et supprimez-en les lignes vierges.

ci_dessous exemple de code

    Dim i As Integer
    Dim TS As ListObject

    Set TS = [LTelContact].ListObject
    i = 0
    i = Application.Match(CboContact.Value, TS.ListColumns("CONTACT").DataBodyRange, 0)
    If i > 0 Then TxtNumtel = TS.ListColumns("TEL CONTACT").DataBodyRange(i)

Bonjour le forum

Bonjour Thev

Merci de ta réponse.

Cela fonctionne nickel

Par contre je me suis aperçu que j'avais oublié d'enlever des infos importantes.

Serait-il possible de supprimer les fichiers svp

Je m'engage à le remettre sans ces informations avec la correction de Thev

Merci

Par contre je me suis aperçu que j'avais oublié d'enlever des infos importantes.

fichier supprimé.

A toi, de supprimer le tien dans ton message.

Re Thev

Désolé, mais comment faire stp

Je n'ai plus la possibilité de modifier mon post Hier à 23:33 le crayon ayant disparu.

Par contre celui-ci je peux

Merci

Bonjour Ledzep, Thev,

D'abord pour la suppression de ton fichier faire un signalement ! de ton message au modérateur afin qu'il fasse le nécessaire.

Ensuite, rajouter à la macro proposée en début de celle-ci ou juste après les Dim

If CboContact = "" Then Exit Sub

Dans le cas d'un effacement des entrées saisies par le bouton Effacer. Sinon erreur.

Bonjour X Cellus

Merci de ton retour

Pour la suppression , j'ai fait le nécessaire avec "contact"

Peut-être qu'il faudra réfléchir que chaque dépositaire peut supprimer son fichier lorsqu’il remarque le lendemain de son erreur !

A bientôt

Rechercher des sujets similaires à "liaison combobox textbox"