Ajouter flèches pour croissant ou décroissant sur un bouton

Bonjour le Forum,

J'ai un bouton qui à 2 fonctions,

un 1er clic qui est croissant et un 2ème clic décroissant.

Est il possible d'ajouter sur le bouton à coté de mon texte pour chaque tri la flèche montante ou descendante.

Mon code :

Dim Sens As Integer

With Me.CommandButton4

If .Caption = "CROISSANT" Then

.Caption = "DECROISSANT"

Sens = xlDescending

Else

.Caption = "CROISSANT"

Sens = xlAscending

End If

End With

Merci de votre aide et bonne journée à vous tous.

Bonjour,

tu trouveras des flèches dans la police de caractères windings. Mais si tu veux également afficher du texte, je ne crois qu'il soit possible de mélanger les polices de caractères dans un Caption.

pour moi les options sont

1) tu utilises uniquement les flèches ou le texte

2) tu utilises v et ^ comme flèches

3) tu utilises un dessin qui reprend texte et flèche voir fichier

Bonjour,

C'est seulement une image ou il doit y avoir 1 fichier.

Merci

Bonjour,

c'est seulement une image ! que tu peux intégrer dans ton bouton

Bonjour,

voici le code

Private Sub CommandButton2_Click()
With Me.CommandButton2
If .Caption = "CROISSANT" Then
.Caption = "DECROISSANT"
.Picture = LoadPicture("decroissant.gif")
Sens = xlDescending
Else
.Caption = "CROISSANT"
.Picture = LoadPicture("croissant.gif")
Sens = xlAscending
End If
End With

Ok merci beaucoup

c'est super.

Bonne soirée à vous et au Forum.