Effacer les lignes si non entouré ou non gras

[anthoYS]

Bonsoir (bonjour),

En fait, j'ai une longue liste de ville, et je souhaite, conserver uniquement, celle qui soit en A sont en gras, ou soit en cellule C(, D ou E) entouré.

Voyez s'il vous plaît le fichier joint qui contient deux exemples avec le second onglet qui correspond à ce que j'attend.

Or, mes fichiers contiennent un nombre bien plus grand de données, et je ne peut filtrer ou trier automatiquement ses données manuellement avec Ctrl cela est trop long...

Merci par avance à ceux qui tenterons de m'aider.

@+

Edit : la ligne 9 en jaune est un repère pour que vous voyez plus clairement que les données sont les mêmes sur les deux onglets.

 

[Fred0o]

Re : Effacer les lignes si non entouré ou non gras

Bonsoir anthoYS,

Un code dans le fichier c-dessous.

A+

 

[anthoYS]

Re : Effacer les lignes si non entouré ou non gras

Merci Fred0o, ça fonctionne impeccablement ; Bravo!

 

[Staple1600]

Re : Effacer les lignes si non entouré ou non gras

Bonsoir à tous

Une autre solution

Sub a()
Dim r As Range, c As Range
Set r = Range([A1], [A65536].End(xlUp))
Application.ScreenUpdating = False
For Each c In r
c.EntireRow.Hidden = _
(Not c.Font.Bold) And (c.Offset(, 4).Borders(xlEdgeLeft).LineStyle = xlNone)
Next
Application.ScreenUpdating = True
End Sub

 

[anthoYS]

Re : Effacer les lignes si non entouré ou non gras

Merci à toi aussi (Staple1600). C'est oK aussi!
Avec suppression des lignes effacés...