format différent

Bonjour Pierre Jean, Charly, Gérard, Manon, le Fil, Le Forum

Oui bien vu Pierre-Jean, de toute manière il y avait une 'merdouille' dans mon code d'hier matin... (Pas la grande forme ces derniers temps)

On se fait vite avoir avec ces décalages de rows ! Merci aussi à Gérard !

Bien Vu par Charly aussi !

Par souci de ne pas laisser un code erroné sur ce Forum, voici une version corrigée de mon code d'hier, en utilisant la méthode de Cell.Row - Plage.Row, et aussi la remarque de Pierre-Jean pour le Indent. Et dans la foulée j'essaie aussi de miner la plage dynamitement ! oups !!! de définir la plage dynamiquement !

Sub TheBolderatorAndIndentator()
Dim Plage As Range, Cell As Range
Dim L As Integer

Set Plage = Range(Range('A1').End(xlDown), Range('A65536').End(xlUp))


For Each Cell In Plage
    With Range(Cell, Cell.Offset(0, 1))
        If (Cell.Row - Plage.Row) Mod 10 = 0 Then
            .Font.Bold = True
        Else
            .IndentLevel = 1
        End If
    End With
Next

End Sub

Cliquez pour agrandir...

Merci les gars d'avoir veillé au grain 😉

Bonne Journée à tous et toutes
[ol]@+Thierry[/ol]