Colorer Ligne

[tatou2]

Bonsoir voila je pose ce problème car je ne sais pas si cela est réalisable sans vba.
en fonction du résultat de la cellule A que le tableau E7 ce grise sur la ligne correspondante.
Je ne sais pas si on peut effectuer ce boulot avec MFC😕

 

[James007]

Re : Colorer Ligne

Bonsoir voila je pose ce problème car je ne sais pas si cela est réalisable sans vba.
en fonction du résultat de la cellule A que le tableau E7 ce grise sur la ligne correspondante.
Je ne sais pas si on peut effectuer ce boulot avec MFC😕

Oui, sur la base de la cellule A2 ...

=$E8=$A$2

et choisir le grisé dans le format de MFC ...
A +

 

[fred94000]

Re : Colorer Ligne

Bonsoir le forum,
regardes le classeur modifier.

 

[tatou2]

Re : Colorer Ligne

Merci de votre aide mais ce n'est pas du tout ça en fait je ne veux pas griser la selection mais uniquement en fonction de la selection dans les cellules A que je resultat ce grise dans le tableau en E et F
Merci quand même a vous deux😉

 

[noviceAG]

Re : Colorer Ligne

Bonjour tatou, James, fred,le Forum,

Veux-tu essayer ceci :

en E8 Mfc : (la valeur de la cellule) =$A$2
en F8 Mfc 🙁la formule est) =$E$8=$A$2

Simple essai de ma part
Bonne journée à vous.

 

[tatou2]

Re : Colorer Ligne

Merci NoviceAG mais ce n'est pas tout a fait ça car tu vois lorsque je selelectionne dans le menu deroulant un autre code sur une autre cellule en A il ne surligne pas les cellules correpondantes dans le tableau en E et F .
Merci quand même 🙂

 

[James007]

Colorier Ligne

Sur la base de tes commentaires successifs, je crois avoir deviné ton objectif ...
Sans doute que ta plage de variables va de la cellule A2 à la cellule A5 ...
voir fichier joint ...

A +

 

[job75]

Re : Colorer Ligne

Bonjour à tous,

tatou2, ne serait-ce pas ça que vous voulez ?

La macro suivante se trouve dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A65536")) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim lig As Variant
lig = Application.Match(Target, Range("E:E"), 0)
If IsError(lig) Then Exit Sub
Range("E8:F65536").Interior.ColorIndex = xlNone
Range(Cells(lig, 5), Cells(lig, 6)).Interior.ColorIndex = 15
End Sub

A+

 

[job75]

Re : Colorer Ligne

Re,

Une variante.

J'ai introduit une macro SelectionChange, et déplacé la ligne de code qui efface la ligne grisée.

Private Sub [COLOR="Red"]Worksheet_Change[/COLOR](ByVal Target As Range)
Range("E8:F65536").Interior.ColorIndex = xlNone
If Intersect(Target, Range("A2:A65536")) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim lig As Variant
lig = Application.Match(Target, Range("E:E"), 0)
If IsError(lig) Then Exit Sub
Range(Cells(lig, 5), Cells(lig, 6)).Interior.ColorIndex = 15
End Sub

Private Sub [COLOR="Red"]Worksheet_SelectionChange[/COLOR](ByVal Target As Range)
Range("E8:F65536").Interior.ColorIndex = xlNone
If Intersect(Target, Range("A2:A65536")) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim lig As Variant
lig = Application.Match(Target, Range("E:E"), 0)
If IsError(lig) Then Exit Sub
Range(Cells(lig, 5), Cells(lig, 6)).Interior.ColorIndex = 15
End Sub

A+

 

[tatou2]

Re : Colorer Ligne

Merci a tous .
James007 C'est exactement ce que je voulais impec.😉
Sympa aussi Job75 mais je ne voulais pas de VBA.🙂