MFC avec macro

[Cazinos]

Bonjour le forum,

J'ai besoin de 4 mise en forme pour les valeurs : Q8 - S5 - T4 - VQ

les valeurs du tableau ci-joint sont copiées à partir d'un autre tableau excel, d'ou mon soucis! car, les 4 valeurs citées ci-dessus changent de ligne à chaque fois.

serait-il possible de créer une macro qui donne la couleur "bleu" aux 5 premières colonnes des quatres valeurs citées ci-dessus.

La macro doit s'executée automatiquement à chaque fois que l'on colle de nouvelles données

Je ne sais pas si j'ai été clair c'est pour ça que j'ai join un exemple

Merci

Cazinos

 

[Cazinos]

Re : MFC avec macro

Voici le fichier

Cazinos

 

[job75]

Re : MFC avec macro

Bonjour Cazinos,

Testez la macro suivante, à placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub WorkSheet_Change(ByVal Cel As Range)
Dim Q8, S5, T4, VQ As Range
On Error Resume Next
[B2:B60].Interior.ColorIndex = 36
[C2:C60].Interior.ColorIndex = 34
[D2:D60].Interior.ColorIndex = 40
[E2:F60].Interior.ColorIndex = 35
Set Q8 = Range("A" & Application.Match("Q8", [A:A], 0))
Set S5 = Range("A" & Application.Match("S5", [A:A], 0))
Set T4 = Range("A" & Application.Match("T4", [A:A], 0))
Set VQ = Range("A" & Application.Match("VQ", [A:A], 0))
Set Cel = Intersect(Cel, Union(Q8, S5, T4, VQ))
If Cel Is Nothing Then Exit Sub
Intersect(Cel.EntireRow, [B:F]).Interior.ColorIndex = 37
End Sub

A+

 

[Cazinos]

Re : MFC avec macro

Merci pour ta macro

sauf erreur de ma part la macro renvoie une erreur sur la ligne ci-dessous

Cazinos

If Intersect(Cel], Union(Q8, S5, T4, VQ)) Is Nothing Then Exit Sub

 

[pierrejean]

Re : MFC avec macro

bonjour Cazinos

Salut job75

Ma version

Attention : ne traite que la ligne ou il y a changement (mais restitue les couleurs d'origine )

 

[pierrejean]

Re : MFC avec macro

Re

Version qui traite toutes les lignes

 

[Cazinos]

Re : MFC avec macro

Bon travail ca fonctionne nickel

merci

Cazinos

 

[job75]

Re : MFC avec macro

Re,
J'ai fait des editions sur mon 1er post, prenez la dernière en date. A+

 

[job75]

Re : MFC avec macro

Bonsoir,

Désolé, faut pas faire de macros quand on manque de temps. Mais maintenant celle-ci fonctionne, à condition que le nombre de lignes du tableau soit toujours le même :

Private Sub WorkSheet_Change(ByVal Cel As Range)
If Intersect(Cel, [A:A]) Is Nothing Then Exit Sub
Dim Q8, S5, T4, VQ As Range
On Error Resume Next
Set Q8 = Range("A" & Application.Match("Q8", [A:A], 0))
Set S5 = Range("A" & Application.Match("S5", [A:A], 0))
Set T4 = Range("A" & Application.Match("T4", [A:A], 0))
Set VQ = Range("A" & Application.Match("VQ", [A:A], 0))
[B2:B60].Interior.ColorIndex = 36
[C2:C60].Interior.ColorIndex = 34
[D2:D60].Interior.ColorIndex = 40
[E2:F60].Interior.ColorIndex = 35
Intersect(Union(Q8, S5, T4, VQ).EntireRow, [B:F]).Interior.ColorIndex = 37
End Sub

A+