Ligne en couleur sous condition

[rougaille974]

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

 

[Dull]

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

 

[rougaille974]

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

 

[rougaille974]

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

 

[Dull]

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

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

 

[rougaille974]

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

 

[rougaille974]

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

 

[Dull]

Re : Ligne en couleur sous condition

Salut Rougaille, le Forum


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

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

à

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

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

 

[rougaille974]

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