XL 2016 Projet multilangue

chris

XLDnaute Barbatruc

• 8 Février 2017

• #2

Bonjour

Il suffit de modifier les libellés (caption) des contrôles du userform avant de l'afficher

 

Vote positif 0 Vote négatif

Don pépé

XLDnaute Occasionnel

• 9 Février 2017

• #3

merci pour ton info chris 😉

J'ai fait ceci pour la traduction si quelqu'un peu m'aider à améliorer le code vba je dis pas nom

 

Pièces jointes

• Langue.xlsm

  27.9 KB · Affichages: 37

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 9 Février 2017

• #4

Bonjour

J'ai :

• mis les éléments linguistiques sous forme de tableaux pour préserver l'évolutivité
  
• nommé diverses plages pour la même raison
• nommé tes labels avec des noms plus gérables que label1, label2...
• ajouté les abréviations de langue dans le tableau des langues et les noms des labels dans le tableau des traductions
  
• modifié le code de Choixdelangue et de UserForm_Initialize
• supprimé le module TraductionForm

A noter qu'il faut veiller à ce que les titres des colonnes de langue du tableau Traductions soient identiques à la colonne Choix Langue du tableau des langues.
On pourrait sans doute se contenter d'un unique tableau...

 

Pièces jointes

• Langues.xlsm

  27.6 KB · Affichages: 37

Vote positif 0 Vote négatif

Don pépé

XLDnaute Occasionnel

• 9 Février 2017

• #5

Déjà merci Chris, tas fait un super boulot et j'aime beaucoup.
Pour ma part celui que j'avais fait, je sais que c'était pas super mais je l'ais fait a mon niveau. Et je m'aperçois que plus besoin de taper un nombre incalculable de ligne.
Je ne connaissais pas les tableau "T_langues" comme cela mais c'est bien pratique.

Bon maintenant j'ai pas mal de boulot pour l'intégrer a mon projet et remplir la base de donnée de traduction.

merci beaucoup pour ton travail. 😉

 

Vote positif 0 Vote négatif

Don pépé

XLDnaute Occasionnel

• 9 Février 2017

• #6

J'ai un petit message d'erreur quand je clique sur le bouton pour voir l'userform. je comprend pas j'ai rien modifier a part de rentrer les labels et les traduction.

J'ai sa comme erreur : Erreur d'exécution'_2147024809 (80070057) - objet spécifié introuvable.
Enfaite le probleme est que si le label n'est pas dans l'userform alors il y a une erreur.

Ma question comment ne plus avoir cet erreur si le label n'est pas dans l'usuerform ?

merci

 

Pièces jointes

• Langues.xlsm

  30.7 KB · Affichages: 28

Dernière édition: 9 Février 2017

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 9 Février 2017

• #7

Salut

Autre proposition (pour avancer un peu) mais toujours avec l'outil Tableau.

 

Pièces jointes

• Traductions.xlsm

  25 KB · Affichages: 57

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 9 Février 2017

• #8

Re
Coucou SI

Effectivement , pour éviter de boucler j'étais partie de la liste.

En partant des contrôles :

Code:

Private Sub UserForm_Initialize()
    Dim Terme As Control, Llangue As Range

    Call Choixdelangue

    For Each Llangue In Range("Langues")
        If Llangue.Value = ChoixLangue Then
            Me.Caption = "-" & Llangue.Offset(0, 1)
            Exit For
        End If
    Next

    For Each Terme In Me.Controls
        Terme.Caption = [Libelles].Find(Terme.Name).Offset(0, LangueChoisie - 1).Value
    Next

End Sub

Le reste est inchangé.

 

Vote positif 0 Vote négatif

Don pépé

XLDnaute Occasionnel

• 9 Février 2017

• #9

Merci Chris et Si j'aime bien vos deux propositions. Mais je vais garder celle de Chris qui colle mieux a mon projet.

Un grand merci encore a toi Chris pour ta correction.

 

Vote positif 0 Vote négatif

Don pépé

XLDnaute Occasionnel

• 24 Février 2017

• #10

Je revient sur se post car j'ai découvert un petit problème.

Voila je viens de m'apercevoir que si un label n'est pas dans la base, excel me met une erreur normal 😉
Comment faire pour si un label n'est pas dans la base ne pas en tenir compte et continuer la procédure ??

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Février 2017

• #11

Bonjour

Modifier la seconde boucle ainsi

Code:

    For Each Terme In Me.Controls
        If Not [Libelles].Find(Terme.Name, LookAt:=xlWhole) Is Nothing Then
            Terme.Caption = [Libelles].Find(Terme.Name).Offset(0, LangueChoisie - 1).Value
        Else
            Terme.Caption = Terme.Name
        End If
    Next

Mettra alors le nom du control : donc les nommer correctement...

 

Vote positif 0 Vote négatif

Don pépé

XLDnaute Occasionnel

• 24 Février 2017

• #12

Bonjour Chris
Beh merci encore a toi. tu m'enleve une epine du pied 😉

 

Vote positif 0 Vote négatif