Excel bouton Anglais/Français changement langue auto formulaire

Résolu/Fermé

Sania - 29 déc. 2014 à 22:07
Sania - 6 janv. 2015 à 21:35

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,

A voir également:

Macro excel en anglais
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Mise en forme conditionnelle excel - Guide
Macro word - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
30 déc. 2014 à 11:48

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...

Sania
Modifié par Sania le 30/12/2014 à 14:44

Exactement ce que j'avais besoin! Merci beaucoup :)

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Sania
30 déc. 2014 à 14:46

De rien!
@++

Sania > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
30 déc. 2014 à 15:34

Bonjour encore :)

Dit-moi, est-ce que je peux forcer En comme langue à l'impression?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Sania
30 déc. 2014 à 15:38

Oui, en faisant un bouton "IMPRIMER".
Le code de ce bouton serait, dans le style :

Langue = "En"
Rempli_Feuil_Summary
Sheets("Summary").PrintOut
Langue = "Fr"
Rempli_Feuil_Summary

Sania > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
30 déc. 2014 à 17:34

Merci encore!!!!

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
1 janv. 2015 à 11:01

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

Sania
5 janv. 2015 à 16:33

Merci pour ta réponse! Très apprécié et désolé du délais!!! Je t'en redonnes des nouvelles sous peu. Bonne année!!! :)

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Sania
6 janv. 2015 à 07:35

De rien.
Bonne année également.
@++

Sania
Modifié par Sania le 6/01/2015 à 22:13

Oubli sa tout est fonctionnel j'avais oublié d'arrêter l'enregistrement. Une vraie blonde!!!!

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Comment dit t-on le "@" en Anglais

Discussions similaires

Newsletters