Macro cellules spécifique

Version imprimable

31/03/2021, 21h49
Freedavys18

Macro cellules spécifique

Bonjour à tous,

J'ai un tableau avec une colonne avec des cellules ou je souhaiterais faire afficher des symboles selon un chiffre saisi:
Exemple si je saisie 1 j'ai le symbol validé qui apparait, si je saisie 2 un rond et si je saisie 3 une croix.
Croyez vous que cela soit possible ?

Merci à vous

Cordialement

Bonjour,

Essayez ceci, saisissez l'un des chiffres dans la colonne A
Pièce jointe 594702

Le code dans le module de la feuille 1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Target.Column = 1 Then
        Select Case Target
            Case 1
                Target.Value = "VALIDE"
                Target.Font.Name = "Calibri"
            Case 2
                Target.Font.Name = "Wingdings 2"
                Target.FormulaR1C1 = "=CHAR(197)" 'un rond plein
            Case 3
                Target.Font.Name = "Wingdings 2"
                Target.FormulaR1C1 = "=CHAR(211)" ' une croix
        End Select
    End If
 
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

01/04/2021, 07h22
Freedavys18

Merci j’essai dans la journée
01/04/2021, 09h44
anasecu

Bonjour à tous,

Citation:

Envoyé par Freedavys18

Exemple si je saisie 1 j'ai le symbol validé qui apparait, si je saisie 2 un rond et si je saisie 3 une croix.

Sans te compliquer la vie, tu peux obtenir cela avec une mise en forme conditionnelle qui utilise les jeux d'icônes et tu as ainsi la valeur et le symbole.