Selectionner ou copier seulement les lignes en gras

[banja]

Bonjour à tous,

Je viens de chercher un moyen de sélectionner toutes les lignes en gras d'un document (ou les copier ensemble ailleurs), mais je n'ai pas trouvé.

Est-ce possible facilement?

Merci

 

[vbacrumble]

Re : Selectionner ou copier seulement les lignes en gras

Bonjour


Oui c'est très facile.

Sub SelectionGras()
Dim Gras_Plage As Range, c As Range
For Each c In ActiveSheet.UsedRange
If c.Font.Bold Then
If Gras_Plage Is Nothing Then
Set Gras_Plage = c
Else
Set Gras_Plage = Union(Gras_Plage, c)
End If
End If
Next
If Not Gras_Plage Is Nothing Then
Gras_Plage.Select
End If
End Sub

EDITION: une autre solution utilisant une formule nommée (utilisant le langage macro XL4)
( Voir dans Insertion/Noms/Définir après l'exécution de la macro )