XL 2019 Couleur texte en VBA

[GDINFO]

Bonjour

Je cherche depuis un moment une solution

ActiveCell = ActiveCell + "RJEd "
ActiveCell = ActiveCell + "RJEi "



Dans mes codes VBA je voudrais que mon texte RJEd soit ecrit en Rouge et RJEi Bleu et mode Gras

est ce possible ?

merci de votre science et aide

 

[GDINFO]

code deverrouillage =1630

se mettre dans feuille janvier et click bouton RJEd ou RJEi

 

[Dudu2]

Bonjour,
Et tu comptes envoyer le fichier quand ?

De toutes façons pas besoin de fichier.

Sub a()
    Const RJEd = "RJEd "
    Const RJEi = "RJEi "
 
    ActiveCell.Value = ActiveCell.Value + RJEd
    ActiveCell.Characters(Start:=Len(ActiveCell.Value) - Len(RJEd) + 1, Length:=Len(RJEd)).Font.ColorIndex = 3
End Sub

Je te laisse adapter pour RJEi.

 

[GDINFO]

Bonjour,
Et tu comptes envoyer le fichier quand ? Regarde la pièce jointe 1134843

De toutes façons pas besoin de fichier.

Sub a()
    Const RJEd = "RJEd "
    Const RJEi = "RJEi "
 
    ActiveCell.Value = ActiveCell.Value + RJEd
    ActiveCell.Characters(Start:=Len(ActiveCell.Value) - Len(RJEd) + 1, Length:=Len(RJEd)).Font.ColorIndex = 3
End Sub

Je te laisse adapter pour RJEi.

Bonjour
Merci pour votre retour
pour le fichier je l'avais envoyé vide

 

[GDINFO]

Bonjour
Merci pour votre retour
pour le fichier je l'avais envoyé vide

Personnellement j'aurais pas trouvé la solution , je vais adapté
Merci encore de votre aide

 

[Dudu2]

Et ici pour les valeurs de .ColorIndex -> https://analysistabs.com/excel-vba/colorindex/
La propriété .Color peut aussi être utilisée mais il faut trouver les bonnes valeurs par sur la base d'une cellule colorée dont tu afficherais les .Inerior.Color.

 

[GDINFO]

Et ici pour les valeurs de .ColorIndex -> https://analysistabs.com/excel-vba/colorindex/
La propriété .Color peut aussi être utilisée mais il faut trouver les bonnes valeurs par sur la base d'une cellule colorée dont tu afficherais les .Inerior.Color.

Merci de cet mine de trésor couleur

 

[GDINFO]

Merci de cet mine de trésor couleur

Merci pour le VBA
Mais je rencontre un problème
Si dans une cellule je clic sur sur valeur en rouge puis une autre valeur en noir puis de nouveau en rouge toutes les valeurs change de couleur ( alors qu'une seule valeur c'est correct)
mais c'est peux être normal

 

[Dudu2]

Je ne comprends pas ce que tu dis.
Donne un exemple. C'est quoi le scénario ?
Dans ton fichier il n'y a rien qui puisse déclencher du code. Pas de module, pas de gestion d'évènement.
De plus je ne comprends pas pourquoi le code des set de couleurs est dans la classe Workbook.

 

[GDINFO]

Je ne comprends pas ce que tu dis.
Donne un exemple. C'est quoi le scénario ?
Dans ton fichier il n'y a rien qui puisse déclencher du code. Pas de module, pas de gestion d'évènement.
De plus je ne comprends pas pourquoi le code des set de couleurs est dans la classe Workbook.

Le but est de saisir dans caque cellule en fonction du mois et du jour , un RDV

RD D =Direct et RD i =Indirect

 

[GDINFO]

Le but est de saisir dans caque cellule en fonction du mois et du jour , un RDV

RD D =Direct et RD i =Indirect

Le but est de saisir dans caque cellule en fonction du mois et du jour , un RDV

RD D =Direct et RD i =Indirect

 

[GDINFO]

C'est ce fichier qui est le modele

 

[Dudu2]

Ok alors je saisis RDV dans une cellule et je clique sur un des boutons. Ça ajoute un suffixe et le colore.
Et donc c'est quoi le problème ? C'est quand on clique sur un autre bouton pour le même RDV qui ajoute donc un suffixe au suffixe déjà existant ?

Qu'est-ce qu'il faut faire pour faire apparaitre le problème (saisir Poutine, cliquer en B12, cracher en l'air ?) ?
C'est quoi le problème (ça plante, ça fait bouillir l'eau de la casserole ?) ?
Réponds à ces 2 questions, c'est pas compliqué !

 

[GDINFO]

Ok alors je saisis RDV dans une cellule et je clique sur un des boutons. Ça ajoute un suffixe et le colore.
Et donc c'est quoi le problème ?

Le problème
si vous mettez plusieurs rdv il se colories tous de la même couleur
Rjed Rjei Rjed Rjei

 

[Dudu2]

NON !