Remplacer les quadrillages d'une cellule. [Résolu]

[chpierro62]

Bonjour à toutes & à tous !

Voici mon soucis : je souhaite remplacer les quadrillages de plusieurs cellules par des diagonales sur Excel, dans toute ma feuille.

Cependant, je n'ai que très peu de notions sur VBA... Cela fait 2heures que je m'arrache les cheveux pour trouver mais rien ne va

Ce joint, deux pièces jointes vous expliquant le problème.


Merci beaucoup pour votre aide !

[mercatog]

Adapté de l'enregistreur de macro

Code :

1
2
3
4
5
6
7
8
9
10
Sub Remp()
Dim c As Range
 
For Each c In Worksheets("Feuil1").UsedRange 'Adapte le nom de la feuille
    If c.Interior.Pattern = xlGrid Then
        c.Interior.Pattern = xlNone
        c.Borders(xlDiagonalDown).LineStyle = xlContinuous
    End If
Next c
End Sub

[chpierro62]

Merci beaucoup, ça fonctionne !!

Bonne journée !