format différent

[Manon]

Bonsoir à tous

J'aurais encore une fois besoin de votre aide.

Comment formater avec macro ?

Sur la feuil3 - j'ai une série de 9 lignes suivie d'une ligne vide.

Je cherche à mettre en gras la 1ere ligne de la série (info1, info10 etc...)
et toute les autres ligne avec un indent.

Exemple:

info 1 EN GRAS
info 2
info 3
info 4
info 5
info 6
info 7
info 8
info 9
ligne vide-----------------------------peu importe car elle est vide
info 10 EN GRAS
info 11
info 12

Merci à tous
Manon

 

[_Thierry]

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

Merci les gars d'avoir veillé au grain

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