Discussion :

[Baraben]

Bonjour
J'essaye de réaliser un bouton bascule en vba dans word qui permettrait de changer la couleur de la police dans un tableau tout en ne changeant pas la couleur de ce qui est deja écrit. Par exemple, lorsqu'il serait enfoncé, ça écrirait en rouge et lorsqu'il serait relaché, ça écrirait en noir. J'ai essayé d'enregistrer une macro mais cela ne marche que dans la cellule où se trouve le bouton et si il n'y a rien d'autre d'écrit.
Je suis presque débutant en vb (juste une dizaine d'heures de cours) et je m'en sors pas.
Merci

[MegaBigBoss]

Un conseil :tu devrais modifier ton titre et rajouter [VBA-E] devant ton titre puis lire les règles

[zazaraignée]

Salut

Bienvenue sur le forum VB de Développez

Avant de répondre à ta question, je t'invite à lire ces rubriques si ce n'est déjà fait

• Le mode d'emploi
• Les règles du forum

Avant de poster:

• La FAQ VB
• La FAQ VBA
• Les tutoriels VB
• Les sources VB

Les TuggleButtons (boutons bascule)
Affiche la boîte à outils Contrôles puis clique sur le bouton Autres contrôles. Dans la liste sélectionne Microsoft Form 2.0 TuggleButton.

[GeorgyMeuh]

Je suis débutant pour ma part aussi. J'ai déja voulu réliser ceci avec VBA, sans succès.
J'ai bien lu les différents FAQ, et je n'ai vu nulle part une réponse à la question posée. Je regrette que votre communauté soit si hostile aux débutants.
Quitte a répondre et le juger sur sa demande, autant apporter une solution qui vous semble évidente, à voir votre facon de réagir.

--------------------------------------------
Georgy ( Programmeur amateur sous Delphi 6 Perso )

[Baraben]

Salut
En fait j'ai pas vraiment de problème avec le bouton bascule mais plutot avec le code qu'il faut lui appliquer. Voila ce que j'ai écrit:

Code :

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

1
2
3
4
5
6
 
If btnBascule.Value = True Then
    Selection.Font.Color = wdColorGreen
    Else
    selection.Font.Color = wdColorAutomatic
End If

Je sais que c'est super basique mais j'essaye de faire ce que je peux.
J'espère que vous pourrez m'aider.

[SfJ5Rpw8]

reli ton code .. SVP. .déjà pourquoi n'utilise tu pas la même commande pour passer en vert ou en rouge ? message d'erreur ?

ensuite désolé mais j'ai pas compris ou ce trouver ton bouton ..? dans une feuille Word. ..? et le texte dont il faut changer la couleur c'est le texte du bouton ?

[Baraben]

Salut bbil
Je m'étais planté en faisant mon copier coller mais j'ai rectifié.
En fait le bouton se trouve bien dans une page word et le texte dont il faut changer la couleur se trouve dans un tableau de la même feuille word.
Désolé si j'ai pas été assez clair.

[Baraben]

j'ai essayé ça aussi mais là ça met tous les caractères du tableau en vert alors que je voudrais que les caractères deja écrit reste noirs.

Code :

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

1
2
3
4
5
If btnBascule.Value = True Then
    Range(556, 1400).Font.Color = wdColorGreen
    Else
    Range(556, 1400).Font.Color = wdColorAutomatic
End If