Sélectionner et ensuite grouper les lignes non en gras ?

Bonjour ,

Pourriez vous m'aider ? Je souhaiterais sélectionner et ensuite grouper toutes les lignes qui ne sont pas en gras dans un Excel ?

Je ne trouve pas :( ....

Merci beaucoup,

T.

Bonjour,

A mettre dans un module standard. Agit sur l'onglet actif. Il suffit ensuite de mettre un titre sur la colonne renseignée et de filtrer.

Sub LignesSansFontBold()

Dim I As Integer, J As Integer, LigneTitre As Integer, DerniereLigne As Integer, DerniereColonne As Integer, NbBold As Integer
Dim AireTableau As Range

    LigneTitre = 1: DerniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
    DerniereColonne = Cells(LigneTitre, Columns.Count).End(xlToLeft).Column
    Columns(DerniereColonne + 1).Cells.Clear
    For I = LigneTitre + 1 To DerniereLigne
        NbBold = 0
        For J = 1 To DerniereColonne
            If Cells(I, J).Font.Bold Then NbBold = NbBold + 1
        Next J
        If NbBold = 0 Then Cells(I, DerniereColonne + 1) = "X"
    Next I

End Sub

Super , Merci beaucoup !

Rechercher des sujets similaires à "selectionner ensuite grouper lignes gras"