Mise en forme macro

Bonjour à tous,

Je viens de réaliser seul mes macro sur un fichier excel 2007.
Je suis débutant et merci aux membres du forum pour l'aide apportée.

Je suis bloqué pour écrire une formule de mise en forme.

La macro est affectée à un bouton dans le fichier. Je souhaite faire en sorte que dans ma sélection,toutes les cellules d'une ligne X soient coloriées.
Je ne sais pas comment écrire : "dans ma sélection".

Je pourrai formuler autrement par : Si dans ma sélection il y à des cellules de la ligne xx alors les colorier en xxxx.

C'est peut être super simple pour vous mais je ne trouve pas sur le fofo :?.

Merci par avance !

Bonjour,

Citation:

---

La macro est affectée à un bouton dans le fichier

---

Peux-tu communiquer ce que tu as déjà esquissé

Bonjour et oui voici la petite mise en forme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Public Sub RAZ()   'remise a zéro de la selection With Selection With .Borders(xlEdgeLeft) .Color = RGB(96, 108, 149) .LineStyle = xlContinuous .Weight = xlMedium End With With .Borders(xlEdgeRight) .Color = RGB(96, 108, 149) .LineStyle = xlContinuous .Weight = xlMedium End With With .Borders(xlInsideVertical) .Color = RGB(96, 108, 149) .LineStyle = xlContinuous .Weight = xlMedium End With With .Borders(xlInsideHorizontal) .LineStyle = xlNone 'pas de bordures intérieures horizontal End With .Interior.ColorIndex = 2 'passage en blanc du fond de la selection .ClearContents 'effacer le contenu End With Rows("31:31").Interior.Color = RGB(165, 165, 165) End Sub

---

Il s'agit de la dernière ligne du code, je veux l'appliquer uniquement dans la sélection.

Et au passage s'il y a des choses à écrire mieux que ce que j'ai écris je suis preneur. =)

pour appliquer la couleur à la sélection entière, un exemple

Code:

---

Range(Selection.Address).Interior.Color = RGB(165, 165, 165)

---

D'accord effectivement la mise en forme s'applique pour toute la sélection, cependant je veux appliquer la mise en couleur uniquement sur les cellules de la ligne 31.

Comment faire pour identifier les cellules de la ligne 31 ? Rows("31:31") ? je n'y arrive pas 8O

comment sait-on que la ligne 31 fait partie de la sélection, ta demande n'est pas claire même quand je relis tes messages

Mon bouton sert à remettre en forme mon planning d'équipe. Peu importe ce que je sélectionne sur ma page Excel la ligne 31 est grisée. Si jappuie sur mon bouton cela doit tout enlever et remettre la ligne 31 grisée (si dans ma sélection il y a la ligne 31)
Je vous envoie un exemple de fichier demain lorsque je serai à mon poste de travail.
En tous cas merci et désolé pour le dérangement.
Bonne soirée.

Toujours pas sur de comprendre mais voici un code qui grise la ligne 31 en partant de la première colonne de la sélection à la dernière colonne de la sélection, que la ligne 31 soit dans la sélection ou non, si ce n'est pas ce que tu veux, tu devrais pouvoir adapter

Code:

---

1 2 3 4 5 6 7 8

Sub sel() Dim Dcol As Long, Pcol As Long With Selection Pcol = .Item(1).Column Dcol = .Item(1)(.Rows.Count, .Columns.Count).Column Range(Cells(31, Pcol), Cells(31, Dcol)).Interior.Color = RGB(165, 165, 165) End With End Sub

---

Bonjour,

Parfait cela me va très bien ! peu importe ma sélection, s'il y à la ligne 31 alors elle est coloriée en gris ! impec !

Merci beaucoup !:mrgreen: