Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Rajouter une ligne de commande dans une macro pour la couleur

Rajouter une ligne de commande dans une macro pour la couleur

2 réponses
Avatar
Guido
Bonjour,
je me suis monté une macro (déjà un exploit pour mes maigres connaissances),
et je voudrais savoir comment je peux rajouter une ligne de commande pour
colorer le texte qui doit l'être selon ma macro.
Qui peut me donner la solution qui engloberait mes 70 lignes identiques dont
j'ai raccourcis l'exemple ci-dessous.
Il s'agit juste de rajouter le rouge pour ces nombres rajoutés.
Merci à vous pour votre aide.
Guido
-------------------------------------
Sub_86
Range("D11").Select
ActiveCell.FormulaR1C1 = "200.55"
Range("C12").Select
ActiveCell.FormulaR1C1 = "70.2"
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Si c'est le fond de la cellule que tu veux colorer :
ActiveCell.Interior.ColorIndex = 3
Si c'est la police :
ActiveCell.Font.ColorIndex = 3
Note que tu peux écrire directement :
Range("D11").Value = "200.55"
Range("D11").Interior.ColorIndex = 3
en ôtant la ligne :
Range("D11").Select
Cordialement.
Daniel
"Guido" a écrit dans le message de news:

Bonjour,
je me suis monté une macro (déjà un exploit pour mes maigres
connaissances),
et je voudrais savoir comment je peux rajouter une ligne de commande pour
colorer le texte qui doit l'être selon ma macro.
Qui peut me donner la solution qui engloberait mes 70 lignes identiques
dont
j'ai raccourcis l'exemple ci-dessous.
Il s'agit juste de rajouter le rouge pour ces nombres rajoutés.
Merci à vous pour votre aide.
Guido
-------------------------------------
Sub_86
Range("D11").Select
ActiveCell.FormulaR1C1 = "200.55"
Range("C12").Select
ActiveCell.FormulaR1C1 = "70.2"
End Sub




Avatar
Guido
Bonjour Daniel,
J'ai en fait environs 30 tableaux a monter, ou les données que je rentre en
Macro, devront par un autre bouton s'effacer. Je me suis demandé s'il n'y
avait pas de solutions qui consiste à insérer une ligne de commande (comme
tu me le donnes)
---------------------------------
ActiveCell.Font.ColorIndex = 3
---------------------------------
et qui le ferait automatiquement pour toutes les autres données insérées.

Pour ce qui est de:
-----------------------
Range("H8").Select
ActiveCell.FormulaR1C1 = "24"
------------------------------

c'est simplement que je rentre mes données par le tableau et non sur la
feuille VBa directement. Car les autres tableaux que je dois monter,
n'utiliseront pas les mêmes cellules, ni les mêmes chiffres.

Merci de ton aide
Guido




"Daniel" a écrit dans le message de
news:
Bonjour.
Si c'est le fond de la cellule que tu veux colorer :
ActiveCell.Interior.ColorIndex = 3
Si c'est la police :
ActiveCell.Font.ColorIndex = 3
Note que tu peux écrire directement :
Range("D11").Value = "200.55"
Range("D11").Interior.ColorIndex = 3
en ôtant la ligne :
Range("D11").Select
Cordialement.
Daniel
"Guido" a écrit dans le message de news:

Bonjour,
je me suis monté une macro (déjà un exploit pour mes maigres
connaissances),
et je voudrais savoir comment je peux rajouter une ligne de commande
pour


colorer le texte qui doit l'être selon ma macro.
Qui peut me donner la solution qui engloberait mes 70 lignes identiques
dont
j'ai raccourcis l'exemple ci-dessous.
Il s'agit juste de rajouter le rouge pour ces nombres rajoutés.
Merci à vous pour votre aide.
Guido
-------------------------------------
Sub_86
Range("D11").Select
ActiveCell.FormulaR1C1 = "200.55"
Range("C12").Select
ActiveCell.FormulaR1C1 = "70.2"
End Sub