C
Calico79
Guest
Bonjour à tous,
Après quelques heures de recherche je me vois dans l'obligation de m'adreeser à vous pour ressoudre mon problème (je suis un gros débutant en VBA :unsure. Je m'explique:
Je suis entrain de réaliser un traducteur Français-Espagnol de termes techniques. J'utilise la formule 'Recherche' dans la feuille 'index' pour trouver la traduction du mot recherché. Quand il n'y pas de correspondance, le système retourne #N/A Jusqu'à là tout va bien...
Pour rendre le programme plus convivial et professionel j'ai décidé de réaliser la recherche du mot via un userform. On entre le mot dans le premier champs, on clique sur le bouton traduire et la réponse est donnée dans le deuxième champs.
Le gros problème, c'est que si le mot recherché n'est pas dans la liste, le programme part en erreur et je ne sais absolument pas comment ressoudre ce problème .
J'aimerais que si un mot n'est pas dans la liste, une 'msgbox' apparaisse expliquant que le mot recherché n'est pas disponible.
J'espère avoir été assez clair et que quelqu'un puisse m'aider SVP.
Voici le code que j'utilise:
Merci d'avance.
Salutations,
Calico :woohoo:
Après quelques heures de recherche je me vois dans l'obligation de m'adreeser à vous pour ressoudre mon problème (je suis un gros débutant en VBA :unsure. Je m'explique:
Je suis entrain de réaliser un traducteur Français-Espagnol de termes techniques. J'utilise la formule 'Recherche' dans la feuille 'index' pour trouver la traduction du mot recherché. Quand il n'y pas de correspondance, le système retourne #N/A Jusqu'à là tout va bien...
Pour rendre le programme plus convivial et professionel j'ai décidé de réaliser la recherche du mot via un userform. On entre le mot dans le premier champs, on clique sur le bouton traduire et la réponse est donnée dans le deuxième champs.
Le gros problème, c'est que si le mot recherché n'est pas dans la liste, le programme part en erreur et je ne sais absolument pas comment ressoudre ce problème .
J'aimerais que si un mot n'est pas dans la liste, une 'msgbox' apparaisse expliquant que le mot recherché n'est pas disponible.
J'espère avoir été assez clair et que quelqu'un puisse m'aider SVP.
Voici le code que j'utilise:
Code:
Private Sub btnTraduire_Click()
fldTraduction.Value = Feuil1.Range('E10')
End Sub
Private Sub btnQuit2_Click()
usfRecherche.Hide
Unload usfRecherche
End Sub
Private Sub fldRecherche_Change()
Feuil1.Range('E8') = fldRecherche.Value
End Sub
Private Sub UserForm_Click()
End Sub
Merci d'avance.
Salutations,
Calico :woohoo: