Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 VBA - Bouton changement couleur texte rouge/vert/bleu/noir

T

tchi456

XLDnaute Occasionnel
Bonjour,

Je souhaite créer un bouton pour pouvoir changer la couleur du texte de la/des cellule(s) sélectionnée(s).
Premier clic le texte devient rouge, deuxième clic le texte devient vert, troisième clic le texte devient bleu et quatrième clic le texte redevient noir.
Si cela est possible j'aimerai également que le texte de mon bouton change à chaque clic; "R" avant le premier clic, "V" après le premier clic, "B" après le deuxième clic, "N" après le troisième clic et redevienne "R" après le quatrième clic.

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry
 
Dernière édition:
Solution
Re

1)Une shape rectangle n'est pas un bouton comme dans la demande initial

2)Il y a qui aime bien se faire mal un bouton de commande est si pratique et en plus fait pour cela

3)Moralité de l'histoire :
-Dans la demande initial mets les bons mots ou fournit un fichier....
-Utilise les bons "boutons" qui sont étudiés pour.

VB: 
Option Explicit

'Bouton pour changer la couleur du texte

Sub BoutonChangerCouleurTexte()
        ActiveSheet.Unprotect Password:="."
    Dim Coul
Coul = ActiveCell.Font.Color
Select Case Coul
    Case vbBlack
        ActiveCell.Font.Color = vbRed
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters.Text = "R"
        Shapes.Range(Array("Rectangle...
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour @tchi456

Si j'ai bien compris l'ordre des couleurs sinon c'est juste une permutation des couleur à faire !

VB: 
Private Sub CommandButton1_Click()
Dim Coul
Coul = ActiveCell.Font.Color
Select Case Coul
    Case vbBlack
        ActiveCell.Font.Color = vbRed
        CommandButton1.Caption = "R"
        CommandButton1.ForeColor = vbRed
    Case vbRed
        ActiveCell.Font.Color = vbGreen
        CommandButton1.Caption = "V"
        CommandButton1.ForeColor = vbGreen
    Case vbGreen
        ActiveCell.Font.Color = vbBlue
        CommandButton1.Caption = "B"
        CommandButton1.ForeColor = vbBlue
    Case vbBlue
        ActiveCell.Font.Color = vbBlack
        CommandButton1.Caption = "N"
        CommandButton1.ForeColor = vbBlack
End Select
End Sub

*Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif
T

tchi456

XLDnaute Occasionnel
Bonjour Phil69970,

Vous êtes sur tous les fronts. Votre code m'a l'air correct mais je comprends pas la raison pour laquelle il ne fonctionne pas.

Meilleures salutations,

Thierry
 

Pièces jointes

  • Test1.xlsm
    17.9 KB · Affichages: 9
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

1)Une shape rectangle n'est pas un bouton comme dans la demande initial

2)Il y a qui aime bien se faire mal un bouton de commande est si pratique et en plus fait pour cela

3)Moralité de l'histoire :
-Dans la demande initial mets les bons mots ou fournit un fichier....
-Utilise les bons "boutons" qui sont étudiés pour.

VB: 
Option Explicit

'Bouton pour changer la couleur du texte

Sub BoutonChangerCouleurTexte()
        ActiveSheet.Unprotect Password:="."
    Dim Coul
Coul = ActiveCell.Font.Color
Select Case Coul
    Case vbBlack
        ActiveCell.Font.Color = vbRed
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters.Text = "R"
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = vbRed
    Case vbRed
        ActiveCell.Font.Color = vbGreen
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters.Text = "V"
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = vbGreen
    Case vbGreen
        ActiveCell.Font.Color = vbBlue
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters.Text = "B"
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = vbBlue
    Case vbBlue
        ActiveCell.Font.Color = vbBlack
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters.Text = "N"
        Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Characters(1, 1).Font.Fill.ForeColor.RGB = vbBlack
End Select
    ActiveSheet.Protect Password:="."
End Sub

et en plus court

VB: 
Option Explicit

'Bouton pour changer la couleur du texte

Sub BoutonChangerCouleurTexte()
        ActiveSheet.Unprotect Password:="."
    Dim Coul
Coul = ActiveCell.Font.Color
With Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange
    Select Case Coul
            Case vbBlack
                ActiveCell.Font.Color = vbRed
                .Characters.Text = "R"
                .Characters(1, 1).Font.Fill.ForeColor.RGB = vbRed
            Case vbRed
                ActiveCell.Font.Color = vbGreen
                .Characters.Text = "V"
                .Characters(1, 1).Font.Fill.ForeColor.RGB = vbGreen
            Case vbGreen
                ActiveCell.Font.Color = vbBlue
                .Characters.Text = "B"
                .Characters(1, 1).Font.Fill.ForeColor.RGB = vbBlue
            Case vbBlue
                ActiveCell.Font.Color = vbBlack
                .Characters.Text = "N"
                .Characters(1, 1).Font.Fill.ForeColor.RGB = vbBlack
    End Select
End With
    ActiveSheet.Protect Password:="."
End Sub

*Ce code fonctionne avec le fichier fournit

*Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

T
  • Question
XL 2010 VBA - Bouton mettre en rouge plusieurs cellules sur la ligne de la cellule sélectionnée
Réponses
11
Affichages
588
job75
T
  • Question
XL 2010 VBA - Bouton pour mettre le texte entre parenthèses
Réponses
4
Affichages
629
Titi456
T
T
  • Résolu(e)
XL 2010 Bouton changement de couleur texte noir/rouge ou rouge/noir
Réponses
3
Affichages
997
tchi456
T
T
  • Résolu(e)
XL 2010 VBA - Bouton texte en rouge et inversément
Réponses
2
Affichages
629
tchi456
T
T
  • Résolu(e)
XL 2010 Bouton pour faire un retrait gauche du texte de 2
Réponses
2
Affichages
671
tchi456
T
T
  • Résolu(e)
XL 2010 VBA - Bouton retrait gauche du texte
Réponses
3
Affichages
653
tchi456
T
S
  • Résolu(e)
XL 2019 code vba changement de couleur si modification de la cellule
Réponses
7
Affichages
2 K
syriak
S
J
  • Question
XL 2019 Changement couleur police avec cellules fusionnées
Réponses
9
Affichages
1 K
Jacques25bis
J
I
  • Question
XL 2016 bouton radio et changement couleur de fond
Réponses
2
Affichages
1 K
incubus
I
E
  • Question
Création d'une MACRO
Réponses
3
Affichages
883
eric Hucher
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…