Nom de colonne si cellule gras
Résolu/Fermé
Badist
Messages postés
2
Date d'inscription
samedi 10 février 2018
Statut
Membre
Dernière intervention
10 février 2018
-
10 févr. 2018 à 11:20
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 10 févr. 2018 à 13:13
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 10 févr. 2018 à 13:13
A voir également:
- Nom de colonne si cellule gras
- Gras whatsapp - Guide
- Déplacer une colonne excel - Guide
- Nom de l'adresse ✓ - Forum Réseaux sociaux
- Excel cellule couleur si condition texte - Guide
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
10 févr. 2018 à 12:25
10 févr. 2018 à 12:25
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
10 févr. 2018 à 12:42
10 févr. 2018 à 12:47
10 févr. 2018 à 13:13
Au plaisir de te relire sur le forum