Macro pour Copier la valeur du dessus AVEC une couleur de police différente ?
hdrw
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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:
- Macro pour Copier la valeur du dessus AVEC une couleur de police différente ?
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment copier une vidéo youtube - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Changer police facebook - Guide
- Police aptos - Accueil - Bureautique
2 réponses
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?
"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?
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.
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.
