Microsoft 365 Comment modifier la police et la couleur de la zone d'une liste déroulante?

valerievdg

XLDnaute Nouveau
Bonjour à tous,
Je travaille sur Mac et j'ai créé une liste déroulante mais j'aimerais changer la police et la couleur de la zone de la liste déroulante. En dehors de l'utilisation de VBA, y-a-t-il une solution?
 

Pièces jointes

  • Recherche de concentrations-26janvier.xlsx
    32.9 KB · Affichages: 22

ChTi160

XLDnaute Barbatruc
Bonsoir valerievdg
si j'ai bien Compris Lol
il te faut faire un clic droit sur la cellule qui contient ta Liste déroulante et tu Modifies dans "format de Cellule" !
voir fichier joint !
jean marie
 

Pièces jointes

  • TestFormat_1.gif
    TestFormat_1.gif
    469 KB · Affichages: 56

ChTi160

XLDnaute Barbatruc
Re
une adaptation de ce que propose @mapomme #4
le code que j'ai mis dans le Activate de la feuille "Choix de concentration"
VB:
'adaptation d 'un code de feu RENAUDER
'https://www.excel-downloads.com/threads/reinitialiser-un-controle-activex-dans-une-feuille.133175/
Private Sub Worksheet_Activate()
With Sheets("Choix de concentration").ComboBox1
        If .ListCount <> Sheets("Domain").Range("Santé").Rows.Count Then
            .ListFillRange = Sheets("domain").Name & "!" & Sheets("Domain").Range("Santé").Address
            .ListRows = .ListCount
        End If
    End With
End Sub
jean marie
 

Pièces jointes

  • TestFormat_2.gif
    TestFormat_2.gif
    58.7 KB · Affichages: 40
Dernière édition:

valerievdg

XLDnaute Nouveau
Re
une adaptation de ce que propose @mapomme #4
le code que j'ai mis dans le Activate de la feuille "Choix de concentration"
VB:
'adaptation d 'un code de feu RENAUDER
'https://www.excel-downloads.com/threads/reinitialiser-un-controle-activex-dans-une-feuille.133175/
Private Sub Worksheet_Activate()
With Sheets("Choix de concentration").ComboBox1
        If .ListCount <> Sheets("Domain").Range("Santé").Rows.Count Then
            .ListFillRange = Sheets("domain").Name & "!" & Sheets("Domain").Range("Santé").Address
            .ListRows = .ListCount
        End If
    End With
End Sub
jean marie
Merci Jean Marie, malheureusement je ne maitrise pas les VBA. C'est peut-être le moment de m'y mettre.
Valerie
 

Discussions similaires

Réponses
21
Affichages
1 K