Liaison Combobox, textbox

Bonjour le forum,

Je vous réécris une nouvelle fois pour automatiser un userform afin de gagner du temps dans ma société. Je m'explique :

Je voudrais que la Texbox "Pays" affiche automatiquement le nom du pays en fonction de la référence. La référence se constitue tout le temps d'un code 2/3 lettres "Fr" puis de chiffres avec un sous-tiret "_001"

Exemple : Référence "Jp_001" la textbox "Pays" affiche Japon.

Le tableau de correspondance entre les codes 2/3 lettres et les noms de pays sont disponibles en feuille 3.

Quelqu'un aurait-il une idée ?

Fichier demo ci-joint

Je vous remercie par avance

@+

Loris

Bonjour LORIS01

Dans Private Sub ComboBox1_Change() ajoute cette condition

If Right(ComboBox1, 2) = "US" Then 
Me.TextBox2 = "U.S.A."
End If

Soit Si les deux premières lettres sont égale à US la Textbox égale à U.S.A.

Pour les autres pays procéder de la même manière

Bonjour,

C'est ce que je cherchais super ! Mais n'y aurait-il pas un moyen d'automatiser tous les codes grâce au tableau de correspondance feuille 3 ?

Car mes codes lettres peuvent être amené à évoluer et donc refaire tous les codes peut s'avérer long...

Après m'y connaissant rien, c'est peut-être pas possible. En attendant je me penche sur votre idée

Merci bien !

@+

Bonjour,

Dans Private Sub ComboBox1_Change() ajouter ces instructions :

    Dim référence As String
    référence = Split(ComboBox1.Value, "_")(0)
    Set cell = Range("Tableau4").Columns(1).Find(référence)
    If Not cell Is Nothing Then Me.TextBox2.Text = cell.Offset(, 1)

Bonjour,

Merci beaucoup c'est exactement ce que je souhaitais avoir !

J'ai juste un petit problème avec ce code :

Lorsque je supprime tous le contenue de la combobox afin de réécrire une nouvelle référence, le code se mets en erreur. Il m'empêche d'avoir la combobox vide...

Existe-il une solution à ce problème ?

En tout cas je vous remercie encore une fois pour ces lignes de codes

@+

Loris

Bonsoir,

Il devrait suffire de rajouter cette condition

    Dim référence As String
    If ComboBox1.Value <> Empty Then
        référence = Split(ComboBox1.Value, "_")(0)
        Set cell = Range("Tableau4").Columns(1).Find(référence)
        If Not cell Is Nothing Then Me.TextBox2.Text = cell.Offset(, 1)
    End If

Re-bonsoir,

Cela marche parfaitement.

Un grand merci

A bientôt

Loris