Discussion :

[Romsteack89]

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 !

[casefayere]

Bonjour,

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

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

[Romsteack89]

Bonjour et oui voici la petite mise en forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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. =)

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Romsteack89]

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

[casefayere]

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

[Romsteack89]

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.

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Romsteack89]

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 !