Excel bouton Anglais/Français changement langue auto formulaire Résolu

Question

Bonjour,
J'espère que vous passez des bonnes fêtes!!!

Je vous joint mon fichier. 

J'aimerais avoir un bouton au haut du fichier voir Français et Anglais. Si la personne sélectionne Anglais, le texte de base des formulaires deviendrais automatiquement en anglais. 

J'allais traduire le texte (présentement en français seulement et je voulais savoir si je pourrais le formater de cet façon au lieu de fournir deux fichiers à tout le monde.

Bref auriez-vous des options pour moi?

https://drive.google.com/file/d/0B41sCp0KQOTSQzZUbmdISVF2UHM/view?usp=sharing 

Merci,


Configuration: Windows 7 / Firefox 34.0

pijaku · Accepted Answer

Bonjour,

C'est faisable, relativement facilement, par macro VBA.

Dans un module, il convient de créer : 
- Une variable publique : 
Public Langue As String
- deux macros à relier aux cases d'option 
Sub Casdoption5_Cliquer()
Langue = "Fr"
Rempli_Feuil_Summary
End Sub

Sub Casdoption2_Cliquer()
Langue = "En"
Rempli_Feuil_Summary
End Sub
- Une macro de "remplissage" des cellules concernées
Sub Rempli_Feuil_Summary()
Select Case Langue
    Case "Fr"
        Range("B2") = "Nom de l'unité:"
        'Etc...
    Case "En"
        Range("B2") = "Unit name:"
        'Etc...
    Case Else
        Debug.Print "ceci ne devrait pas se produire."
End Select
End Sub
Dans le module ThisWorkbook, initialiser la variable Langue par défaut à l'ouverture du classeur :
Private Sub Workbook_Open()
Langue = "Fr"
Rempli_Feuil_Summary
End Sub

Ton exemple en retour. Seule cellule modifiée : B2...

pijaku · Answer

Bonjour,

Pour faire simple, une seule macro devrait suffire :

- deux macros à relier aux cases d'option

Sub Casdoption5_Cliquer()
Langue = "Fr"
Rempli_FeuilS
End Sub

Sub Casdoption2_Cliquer()
Langue = "En"
Rempli_FeuilS
End Sub


- Une macro de "remplissage" des cellules concernées

Sub Rempli_FeuilS()
Select Case Langue
    Case "Fr"
        With Sheets("Summary")
            .Range("B2") = "Nom de l'unité:"
            'Etc...
        End With
        With Sheets("Disbursements calendar")
            .Range("C4") = "Bonne Année"
        End With
    Case "En"
        With Sheets("Summary")
            .Range("B2") = "Unit name:"
            'Etc...
        End With
        With Sheets("Disbursements calendar")
            .Range("C4") = "Happy new year"
        End With
    Case Else
        Debug.Print "ceci ne devrait pas se produire."
End Select
End Sub
N'oublie pas les points devant les Range qui se trouvent à l'intérieur des blocs With.

Si ta macro est trop longue, dis le...

Dans le module ThisWorkbook, initialiser la variable Langue par défaut à l'ouverture du classeur :

Private Sub Workbook_Open()
Langue = "Fr"
Rempli_FeuilS
End Sub

Excel bouton Anglais/Français changement langue auto formulaire

2 réponses

Discussions similaires

Newsletters