Comment créer une Usf pour traduire 4 langues

Bonjour,

Ci-dessus un exemple de l'USF que j'aimerais obtenir mais,

je suis incapable d'y incorporer les codes.

1- saisir mot dans l'une des cases:
Français - Allemand - Anglais - Espagnol - Italien

2-Cliquer sur TRADUCTION--> les mots s'affichent dans la langue correspondante

Merci

Bonne journée :)

Bonjour,

Voici, pas tout vérifié mais ça devrait être bon

Option Compare Text

Private Sub CommandButton1_Click() 'Traduction
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    If TextBox1 <> "" Then
        Valeur = TextBox1.Text 'français
        Lig = Application.WorksheetFunction.Match(Valeur, Range("A1:A" & DerLig), 0)
        TextBox2 = Range("B" & Lig).Value 'Italien
        TextBox3 = Range("C" & Lig).Value 'Anglais
        TextBox4 = Range("D" & Lig).Value 'Allemand
        TextBox5 = Range("E" & Lig).Value 'Espagnol
    ElseIf TextBox2 <> "" Then
        Valeur = TextBox2.Text 'Italien
        Lig = Application.WorksheetFunction.Match(Valeur, Range("B1:B" & DerLig), 0)
        TextBox1 = Range("A" & Lig).Value 'Français
        TextBox3 = Range("C" & Lig).Value 'Anglais
        TextBox4 = Range("D" & Lig).Value 'Allemand
        TextBox5 = Range("E" & Lig).Value 'Espagnol
    ElseIf TextBox3 <> "" Then
        Valeur = TextBox3.Text 'Anglais
        Lig = Application.WorksheetFunction.Match(Valeur, Range("C1:C" & DerLig), 0)
        TextBox1 = Range("A" & Lig).Value 'Français
        TextBox2 = Range("B" & Lig).Value 'Italien
        TextBox4 = Range("D" & Lig).Value 'Allemand
        TextBox5 = Range("E" & Lig).Value 'Espagnol
    ElseIf TextBox4 <> "" Then
        Valeur = TextBox4.Text 'Allemand
        Lig = Application.WorksheetFunction.Match(Valeur, Range("D1:D" & DerLig), 0)
        TextBox1 = Range("A" & Lig).Value 'Français
        TextBox2 = Range("B" & Lig).Value 'Italien
        TextBox3 = Range("C" & Lig).Value 'Anglais
        TextBox5 = Range("E" & Lig).Value 'Espagnol
    ElseIf TextBox5 <> "" Then
        Valeur = TextBox5.Text 'Espagnol
        Lig = Application.WorksheetFunction.Match(Valeur, Range("E1:E" & DerLig), 0)
        TextBox1 = Range("A" & Lig).Value 'Français
        TextBox2 = Range("B" & Lig).Value 'Italien
        TextBox3 = Range("C" & Lig).Value 'Anglais
        TextBox4 = Range("D" & Lig).Value 'Allemand
    End If
End Sub

Cdlt

Bonjour

Bonjour à tous

Une variante

Bye !

Bonjour,

Merci à vous deux

Trop sympa

Je vais de suite essayer

À bientôt

Version améliorée....

Bye !

Bonjour,

EXCELLENT gmb!

la version améliorée au TOP!

Rapide efficace et sans "bavure"

un seul mot: BRAVO!

Merci pour ton aide

Par contre Comment faire si ce n'est pas la feuille "TRADUCTEUR" d'activée mais une autre feuille "JEU" par exemple?

merci

@bientôt

Re,

une petite modification serait la bienvenue

Quand j'écris dans la case Français , un mot par dessus un déjà écris--> ok traduction sur ce mot saisi

mais pas pour les autres, si déjà des mots inscrit (suite à une traduction)

si je saisi un mot dans une case, autre que le français, la traduction ne se fait sur ce mot(je dois effacer le contenu des cases)

merci

RE,

Désolé mais si tu peux changer :

au lieu de saisir un mot, choisir dans la liste déroulante du pays

C'est possible?

merci

Je me suis permis d'apporter une petite amélioration tout en conservant le code de GMB que je salue, j'ai remplacé les textbox par des combobox.

Essayez

Cdlt

Edit: fichier remplacé suite à une erreur de manipulation

Bonjour à tous

Nouvelle version

Bye !

Bonsoir,

Vous êtes trop fort tous les deux

il me faut juste un mélange de vous deux et ce sera parfait

Arturo83 pour la liste déroulante -->SUPER

ET gmb pour lancer la USF dans la feuille 'JEU"

mais je vais essayer de manipuler les deux

Merci à vous c'est super sympa

@bientôt

Bonjour Geoffroy63, gmb

Voilà la fusion des 2 propositions.

Cdlt

Bonjour, Arturo83 ,gmb

Respect

merci pour tout

Vraiment du beau travail

@bientôt

Bonjour à tous

à Arturo83 : Bravo !

Bye !

Bonjour,

Arturo83

super ça fonctionne mais ça mouline, quand on lance la USF et quand on efface

Si c'est possible ?

(5003 mots ou phrases... fichier un peu lourd peut-être?)

merci

Voilà, j'ai modifié quelques points

à l'ouverture de l'usf, j'ai supprimé des contrôles, le temps d'ouverture est passé chez moi de 3 sec à 1 sec (le temps de charger les 5 combobox avec les 5000 éléments de leur liste respective)

Pour l'effacement , maintenant, c'est instantané.

Me dire si ça vous convient mieux!

Bravo!

c'est SUPER

Vous êtes le meilleur

merci beaucoup

Si je peux me permettre, une petite modif pour charger plus vite les ComboBox.

Bye !

Bonsoir,

Vous pouvez tout vous permettre les gars, pas de soucis... Je prends, je regarde, j'essaye et manipule et enfin je fais mon tri...

Merci mille fois pour vos interventions.

Excellent gmb, Ultra Rapide... BRAVO

Par contre j'ai mon fichier Excel qui commence à devenir obèse, 10,5Mo

Comment faire pour l'alléger, lui donner un petit régime ?

Merci

@bientôt

Bonjour,

Ci-joint fichier terminé , avec les explications pour insérer les voix

merci à vous de m'avoir aider

j'ai installé 4042 mots ou phrases avec équivalence en Italien, anglais, allemand, espagnol

ajouter bouton(une image en espérant quel restera lors du téléchargement) pour écouter la prononciation

merci

Bonne soirée