Insertion de ligne subordonnée à la police

[DoubleZero]

Bonsoir à toutes et à tous,

Est-il possible, s’il vous plaît, de repérer les cellules dont la police est en gras, dans la colonne A par exemple, afin d’insérer une ligne au dessus de celles-ci ?

Dans l’affirmative, je vous remercie pour votre aide 😱.

 

[Hippolite]

Re : Insertion de ligne subordonnée à la police

Bonjour,

Test = Range("A1").Font.Bold

Test = vrai si la cellule est en gras.
A+

 

[Modeste]

Re : Insertion de ligne subordonnée à la police

Bonsoir 00 🙂

Dans le code de la feuille concernée:

Sub insereAvantGras()
With Sheets(1)
For i = .Range("A" & Application.Rows.Count).End(xlUp).Row To 1 Step -1
    If .Range("A" & i).Font.Bold = True Then .Range("A" & i).EntireRow.Insert (xlShiftDown)
Next i
End With
End Sub

A tester soigneusement 😛

Bonsoir Hippolite

 

[DoubleZero]

Re : Insertion de ligne subordonnée à la police

Re-bonsoir,

@ Hippolite,

Merci, pour l'aide apportée. Grâce à l'enregistreur, j'ai su trouver...

Test = Range("A1").Font.Bold

...mais je n'ai pas réussi à mettre le tout en musique 🙁...

@ Modeste,

A tester soigneusement 😛

J'ai réussi le test 😀😀 !

Un grand et chaleureux merci à tous deux pour votre aide.

Je vous souhaite une bonne soirée 🙂.