Macro VBA

[ljoue]

Bonjour à tous,

J'aurais besoin de votre aide précieuse...

Comment traduire en VBA :

Si il y a une Cellule 'couleur Noire' dans la colonne 'A:A'

Alors remplir de la meme couleur les cellules de la meme ligne que la cellule de 'couleur Noire'

exemple :

Si Cellule noir en 'A5'

---> Alors remplir en 'Noir' la ligne 'A5:L5'

Merci d'avance,
Cordialement
Laurent

 

[STephane]

bonjour

la question c'est surtout pourquoi est-elle noire ?

-> suite à une réflexion ?
-> une mise en forme conditionnelle ?
-> une coloration manuelle ?

la macro ci-dessous étudie toutes les cellules de la première à la dernière cellule non vide de la colonne A, et colorie la ligne en noire si la cellule est noire.


Sub demo_test()
For Each rg In Range([a1], [A65536].End(xlUp))
rg.Activate
If rg.Interior.ColorIndex = 1 Then
Range(Cells(rg.Row, 1), Cells(rg.Row, 12)).Interior.ColorIndex = 1
End If
Next rg
End Sub

 

[ljoue]

Bonjour Stephane,

La cellule est noire car c'est une 'coloration manuelle'

Je viens d'essayer ta Macro, elle marche très bien cependant elle ne fonctionne que (comme tu la précisé) si la cellule est non vide.

Or dans mon fichier les cellules noires sont vide.

Y a t-il un moyen de faire la meme macro mais pour :

- une cellule 'noire' et 'vide'

Merci beaucoup pour ton aide