Nom de colonne si cellule gras
Résolu
Badist
Messages postés
2
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
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
A voir également:
- Nom de colonne si cellule gras
- Déplacer colonne excel - Guide
- Ecrire en gras sur whatsapp - Guide
- Trier colonne excel - Guide
- Excel cellule couleur si condition texte - Guide
- Colonne word - Guide
1 réponse
Bonjour,
Mets ce code dans un module standard :
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
Au plaisir de te relire sur le forum