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 :

Private Sub Workbook_SheetSelectionChange


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    comptable
    Inscrit en
    Juin 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : comptable
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Juin 2011
    Messages : 15
    Par défaut Private Sub Workbook_SheetSelectionChange
    Bonjour à tous,

    je veux exécuter une commande à toutes les feuilles par la procédure :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A8:A200")) Is Nothing Then
    ...

    mais seulement je veux exclure uniquement 2 feuilles de cette exécution


    Merci bcp pour votre aide.

  2. #2
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Bonjour,

    l'objet Sh représentant la feuille, effectuer donc une condition sur sa propriété .Index ou .Name

    __________________________________________________________________________________________

    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

  3. #3
    Membre averti
    Homme Profil pro
    comptable
    Inscrit en
    Juin 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : comptable
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Juin 2011
    Messages : 15
    Par défaut
    Merci Marc,

    si vous pouvez me montrer le détail de la condition sachant que dans le classeur uniquement la feuil1 et la feuil2 ne seront pas concerner par cette
    procédure.



    encore merci pour votre aide.

  4. #4
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Par exemple avec l'index supérieur à 2 …

  5. #5
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Un exemple avec la propriété "Name" :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     
    If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Then Exit Sub 'exclu les feuilles "Feuil1" et Feuil2"
     
    If Not Application.Intersect(Target, Range("A8:A200")) Is Nothing Then
    ...
    Hervé.

  6. #6
    Membre averti
    Homme Profil pro
    comptable
    Inscrit en
    Juin 2011
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : comptable
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Juin 2011
    Messages : 15
    Par défaut
    Merci à tous infiniment, c'est résolu.

    A +

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

Discussions similaires

  1. Private Sub Form_Open . Dim maxi
    Par Nessie37 dans le forum VBA Access
    Réponses: 6
    Dernier message: 08/10/2007, 18h19
  2. code: Private Sub Form_Timer avec condition
    Par WITER dans le forum IHM
    Réponses: 3
    Dernier message: 25/07/2007, 23h33
  3. [VBA] Goto faisant référence en-dehors d'un Private Sub?
    Par Oceliane dans le forum VBA Access
    Réponses: 2
    Dernier message: 28/03/2007, 15h57
  4. Réponses: 9
    Dernier message: 06/06/2006, 22h05
  5. mettre plusieurs private sub sur un bouton ?
    Par juju33 dans le forum Access
    Réponses: 2
    Dernier message: 26/03/2006, 16h22

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