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 :

Worksheet_selectionChange(ByVal Target As Range) - pb quand "re" clic sur cellule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Janvier 2013
    Messages
    630
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 630
    Par défaut Worksheet_selectionChange(ByVal Target As Range) - pb quand "re" clic sur cellule
    Bonjour,
    L'extrait de code suivant fonctionne, mais le problème est que si je clique une seconde fois sur la même cellule, il ne se produit rien. Je dois sélectionner une autre cellule (pas pratique !) avant de revenir sur la cellule initiale.
    Sans doute faut-il ajouter quelque chose ?!
    Je vous remercie d'avance pour votre aide.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Worksheet_selectionChange(ByVal Target As Range)
        If Target.Row > 10 And Target.Row < 81 And Target.Column = 32 Then
     
            If Target.Offset(0, 2).Value = "<<" Then
                Target.Offset(0, 2).Value = ""
            Else
                Target.Offset(0, 2).Value = "<<"
            End If
        End If
    End Sub

  2. #2
    Membre Expert
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    Juillet 2004
    Messages
    2 725
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 725
    Par défaut
    C'est le principe du selectionChange

    Si la sélection change alors je m’exécute sinon je ne suis pas appelé.
    Donc si pas de changement de cellule pas de changement de sélection donc pas d'appel à cet event.

    Ce que tu peux faire à la limite c'est une fois que tu à réaliser l'action sur ta cellule en colonne 32 tu sélectionne la cellule de la colonne d'a côté

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Janvier 2013
    Messages
    630
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 630
    Par défaut
    Bonjour Cerede2000,
    A vrai dire, c'est ce que j'avais pensé faire, mais je ne trouvais pas ça très académique. Néanmoins, comme il s'agit de faire une sélection/dé-sélection dans une même colonne, ce n'est pas très pratique de passer de gauche à droite (ou inversement). Merci quand-même pour cette proposition.
    Cdt

    PS : J'attends encore un peu avant de mettre "Résolu", au cas où...

  4. #4
    Membre Expert
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    Juillet 2004
    Messages
    2 725
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 725
    Par défaut
    En gros tu veux faire comme une checkbox

    Dans ce cas si tu veux que ça fonctionne à chaque fois pourquoi ne pas faire ça sur l'event Worksheet_BeforeDoubleClick ou
    A chaque double clic sur la cellule tu fais ton action

    Pense à Cancel = True pour éviter de rentrer en édition dans la cellule suite au double clic.

    Edit : aussi valable sur clic droit Worksheet_BeforeRightClick, penser au Cancel également pour ne pas afficher le menu contextuel

  5. #5
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Janvier 2013
    Messages
    630
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 630
    Par défaut
    J'avais effectivement pensé à mettre un "Cancel = True", mais ça me renvoyait le message : "Erreur de compilation - La déclaration de la procédure ne correspond pas à la description de l'évènement ou de la procédure du même nom".
    Mystère total, pour moi.
    J'avais fait ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub Worksheet_selectionChange(ByVal Target As Range, Cancel As Boolean)
    Si je mets le "Cancel = True" dans le module, sans l'ajouter comme ci-dessus, j'ai le message "Erreur de compilation - variable non définie" (ce qui me semble, pour le coup, normal)

    PS : Comme alternative, je me demandais si je pouvais faire un offset à droite, puis à gauche, en inhibant (provisoirement) la re-sélection de la "target" avec "Application.EnableEvents = false", histoire de revenir sur ma cellule initiale dans que sa sélection exécute le code prévu ?!

  6. #6
    Membre Expert
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    Juillet 2004
    Messages
    2 725
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : Juillet 2004
    Messages : 2 725
    Par défaut
    Pas de Cancel sur l'event selectionchange
    Uniquement pour double clic ou clic droit !

    Je ne vois pas l'intérêt de faire un changement de gauche a droite et de revenir sur la cellule de départ même en inhibant l'event.
    Le problème restera le même...

    Tu te retrouvera sur la même cellule et si tu reclic dessus l'event ne sera quand même pas exécuté.
    Avec le selectionchange si tu ne change pas de cellule ca ne marchera jamais pour relance sur la même cellule.

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

Discussions similaires

  1. [XL-2000] Enigme Worksheet_SelectionChange(ByVal Target As Range)
    Par Invité(e) dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/01/2010, 08h32
  2. SelectionChange(ByVal Target As Range)
    Par newsinfos dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 21/11/2007, 11h00
  3. [VBA-E]evènement Change(ByVal Target As Range) et DDE
    Par potili2 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 13/03/2007, 16h26

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