[RESOLU] Masquer ligne si le texte n'est pas en gras

[noviceAG]

Bonjour à vous tous,
Est-il possible de masquer les lignes dont le texte n'est pas en gras ?
Le texte se situe exclusivement dans la colonne A
En vous remerciant

 

[tototiti2008]

Re : Masquer ligne si le texte n'est pas en gras

Bonjour NoviceAG,

Oui

Sub MasqueGras()
For i = 1 to range("A65536").end(xlup).row
if Not Cells(i,1).font.bold then Cells(i,1).entirerow.hidden = true
Next
end sub

 

[noviceAG]

Re : Masquer ligne si le texte n'est pas en gras

Je te remercie tototiti de m'avoir répondu et aussi vite.
Je vais gagner un temps fou grâce à toi.
Je te souhaite un excellent week-end

 

[TempusFugit]

Re : Masquer ligne si le texte n'est pas en gras

Bonjour Mesdames, Messieurs

Une autre syntaxe pour le même résultat.

Sub MasqueGrasVariante()
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 1).EntireRow.Hidden = (Cells(i, 1).Font.Bold = False)
Next
End Sub

 

[Si...]

Re : Masquer ligne si le texte n'est pas en gras

Salut

ou encore (bien que RESOLU):

Sub Gras()
  Application.ScreenUpdating = False 'facultative mais vaut le coup d'oeil
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Rows(i).Hidden = Not Cells(i, 1).Font.Bold
  Next
End Sub

 

[tototiti2008]

Re : [RESOLU] Masquer ligne si le texte n'est pas en gras

Re,
Bonjour Tempus, Bonjour Si...

L'avantage des codes de Tempus et Si..., c'est qu'il réaffichent les ligne masquées qui seraient passées en gras en colonne A, ce que ne fait pas mon code, et désactiver l'affichage écran est évidement une bonne idée.

 

[noviceAG]

Re : [RESOLU] Masquer ligne si le texte n'est pas en gras

Un grand merci à vous tous.