IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro cellules spécifique


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Responsable Automatisme
    Inscrit en
    Mars 2015
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Cher (Centre)

    Informations professionnelles :
    Activité : Responsable Automatisme
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Mars 2015
    Messages : 36
    Par défaut 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

  2. #2
    Expert confirmé
    Homme Profil pro
    Electrotechnicien
    Inscrit en
    Juillet 2016
    Messages
    3 241
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Electrotechnicien

    Informations forums :
    Inscription : Juillet 2016
    Messages : 3 241
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre averti
    Homme Profil pro
    Responsable Automatisme
    Inscrit en
    Mars 2015
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Cher (Centre)

    Informations professionnelles :
    Activité : Responsable Automatisme
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Mars 2015
    Messages : 36
    Par défaut
    Merci j’essai dans la journée

  4. #4
    Membre Expert
    Inscrit en
    Septembre 2007
    Messages
    1 142
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 142
    Par défaut
    Bonjour à tous,
    Citation Envoyé par Freedavys18 Voir le message
    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.

Discussions similaires

  1. Réponses: 2
    Dernier message: 17/11/2016, 17h03
  2. Réponses: 3
    Dernier message: 15/03/2015, 11h35
  3. Réponses: 6
    Dernier message: 30/03/2010, 10h26
  4. Comment inscrire #VALUE! dans une cellule spécifique
    Par bryanstaubin dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 16/06/2007, 08h28
  5. Focus sur une cellule spécifique d'un DBGrid
    Par danbern dans le forum Bases de données
    Réponses: 4
    Dernier message: 25/11/2004, 19h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo