Excel : Utiliser des puces

[Kiseki]

Bonjour,

Je n'ai rien trouvé sur la possibilité d'utiliser des puces sur excel si ce n'est l'insertion de symbol.

Si vous êtes dans le même cas et avez besoins d'utiliser des puces, je vous propose ce bout de code :

Option Explicit

Sub Puce_droite()
    Puce "Š", "3"
End Sub


Sub Puce_triangle()
    Puce "Ø"
End Sub

Sub Puce(x As String, Optional n As String = "1")
    ' x Repésente la puce
    ' n : optionel, 2 ou 3
    
    Dim cel As Range
    If n = 1 Then
        n = "Wingdings"
    Else
        n = "Wingdings " & n
    End If
    
    
    For Each cel In Selection
        If cel = "" Then
        ElseIf Mid(cel, 2, 3) Like "   " Then
            cel.Characters(1, 4).Delete
        Else
            cel = x & "   " & cel
            cel.Characters(1, 1).Font.Name = n
        End If
    Next
End Sub

Si une puce est déjà présente (soit un caractère suivis de 3 espace) il supprime les 4 premier caractères.

Si non il ajoute au début un caractère définis en wingdings (2, 3).


Si ça existait déjà je n'ai pas trouvé.

 

[Grand Chaman Excel]

Re : Excel : Utiliser des puces

Bonjour,

Le truc que j'utilise pour insérer une puce rapidement est le suivant :

ALT (de gauche) + 7 (sur le clavier numérique) donne ceci : •
ALT (de gauche) + 1 + 6 (sur le clavier numérique) donne ceci : ►

A+

 

[Kiseki]

Re : Excel : Utiliser des puces

Bonjour,

Cette manière de faire est limitée (pas grand choix) et pas pratique pour en ajouter/retirer.

Ceci ici permet d'utiliser les polices wingding 1-3.


Il suffira de mettre la macro en raccourci clavier par exemple.

On en a pas forcément souvent besoins, mais pour ce que je suis entrain de faire si, donc je ne pense pas être le seul embêté.