Changement automatique texte d'un bouton

[GuillaumA]

Bonjour,

Peut-être une solution simple existe t'elle pour ce problème mais je n'arrive pas à définir laquelle.

Mon fichier se traduit en 2 langues: français / anglais. Le texte change partout. Seulement voila, je ne sais comment faire pour des boutons de formulaire.

Pour définir le contenu texte du bouton 14, il faut juste que ce dernier fasse référence à une cellule: C43 .

Je cherche dont quelque chose du type:

Range("Feuil1!C43")

...si le passage par le VBA est nécessaire!

Merci de votre considération.

Cordialement,
Guillaume A.

 

[Efgé]

Re : Changement texte automatique d'un bouton

Bonjour GuillaumA,
Si il s'agit d'un bouton de la boite à outil contrôle :

CommandButton1.Caption = Sheets("Feuil1").Range("A1")

Cordialement

 

[Dull]

Re : Changement automatique texte d'un bouton

Salut GuillaumA le Forum

GrosBug désolé😱

EDITION: Salut FG🙂

Bonne Journée

 

[GuillaumA]

Re : Changement automatique texte d'un bouton

Bonjour a vous deux!
Merci pour vos réponses c'est très gentil de votre part.

Ça me fait penser que je suis dans un cas qui ne m'était encore jamais arrivé.
En effet ces changements doivent se dérouler automatiquement sans activation d'aucune macro.
Je me suis dit qu'un WorkSheet_Activate serait la meilleur solution mais ça ne marche pas.

Du coup je ne sais pas comment "emballer" ta proposition Efgé afin que cela corresponde a mes critères. Dull, j'ai peur de ta macro! =)


On sent qu'un long chemin m'attend encore avant d'être autonome en matière de VBA ...

Guillaume

 

[GuillaumA]

Re : Changement automatique texte d'un bouton

Re,
J'ai placé ça sur la feuille ou je modifie la langue:

Private Sub Worksheet_Change(ByVal Target As Range) 
CommandButton14.Value = TextBox(Sheets("Feuil1").Range("C43"))

OU

Private Sub Worksheet_Change(ByVal Target As Range) 
CommandButton14.Value.TextBox = Sheets("Feuil1").Range("C43")

Ca ne marche toujours pas mais suis-je sur la bonne voie ?

PS: Avec .Caption, même problème
PS2: Il s'agit d'un bouton de la barre d'outils - Formulaire

Cordialement,
Guillaume

 

[Dull]

Re : Changement automatique texte d'un bouton

Re le Fil

Arf... Désolé de t'avoir fait peur Guillaume😛

Peut-être comme cela à l'activation de ta feuille

Option Explicit
Private Sub Worksheet_Activate()
Dim C As Range
Set C = Feuil1.[C43]
If C <> "" Then Feuil1.CommandButton1.Caption = [C43]
End Sub

Ou

au changement d'une simple cellule

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C43]) Is Nothing Then Feuil1.CommandButton1.Caption = IIf(Target <> "", [C43], "")
End Sub

Bonne Journée

 

[GuillaumA]

Re : Changement automatique texte d'un bouton

Re Scary Dull 😛

Rien à faire,
Je n'arrive pas a le mettre en place.

Je joins ici un exemple.


Cordialement,
Guillaume

 

[Efgé]

Re : Changement automatique texte d'un bouton

Re Guillamuman Bonjour Dull 🙂,
Ton bouton n'est pas un bouton de la boite a outil controle, donc ça ne peux pas fonctionner. J'ai ajouté un "bon bouton"
Regarde l'exemple; Tu choisi la langue en feuille1 et tu va voir en feuille2
Cordialement
EDIT
Pour te séparer de tes boutons formulaires tu met des boutons contrôle et tu renvoi sur la macro :
Je m'explique, si tu as attaché la macro toto à ton bouton, tu met un bouton controle, tu click droit dessus / voir le code. Tu vas avoir quelque chose comme ça:

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
 
[COLOR=blue]End Sub[/COLOR]

Sans toucher à rien tu fait :

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
Toto
[COLOR=blue]End Sub[/COLOR]

 

[GuillaumA]

Re : Changement automatique texte d'un bouton

Je rend grâce au seigneur pour vos éclaircissements!
La boîte outil contrôle ne m'était point familière et cette dernière possède des propriétés bien meilleures que les boutons de formulaires.

Merci de m'ouvrir un chemin vers une optimisation encore plus poussée du logiciel!


Efgé ta macro marche parfaitement et je l'ai intégré sans soucis!
Gloire à ce site! =)


@++
Guillaume