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 :

Sélection plage variable avec ScrollColumn


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
    656
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Janvier 2013
    Messages : 656
    Par défaut Sélection plage variable avec ScrollColumn
    Bonjour,

    Je souhaite définir une plage de la colonne A à une colonne variable.

    Pour être plus précis, les colonnes A et B sont fixes et séparées d'une plage variable par un volet vertical figé (soit entre B et C).

    La ligne 2 est constituée de dates (du 1er janvier au 31 décembre) et je récupère la colonne où se trouve la date du jour par :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =EQUIV(AUJOURDHUI();$C$2:$ND$2;0)+2
    (petit problème de traduction en VBA qui a fait l'objet d'un autre post pour récupérer cette valeur et la mettre dans une variable) : "Num_Colonne_Aujourdhui"

    A l'ouverture du classeur, je combine un ScrollColumn avec ce numéro (de colonne) pour placer la date du jour sur la colonne C :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveWindow.ScrollColumn = Num_Colonne_Aujourdhui
    L'objectif est de définir une plage pour l'afficher de manière optimale sur ce modèle :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    With ActiveSheet
         Range("$A$1:$xxx$1").Select
         With ActiveWindow
                .Zoom = True
                .Zoom = ActiveWindow.Zoom - 0.5 
         End With
    End With
    En résumé, il faudrait que ce Range soit égal à avec xxx = Num_Colonne_Aujourdui + 10

    Je vous remercie par avance pour vos lumières,
    Cordialement,
    jp

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

    Informations forums :
    Inscription : Janvier 2013
    Messages : 656
    Par défaut
    Bonsoir,

    le point sur la récupération de la colonne AUJOURDHUI() est résolu (mais seulement celui-ci)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Num_Colonne_Aujourdhui = Application.Match(CLng(VBA.Date), Range("$C$2:$ND$2"), 0) + 2
    Cordialement,
    jp

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

    Informations forums :
    Inscription : Janvier 2013
    Messages : 656
    Par défaut
    Bonsoir,

    Peut-être que la réponse à cette question me suffirait,

    Comment modifier GN (dans la plage ci-dessous) par une variable ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("$A$1:$GN$1").Select
    Pour être plus précis (si nécessaire), je souhaite qu'en faisant référence à une variable, je retrouve la colonne GN (ou autre colonne, bien sûr) dans le Range.

    Merci d'avance pour vos lumières,
    Cordialement,
    jp

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

    Informations forums :
    Inscription : Janvier 2013
    Messages : 656
    Par défaut
    Bonjour,

    Désolé pour ce post (inutile), en fait il fallait juste passer par Cells même si la question de savoir si on peut faire varier la colonne autrement, demeure.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(Cells(1, 1), Cells(1, Num_Colonne_Aujourdhui + 10)).Select
    Cordialement,
    jp

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

Discussions similaires

  1. Sélection plage variable
    Par Yoooo dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 16/05/2018, 12h09
  2. Sélection plage variable
    Par chito79000 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 15/04/2015, 17h51
  3. Fonction "SOMME.SI" avec plage variable
    Par marc56 dans le forum Excel
    Réponses: 3
    Dernier message: 26/11/2008, 15h52
  4. [VBA-E] COUNTIF sur une sélection de plage variable
    Par NiKoS29 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 27/09/2007, 23h03
  5. Pb sélection de lignes avec variables
    Par Aizen64 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/06/2007, 08h36

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