Excel bouton Anglais/Français changement langue auto formulaire
Résolu/Fermé
A voir également:
- Changer langue formule excel
- Formule excel - Guide
- Liste déroulante excel - Guide
- Changer langue facebook - Guide
- Changer langue windows 10 - Guide
- Formule excel si contient texte alors texte ✓ - Forum Excel
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
30 déc. 2014 à 11:48
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 :
- deux macros à relier aux cases d'option
- Une macro de "remplissage" des cellules concernées
Dans le module ThisWorkbook, initialiser la variable Langue par défaut à l'ouverture du classeur :
Ton exemple en retour. Seule cellule modifiée : B2...
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
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
1 janv. 2015 à 11:01
1 janv. 2015 à 11:01
Bonjour,
Pour faire simple, une seule macro devrait suffire :
- deux macros à relier aux cases d'option
- Une macro de "remplissage" des cellules concernées
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 :
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Sania
6 janv. 2015 à 07:35
6 janv. 2015 à 07:35
De rien.
Bonne année également.
@++
Bonne année également.
@++
Modifié par Sania le 30/12/2014 à 14:44
30 déc. 2014 à 14:46
@++
30 déc. 2014 à 15:34
Dit-moi, est-ce que je peux forcer En comme langue à l'impression?
30 déc. 2014 à 15:38
Le code de ce bouton serait, dans le style :
Langue = "En" Rempli_Feuil_Summary Sheets("Summary").PrintOut Langue = "Fr" Rempli_Feuil_Summary30 déc. 2014 à 17:34