Discussion :

[Prekestolen]

Bonjour

J'ai deux bouton sur ma feuille Excel. Si je clique sur celui en anglais, il doit affiché une phrase en anglais. Si je clique sur celui en français, il doit affiché une phrase en français. Peu importe le bouton, la phrase doit s'affiché à la même place. Je reprend du code d'un ancien utilisateur (sans information) donc un peu difficle au début. Il avait écrit une phrase en francais et en cliquant sur le bouton "Note de crédit" cela apparaissait sur la facture, (si j'ai bien compris le code la phrase est écrite sur la feuille excel et en cliquant sur le bouton, ca masque et démasque. On me demande d'écrire la même phrase en anglais si le client est anglais. Que faire

[mentat]

Salut

Mon conseil serais :

La solution la plus facile serait de crée deux bouton, un éffaçant la case et la remplissant avec la traduction en Français de ton text et l'autre éffaçant la case et la remplissant avec la traduction en anglais de ton text.

Ensuite pour optimisé tu fais la même opération avec un bouton...

Poste ton code déja...

[Pierre Fauconnier]

Bonjour

Sans voir comment est conçu le classeur, il est malaisé de répondre d'une façon pertinente...

Lorsque je suis confronté à ce genre de cas, je place une liste déroulante avec le choix des langue. En choisissant une langue dans la liste, je place une certaine valeur dans la cellule liée à cette liste, et je travaille avec des formules conditionnelles et/ou la fonction INDEX pour renvoyer le texte adéquat dans les cellules...

Mieux encore, au choix du client, on va rechercher sa langue dans le signalétique, et c'est cela qui détermine le choix du message dans les cellules...

A ce niveau-là, je ne me sers pas de VBA, le mécanisme est mis en place uniquement dans Excel. Mais il est bien entendu possible de renvoyer la valeur dans la cellule "langue" par VBA.

Comme souvent, donc, un problème de conception du classeur bien avant d'être un problème VBA...

Ok?

[Prekestolen]

L'explication de Pierre Fauconnier est bonne, mais c'est juste une petite application maison pour la secrétaire, et elle fait ca seulement en fin de mois (de toute facon les client anglais comprennent très bien la phrase en fracais, mais loi gouvernementale pour un organisme para-gouvernemental oblige...).
Voici le code utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub noteDeCrédit()
 
    'Pour faire afficher la phrase Note de crédit
 
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="FACTFIN"
    If Range("N60") < 0 Then
    Range("D7:L8").Select
    Selection.Font.ColorIndex = 0
    Else: Range("D7:L8").Select
    Selection.Font.ColorIndex = 2
    End If
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, Password:="FACTFIN"
    Range("A1").Select
 
 
End Sub

[Pierre Fauconnier]

Je persiste et signe, car je préfère de loin une bonne mise en place dans Excel qui facilitera d'autant plus la création d'un code VBA pérenne.

J'ai créé le fichier joint en 5 minutes, donc, cette solution est parfaitement adaptée à une utilisation mensuelle d'une petite application maison... De plus, dans cet exemple, je n'ai aucune ligne de code VBA...

A toi de choisir entre la simplicité d'Excel et une certaine rigidité de VBA.

http://fauconnier.developpez.com/for...ultilingue.xls

[Prekestolen]

Oui, c'est bien, mais ce n'est pas comme ca que ca fonctionne ici. Si on reprendrait au début, ce serait une bonne solution. Mais les série de copie de facture sont ailleurs (dansun autre dossier). Mon patron veut juste que je cré un bouton pour écrire "Credit Note". Le bouton pour écrire "Note de crédit" existe déjà.

[Pierre Fauconnier]

Je ne vois pas trop en quoi le code que tu as donné permet cela, ou plutôt, sans le classeur, il va falloir jouer aux devinettes.

Le code que tu donnes modifie l'encre d'une cellule, c'est-à-dire la couleur tu texte dans la cellule. Je suppose que D7:L8 correspond à une plage qui contient le mot à afficher ou cacher. Je suppose aussi qu'il y a donc une autre plage à afficher ou cacher...

Quoi qu'il en soit, ton code est pour le moins très bizarre, et nonobstant ce que j'ai dit plus haut, il faudrait l'adapter et le faire correspondre à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Range("N60") < 0 Then
    Range("D7:L8").Font.ColorIndex = 0
    Else
    Range("D7:L8").Font.ColorIndex = 2
End If

[Prekestolen]

La liste déroulante ne fonctionne pas.

[Pierre Fauconnier]

Je ne comprends pas ce que tu veux dire par "ne fonctionne pas"

Tu sélectionnes la cellule fusionnée, tu cliques sur la flèche qui apparaît à droite, et tu choisis parmi les deux propositions... (Je viens de tester en téléchargeant le fichier)

[Prekestolen]

Vous choississez Zone de liste Déroulante dans les outils? Et vous faites comment pour entrer les deux choix? Je suis les instructions de l'aide et ca ne marche pas

[Pierre Fauconnier]

Non, c'est une liste de validation directement dans la cellule

<XL2007 => Données/Validation
XL2007: Onglet Données, groupe Outils de données, Validation de données

Là, choisir Liste, puis saisir les deux valeurs séparées par un point-virgule.

Tu peux voir ce que j'ai fait en sélectionnant d'abord la cellule dans le fichier que j'ai posté, puis en procédant comme expliqué plus haut.

Validation de données en 2007



Et en 2003

[Prekestolen]

Enfin, ca commence à prendre forme. (il a fallu que je mettre une virgule au lieu de point virgule comme séparateur). J'ai décocher la case "Ignorer si vide" car il se peut aussi (pour les données positives) qu'aucune des deux indications ne soient là. Mais dans la sélection, un espace vide n'apparait pas (j'ai aussi mis un espace dans la sélection avec une virgule pour séparé, mais la ligne blanche que je veux n'apparait pas)