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 :

Définir des plages au lieu d'une cellule dans SelectionChange


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Femme Profil pro
    Secrétaire
    Inscrit en
    Novembre 2020
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Secrétaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Novembre 2020
    Messages : 5
    Par défaut Définir des plages au lieu d'une cellule dans SelectionChange
    Bonjour,

    J'ai trouver un code VBA pour que la largeur de ma colonne s'élargisse lorsque je sélectionne une cellule donnée (afin de voir la ligne entière d'une liste déroulante) et revienne à sa taille normale lorsque la cellule n'est plus sélectionnée.

    J'aimerais le faire la même chose, mais pour des plages différentes (de C12 à C17 et de I12 à I17). Mais là, je sèche.

    Merci d'avance pour votre aide!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
       If Target.Address = "$C$12" Then
           Target.Columns.ColumnWidth = 75
       Else
           Columns(3).ColumnWidth = 30 
       End If
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    Juillet 2014
    Messages
    2 681
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : Juillet 2014
    Messages : 2 681
    Par défaut
    Citation Envoyé par Julianos Voir le message

    J'aimerais le faire la même chose, mais pour des plages différentes (de C12 à C17 et de I12 à I17). Mais là, je sèche.
    Bonjour, on peut regarder si l'intersection de tes plages et celles qui déclenchent l'évènement est vide ou pas
    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)
      dim r as range
    Set r = Intersect(Target, Union(Range("c12:c17"), Range("i12:i17")))
       If  not r Is Nothing  Then
           Target.Columns.ColumnWidth = 75
       Else
           Columns(3).ColumnWidth = 30 
       End If
    End Sub

Discussions similaires

  1. [XL-2003] Sélection d'une cellule dans une plage de cellule
    Par amelyfred dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/03/2011, 16h47
  2. Deselectionner une cellule dans une plage de données
    Par markinho04 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 15/11/2010, 08h31
  3. [XL-2007] sélectionner une cellule dans un code au lieu d'une colonne
    Par manuseverine dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/09/2010, 21h42
  4. Réponses: 2
    Dernier message: 19/03/2010, 17h46
  5. imprimer des données différentes d'apres une cellule
    Par Tom75007 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 25/05/2009, 14h24

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