Selectionner ou copier seulement les lignes en gras

banja · 9 Mai 2009

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 · 9 Mai 2009

Re : Selectionner ou copier seulement les lignes en gras

Bonjour

Oui c'est très facile.

Code:

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 )

Selectionner ou copier seulement les lignes en gras

banja

Guest

vbacrumble

XLDnaute Accro

Pièces jointes

Discussions similaires

Selectionner ou copier seulement les lignes en gras

banja

Guest

vbacrumble

XLDnaute Accro

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency