Macro pour Copier la valeur du dessus AVEC une couleur de police différente ?

Fermé
hdrw Messages postés 2 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 16 mai 2019 - 19 févr. 2019 à 14:06
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 19 févr. 2019 à 17:18
Bonjour à tous,

J'utilise une macro pour copier dans les cellules vides, la valeur de la cellule du dessus.
Elle fonctionne très bien.
Cependant, je souhaite que ces "valeurs copiées" apparaissent dans une autre couleur.

Avec un exemple,
le texte de la cellule A1 est bleu, je souhaite que la macro copie le texte de A1 en A2 en Blanc.

Voici la macro que j'utilise:

Sub copie()

Dim i As Integer, cel As Range
Worksheets("Feuil1").Select

Application.ScreenUpdating = False

For Each cel In Worksheets("Feuil1").Range("A2:C" & Worksheets("Feuil1").Range("B" & Worksheets("Feuil1").Rows.Count).End(xlUp).Row)

If cel.Value = "" Then cel.Value = cel.Offset(-1, 0).Value

Next cel

End Sub

Est il possible donc de rajouter un code qui changerait uniquement la couleur des cellules copiées ?

J'espère avoir été clair :)
Merci beaucoup pour votre aide !
A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 févr. 2019 à 17:18
pour mettre texte cellule vide en rouge

1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 févr. 2019 à 14:52
Bonjour

"J'espère avoir été clair
"

loupé!

"le texte de la cellule A1 est bleu, je souhaite que la macro copie le texte de A1 en A2 en Blanc.
"
????
A2 en blanc ? texte blanc sur fond coloré ?
A2 texte en bleu sur fond blanc?




0
hdrw Messages postés 2 Date d'inscription mardi 19 février 2019 Statut Membre Dernière intervention 16 mai 2019
19 févr. 2019 à 15:24
Bonjour,

je reprends mon exemple et je vais essayer de le compléter:
(les couleurs que je cite sont prises au hasard et merci de ne pas tenir compte de l'exemple précédent)

Dans la cellule A1 il y a écrit "stylo", la couleur du texte "stylo" est bleu et le fond de la cellule est blanc.
Avec ma macro,
Si la cellule A2 est vide alors le texte "stylo" est recopié SANS modification CAD, je retrouve en A2 écrit "stylo" en couleur bleu et sur un fond blanc.

Ce que je souhaite est que le texte copié en A2 soit de couleur rouge et toujours sur le même fond blanc.
0