Microsoft 365 Cadrillage automatique

Lolote83 à dit:

Bonjour à tous,
Avec une MFC (Mise en Forme Conditionnelle) mais à la condition qu'il n'y ai aucune ligne vierge.
Le principe, à chaque changement de valeur dans la colonne G, on met un trait (Rouge ici pour un meilleur visuel)
Voici ce que cela pourrait donner
Regarde la pièce jointe 1228490

Sinon, je rejoins @Saboh12617 concernant du VBA
@+ Lolote83

Cliquez pour agrandir...

J'ai tenté la MFC comme indiqué mais je ne parviens pas au même résultat

Cliquez pour agrandir...

Lolote83 à dit:

Re bonjour,
Peut tu faire une copie d'écran comme je l'ai fait ou renvoyé on fichier avec la MFC afin que l'on se rende mieux compte de tes dires

@+ Lolote83

Cliquez pour agrandir...

job75 à dit:

Bonjour à tous,

Avec une MFC les bordures appliquées sont forcément fines.

En VBA on peut faire ce qu'on veut :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
With ListObjects(1).Range
    .Borders.Weight = xlThin 'RAZ avec bordures fines
    With Intersect(.Columns(1).SpecialCells(xlCellTypeConstants, 1).EntireRow, .Cells)
        .Borders(xlEdgeTop).Weight = xlMedium 'xlThick
        .Borders(xlInsideHorizontal).Weight = xlMedium 'xlThick
    End With
   .Borders(xlEdgeBottom).Weight = xlMedium 'xlThick
End With
End Sub

A+

Cliquez pour agrandir...