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

  1. #1
    Futur Membre du Club
    Inscrit en
    mars 2011
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : mars 2011
    Messages : 10
    Points : 7
    Points
    7

    Par défaut Macro couleur dans forme avec clic

    Bonjour je cherche désespérément une macro qui change la couleur de l'intérieur d'une forme lorsque que je clic dessus.

    Exemple :

    J'ai une forme qui est un carré, lorsque je clic dessus cela devient noir, lorsque je re-clic dessus cela devient blanc et ainsi de suite.

    j'essaye déjà le premier point qui est lorsque je clic cela devient noir. J'ai essayé avec ceci :

    J'affecte donc une macro sur ma forme puis je mets ce code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub Rectangle58_Cliquer()
    ActiveSheet.Shapes("Rectangle58").Fill.ForeColor.RGB = RGB(0, 0, 0)
    End Sub

    Mais cela ne fonctionne pas.

    Pourriez vous m'aider ?

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA, C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    13 282
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Canada

    Informations professionnelles :
    Activité : Developpeur VBA, C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 13 282
    Points : 30 078
    Points
    30 078

    Par défaut

    Salut,

    ta piste de départ serait ici d'utiliser l'enregistreur de macro, pour comprendre comment rendre par le code ce que tu souhaites "manuellement"
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Débutant  
    Avatar de patricktoulon
    Homme Profil pro
    cuisiniste
    Inscrit en
    avril 2009
    Messages
    14 275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2009
    Messages : 14 275
    Points : 21 470
    Points
    21 470
    Billets dans le blog
    5

    Par défaut re

    Bonjour
    un exemple

    on affecte une macro a rectangle 1

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub bascule_color()
        With ActiveSheet.Shapes(Application.Caller)
            If .Fill.ForeColor.RGB = RGB(0, 0, 0) Then .Fill.ForeColor.RGB = RGB(255, 255, 255) Else .Fill.ForeColor.RGB = RGB(0, 0, 0)
        End With
    End Sub
    A noter que je me sert de Application.Caller tu peux donc t'en servir pour plusieur shapes
    dans cet exemple qui suit j'ai 3 rectangles
    j' affecte la meme macro aux trois rectangles


    je l'ai modifiée pour que les 3 rectangles aient leurs 2 couleurs de bascule différentes et cela dans un select case
    a noter aussi que tu peux indiquer les couleurs sous toute leurs formes (hex,long,rgb,vbconstante) tu en a un exemple avec vbyellow pour le case "rectangle 3"

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub bascule_color()
        Dim coul(1 To 2)
        With ActiveSheet.Shapes(Application.Caller)
            Select Case .Name
                'on parametre les deux couleurs en fonction du nom de la shapes
            Case "Rectangle 1": coul(1) = RGB(0, 0, 0): coul(2) = RGB(255, 255, 255):'appel de la fonction qu'il sont sensé faire ici
            Case "Rectangle 2": coul(1) = RGB(0, 240, 0): coul(2) = RGB(255, 0, 0):'appel de la fonction qu'il sont sensé faire ici
            Case "Rectangle 3": coul(1) = RGB(0, 0, 255): coul(2) = vbYellow :'appel de la fonction qu'il sont sensé faire ici  
            End Select
            'on applique la couleur en fonction de sa couleur actuelle
            If .Fill.ForeColor.RGB = coul(1) Then .Fill.ForeColor.RGB = coul(2) Else .Fill.ForeColor.RGB = coul(1)
        End With
    End Sub

    Nom : demo3.gif
Affichages : 22
Taille : 119,7 Ko
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    12 335
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2007
    Messages : 12 335
    Points : 25 142
    Points
    25 142

    Par défaut

    Plus simple (sans test ni nom de forme) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub Rectangle_ClicClac()
    With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
            .RGB = RGB(255, 255, 255) - .RGB
    End With
    End Sub
    Peut être affecté à toutes les formes de la feuille.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  5. #5
    Débutant  
    Avatar de patricktoulon
    Homme Profil pro
    cuisiniste
    Inscrit en
    avril 2009
    Messages
    14 275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2009
    Messages : 14 275
    Points : 21 470
    Points
    21 470
    Billets dans le blog
    5

    Par défaut re

    re
    a oui menhir nikel
    mais une seule couleur sera dispo pour le clicclac ( noir) puisque l'on retombe a zero
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  6. #6
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    juin 2007
    Messages
    12 335
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2007
    Messages : 12 335
    Points : 25 142
    Points
    25 142

    Par défaut

    Citation Envoyé par patricktoulon Voir le message
    mais une seule couleur sera dispo pour le clicclac ( noir) puisque l'on retombe a zero
    Deux couleurs : noir et blanc (c'est ce qui est demandé).
    Cela dit, on peut utiliser cette méthode pour n'importe quel couple de couleur en la compliquant juste un peu.
    Par exemple, pour jaune et magenta :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub Rectangle_ClicClac()
    With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor
            .RGB = RGB(255, 255, 0) + RGB(255, 0, 255) - .RGB
    End With
    End Sub
    Pour simplifier, on peut remplacer RGB(255, 255, 0) + RGB(255, 0, 255) par 16777470 mais c'est moins didactique.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  7. #7
    Futur Membre du Club
    Inscrit en
    mars 2011
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : mars 2011
    Messages : 10
    Points : 7
    Points
    7

    Par défaut

    Plus que parfait Menhir.

    Merci beaucoup

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 08/07/2014, 13h21
  2. Réponses: 2
    Dernier message: 27/10/2012, 18h36
  3. Sélection d'une cellule dans uitable avec clic droit
    Par Pierrot92320 dans le forum Interfaces Graphiques
    Réponses: 5
    Dernier message: 14/05/2009, 15h40
  4. Réponses: 11
    Dernier message: 29/05/2008, 17h26
  5. Réponses: 0
    Dernier message: 28/05/2008, 16h15

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