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

Ligne en couleur sous condition

  • Initiateur de la discussion Initiateur de la discussion rougaille974
  • 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 !

R

rougaille974

Guest
Bonjour à tous,

Je sèche devant un petit souci ; j'ai un tableau contenant à peu près 4500 lignes sur 8 colonnes. Une de ces colonnes représente des cellules devant contenir une date ( par ex 06/06/2008) ; est il possible, quand cette cellule est remplie, d'avoir automatiquement la ligne dans une couleur quelquonque.
Ces cellules sont dans ma colonne E (E1,E2,E3,E4,E5 etc.......).Sur certaines lignes, cette cellule est vide et dansd'autres elle contient une date.
Est il possible, oar exemple, si je rempli une date en E5, d'avoir automatiquement la ligne coloriée. Ca meferait gagner un certain temps mais je ne sais pas trop comment m'y prendre 😕

Merci de votre aide et bonner journée.

Rougaille
 
Re : Ligne en couleur sous condition

Salut Compatriote et Bienvenue 🙂, le Forum

Peut être avec une MeFC (Mise en Forme Conditionnelle) si j'ai bien compris


et à reproduire sur la totalité de ta ligne

Bonne Journée
 

Pièces jointes

Re : Ligne en couleur sous condition

Salut Compatriote et Bienvenue 🙂, le Forum

Salut à toi ami de l'Ile et merci pour ton accueil 🙂

C'est exactement ce que je cherchais et je te remercie beaucoup pour le fichier.Par contre, une fois que j'ai la formule, je ne vois pas (ou ne sais pas)comment la répeter automatiquement sur toute la ligne 😕

Encore merci pour ta gentillesse
Passe une bonne journée

Amicalement

Rougaille
 
Re : Ligne en couleur sous condition

Re DULL,

Excuse moi mais j'ai posté un peu trop rapidement.
Pas de soucis pour la répétition sur toute la ligne.

Ca fonctionne pil poil ! ! 🙂

Mille merci pour ton aide et ta gentillesse.
A une prochaine fois..

Amicalement

Rougaille
 
Re : Ligne en couleur sous condition

Re Rougaille,

Je te propose plutôt une macro car la formule que je t'ai proposé est fausse 😱 en effet si autre chose qu'une date est en Col E ca la colore aussi.

met ce code dans le Module de la feuille Alt + F11

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
For i = Feuil1.Range("E65536").End(xlUp).Row To 1 Step -1
Rows(i).Interior.ColorIndex = IIf(IsDate(Cells(i, 5)) And Cells(i, 5) <> "", 43, xlNone)
Next i
End Sub
qui est plus juste

Bonne Journée
 

Pièces jointes

Dernière édition:
Re : Ligne en couleur sous condition

Re DULL,

C'est vraiment très gentil à toi.
Je suppose, à lire ta macro, que 43 correspond au code couleur ?
Je vais voir mais il me semble que oui..

Encore tous mes remerciements pour ta gentillesse.

Rougaille
 
Re : Ligne en couleur sous condition

Bonjour DULL,

Je mepermets de revenir vers toi pour savoir si cela est normal qu'avec ta macro, cela m'empêche de faire un copier/coller sur n'importe quelle cellule.
Ca me gêne un peu ......😡

Merci

Bonne journée

rougaille
 
Re : Ligne en couleur sous condition

Salut Rougaille, le Forum


C'est normal il faut changer la procédure évènementiel. Passe de:

Code:
Private Sub [B]Worksheet_SelectionChange[/B](ByVal Target As Range)
Dim i As Long
For i = Feuil1.Range("E65536").End(xlUp).Row To 1 Step -1
Rows(i).Interior.ColorIndex = IIf(IsDate(Cells(i, 5)) And Cells(i, 5) <> "", 43, xlNone)
Next i
End Sub
à

Code:
Private Sub [B]Worksheet_Change[/B](ByVal Target As Range)
Dim i As Long
For i = Feuil1.Range("E65536").End(xlUp).Row To 1 Step -1
Rows(i).Interior.ColorIndex = IIf(IsDate(Cells(i, 5)) And Cells(i, 5) <> "", 43, xlNone)
Next i
End Sub
ou alors cible ta plage de cellule
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
[B]If Not Intersect(Target, Range("E:E")) Is Nothing Then[/B]
For i = Feuil1.Range("E65536").End(xlUp).Row To 1 Step -1
Rows(i).Interior.ColorIndex = IIf(IsDate(Cells(i, 5)) And Cells(i, 5) <> "", 43, xlNone)
Next i
[B]End If[/B]
End Sub
Il pour répondre à ton avant dernière question Oui 43 est bien un code couleur🙂

Bonne Journée
 
Re : Ligne en couleur sous condition

Re DULL,

Merci 10000 fois 😛
Avec tout ça, je vais trouver mon bonheur.........................et celui de l'utilisateur final !! ! 😉

Encore merci pour ta gentillesse et ta rapidité à répondre.

Bonne journée

Amicalement

Rougaille
 
- 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

Réponses
5
Affichages
340
Réponses
0
Affichages
408
Réponses
0
Affichages
538
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…