Lire la première cellule en gras

Bonjour,

Je souhaite lire et mettre en mémoire la première chaine de caractère en gras rencontrée, dans la colonne A, en remontant, sous le nom de "centre".

J'ai essayé 2 ou 3 fois de manière différentes mais sans succès.....la dernière en date étant:

centre = Sheets(C_ongletPDC).Range("A65536").End(xlUp).Font.Bold = True

Cela s'inscrit dans le cadre d'un planning impliquant plusieurs instructeurs et plusieurs bases.

Pourriez vous m'éclairer ?

Vrancky

Salut,

Un essai dans le fichier ci-joint.

Option Explicit

Sub ss()
Dim DerLig As Integer, i As Integer

DerLig = Range("A" & Rows.Count).End(xlUp).Row

For i = DerLig To 1 Step -1
    If Range("A" & i).Font.Bold = True Then
        MsgBox (Range("A" & i))
        Exit Sub
    End If
Next i
End Sub

Cordialement.

Merci Yvouille !

J'étais passé au travers de la notification de réponse à ma question.

J'avais trouvé la solution par la suite en essayant de différentes manières.

En tout cas je te remercie pour le temps que tu as consacré à mon problème.

Vrancky