Nom de colonne si cellule gras Résolu

Question

Bonjour, 

Je cherche a automatiser une action et je ne m'y connais pas en VBA.

Ce serait pour déterminer dans chaque ligne de la colonne D "si la cellule est en gras" alors "nom de la colonne" (A,B,C)

Ce serait pour obtenir l'image qui suit



Merci d'avance

Patrice33740 · Answer

Bonjour,

Mets ce code dans un module standard :
Sub NomDesColonnesEnGras()
Const adresseColonnesTestées$ = "A:C"
Const adresseColonneRésultat$ = "D"
Dim plage As Range
Dim ligne As Range
Dim cellule As Range
Dim résultat As String
  With Worksheets(1)
    Set plage = Intersect(.UsedRange, .Range(adresseColonnesTestées)).Offset(1)
    For Each ligne In plage.Rows
      résultat = ""
      For Each cellule In ligne.Cells
        If cellule.Font.Bold = True Then
          If résultat = "" Then
            résultat = Split(cellule.Address, "$")(1)
          Else
            résultat = résultat & " & " & Split(cellule.Address, "$")(1)
          End If
        End If
        .Cells(cellule.Row, adresseColonneRésultat).Value = résultat
      Next cellule
    Next ligne
  End With
End Sub

Nom de colonne si cellule gras

1 réponse

Discussions similaires

Newsletters