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

tototiti2008

XLDnaute Barbatruc

• 23 Septembre 2011

• #2

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

Bonjour NoviceAG,

Oui

Code:

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

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 23 Septembre 2011

• #3

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 23 Septembre 2011

• #4

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

Bonjour Mesdames, Messieurs

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

Code:

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

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 23 Septembre 2011

• #5

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

Salut

ou encore (bien que RESOLU):

Code:

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 23 Septembre 2011

• #6

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.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 23 Septembre 2011

• #7

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

Un grand merci à vous tous.

 

Vote positif 0 Vote négatif