USF couleur

[tonton]

Bonjour à tous

J'utilise depuis plusieurs mois une macro découverte sur l 'excellente compil1 de thierry (USF couleur). Celle si permet de définir les couleurs d'arrière plan d 'une cellule selectionnée grâce à un userform.
J 'aimerais réaliser une petite amélioration en étendant cette fonction à la selection de plusieurs cellules adjacentes. Je ne sais plus trés bien ou m 'orienter, sachant qu'"activecell" ne peut renvoyer qu à une cellule unique.
Si quelqu'un à une idée, je suis heureux preneur. ( je m 'oriente sur le range)

Merci d 'avance.

 

[Rai]

Bonjour,

Je n'ai pas regardé l'appli dont tu parles, mais le 'Range' me semble très bien.

Range("A1:B13").Interior.ColorIndex = 15
colorie en gris toutes les cellules de la plage A1:B13

Si tu veux colorier une sélection de cellules (adjacentes ou non) :
Selection.Interior.ColorIndex = 4

marche aussi très bien



Tiens_nous au courant.

Rai

 

[tonton]

Merci beaucoup ,

aprés coup , Cela semble toujours simple, mais il fallait y penser ( j 'ai remplacé
activecell par selection)