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

XL 2010 colorer une ligne de la même couleur qu'une cellule qui contient une MFC

  • Initiateur de la discussion Initiateur de la discussion SANDRA2012
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

SANDRA2012

Guest
Bonjour,

Voici mon tableau :

J'ai une mise en forme conditionnnelle dans la colonne F et je souhaiterais faire une macro qui colore toute ma ligne à l'identique de ma cellule correspondante : soit ligne 3 (A à K) de le même couleur que F3 et ainsi de suite. Si quelqu'un peut m'aiguiller 🙂
Merci d'avance

Bonne fin de journée
 
Bonjour,
Sans fichier , pas sur que mon idée fonctionne, mais dans mise en forme conditionnelle / gerer les regles / s'applique à, tu indiques la ou les lignes concernées, par exemple au lieu de F3:F10, tu mets $1:$10.
 
Bonjour, SANDRA2012, JBOBO, JHA 🙂, le Forum,

Autre possibilité, par macro dans un module standard.
VB:
Option Explicit
Sub Ligne_couleur_x()
'adapation d'un code de eriiic (merci !)
    Dim c As Range
    Columns(6).Interior.Color = xlNone
    For Each c In Columns(6).SpecialCells(xlCellTypeAllFormatConditions)
        c.EntireRow.Interior.Color = c.DisplayFormat.Interior.Color
    Next
End Sub
A bientôt 🙂
 
Pour la macro c'est tout à fait ce que je voulais ! juste une dernière question je souhaiterais que la couleur s'arrête à la fin de mon tableau soit en colonne K et ligne 1000 ou maximum 🙂
merci d'avance
 
Re-bonjour,
... je souhaiterais que la couleur s'arrête à la fin de mon tableau soit en colonne K et ligne 1000 ou maximum...
Comme ceci ?
VB:
Option Explicit
Sub Couleur_x_de_a_à_k()
   Dim c As Range
    Columns(6).Interior.Color = xlNone
    For Each c In Columns(6).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeAllFormatConditions)
        c.Offset(, -5).Resize(, 11).Interior.Color = c.DisplayFormat.Interior.Color
    Next
End Sub
A bientôt 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…