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

Microsoft 365 Modifier couleur du texte d'une cellule

P

pat66

XLDnaute Impliqué
Bonjour le forum,

J'essaie de de rédiger cette syntaxe ainsi, mais je ne sais pas si c'est possible,
pourriez vous me donner un coup de main, s'il vous plaît, l'objectif étant de pouvoir modifier la couleur du texte à chaque clic :

VB: 
Sub tauxlight()
Worksheets("Feuil1").Unprotect ("X")
Target = Worksheets("Feuil1").Range("E63")
Target.Font.Color = IIf(Target.Font.Color = RGB(216, 228, 188), RGB(0, 32, 96), RGB(216, 228, 188))
Worksheets("Feuil1").Protect ("X")
End Sub

merci pour votre aide
 
Solution
Non, c'est une instruction exécutable.
Target = Worksheets("Feuil1").Range("E63") ça va affecter à Target la propriété Value par défaut de l'expression range, tandis que Set Target = Worksheets("Feuil1").Range("E63") va y affecter l'objet lui même.
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
Bonjour.
Il faut Set devant pour initialiser une variable objet selon une expression objet.
Mais ce ne serait pas nécessaire si c'était écrit dans le module de l'objet Worksheet dans une procédure de prise en charge de son évènement SelectionChange car Target lui serait alors transmis en argument.
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
Bonjour,

ok, merci du conseil mais hélas "Set", je ne connais pas, j'imagine qu'on parle de déclaration des variables.
Pour des raisons d'usage, cette macro doit être située dans un module classique que j'utilise occasionnellement
 
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Non, c'est une instruction exécutable.
Target = Worksheets("Feuil1").Range("E63") ça va affecter à Target la propriété Value par défaut de l'expression range, tandis que Set Target = Worksheets("Feuil1").Range("E63") va y affecter l'objet lui même.
 
Vote positif 0 Vote négatif
Solution
P

pat66

XLDnaute Impliqué
re,

mille excuses, je m'étais trompé de feuille au lieu de la "Feuil1, c'était la "Feuil2"
Maintenant cela fonctionne sur bien

Voici la solution un grand merci à vous Dranreb

VB: 
Sub tauxlight()
Worksheets("Feuil2").Unprotect ("X")
set Target = Worksheets("Feuil2").Range("E63")
Target.Font.Color = IIf(Target.Font.Color = RGB(216, 228, 188), RGB(0, 32, 96), RGB(216, 228, 188))
Worksheets("Feuil2").Protect ("X")
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Macro qui change l'épaisseur du contour d'une forme
Réponses
11
Affichages
274
pat66
P
C
  • Résolu(e)
XL 2016 Changer couleur de cellule en un clic et reset
Réponses
9
Affichages
2 K
Chris769375
C
  • Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
2 K
patricktoulon
R
  • Résolu(e)
XL 2016 Colorer l'intérieur d'une cellule sélectionnée
2 3
Réponses
33
Affichages
2 K
p56
H
  • Question
Microsoft 365 Change la couleur d'une partie du texte d'une cellule
Réponses
3
Affichages
677
Hak42
H
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
1 K
Chaine
C
A
  • Question
Microsoft 365 Modifier la couleur du texte dans un mail généré par excel
Réponses
2
Affichages
730
AIr-V
A
P
  • Résolu(e)
XL 2019 supprimer la couleur d'une cellule dès que je clique dans une autre cellule
Réponses
2
Affichages
759
pat66
P
  • Question
Microsoft 365 Changer une partie du texte d'une cellule en modifiant : police/taille police/couleur
Réponses
7
Affichages
4 K
Usine à gaz
W
  • Résolu(e)
XL 2013 Exécuter une macro uniquement si la date d'une cellule est inférieure à la date du jour
Réponses
3
Affichages
7 K
WIsh_
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…