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
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    mai 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Bâtiment

    Informations forums :
    Inscription : mai 2018
    Messages : 6
    Points : 5
    Points
    5

    Par défaut sélection onglet selon condition

    Bonjour,

    je sollicite votre aide pour le problème suivant :

    Je possède un fichier excel avec trois onglets (BASE, A et B), dans l'onglet BASE la valeur de colonne D est soit A soit B.

    Je souhaiterai que, quand je sélectionne une ligne dans l'onglet BASE puis que je lance la macro, la macro effectue les actions suivantes :

    sélection de l'onglet A ou B (selon la valeur de la cellule de la colonne D) et de l'onglet base.

    Je travaille avec les lignes suivantes:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Worksheets(Base).Rows (Selection.Row)
    Sheets(Array("Base", "A")).Select
    Sheets(Array("Base", "B")).Select
    Sheets("Base").Activate
    Mais je bloque sur le problème pré-cité.

    Merci d'avance à qui aura le temps de se pencher sur le problème.

  2. #2
    Membre éclairé
    Inscrit en
    septembre 2007
    Messages
    516
    Détails du profil
    Informations forums :
    Inscription : septembre 2007
    Messages : 516
    Points : 846
    Points
    846

    Par défaut

    Bonjour,

    Comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets(Array("Base", Range("D" & Selection.Row).Value)).Select

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    mai 2008
    Messages
    247
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2008
    Messages : 247
    Points : 366
    Points
    366

    Par défaut

    Bonsoir
    Pour éviter des erreurs dues aux contenus de la colonne D, dans la fenêtre des codes de BASE
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub  Private Sub Worksheet_SelectionChange(ByVal R As Range)
      With Cells(R.Row, 4)
        If .Text = "A" Or .Text = "B" Then Sheets(.Text).Select
      End With
    End Sub
    ou
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Worksheet_SelectionChange(ByVal R As Range)
      If Cells(R.Row, 4) = "A" Or Cells(R.Row, 4) = "B" Then Sheets(Cells(R.Row, 4).Text).Select
    End Sub

Discussions similaires

  1. Réponses: 2
    Dernier message: 03/07/2017, 09h49
  2. [XL-2010] Sélection selon condition
    Par guillaume7496 dans le forum Excel
    Réponses: 1
    Dernier message: 28/04/2016, 17h20
  3. sélection de plages de cellule selon condition
    Par ph_anrys dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 28/03/2013, 10h43
  4. Réponses: 15
    Dernier message: 12/04/2007, 15h14
  5. DLLs chargées selon condition
    Par Benjamin GAGNEUX dans le forum API, COM et SDKs
    Réponses: 9
    Dernier message: 12/08/2004, 18h14

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