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 :

Selection cellule spécifique et les cellules suivantes [XL-2016]


Sujet :

Macros et VBA Excel

  1. #1
    Invité
    Invité(e)
    Par défaut Selection cellule spécifique et les cellules suivantes
    Bonjour,

    Avec VBA, je rame à trouver la solution à ce problème. J'ai une colonne qui contient de nombreuses valeurs. Je souhaiterais sélectionner dans cette colonne une cellule qui contient la valeur 100 et sélectionner les 20 cellules suivantes (avec la cellule possédant la valeur 100 inclus).
    Quelqu'un aurait une idée ?
    Je vous remercie d'avance pour votre réponse.

  2. #2
    Membre chevronné Avatar de mfoxy
    Homme Profil pro
    Automation VBA
    Inscrit en
    Février 2018
    Messages
    752
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : Belgique

    Informations professionnelles :
    Activité : Automation VBA
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Février 2018
    Messages : 752
    Points : 1 971
    Points
    1 971
    Par défaut re
    Hello,

    Je ne suis pas un pro , plutôt débutant, mais peut-être une piste pour toi :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub Test()
    Cells.Find(What:="100").Activate
    Range(Cells(Selection.Row, 1), Cells(Selection.Row, 20)).Select
    End Sub
    Michaël

    Si mon aide/avis vous a été profitable , n'hésitez pas à cliquer sur , ça fait toujours plaisir...
    _________________________________________________________________________________________________________________

    "Tout le monde est un génie. Mais si on juge un poisson sur sa capacité à grimper à un arbre, il passera sa vie à croire qu'il est stupide..."
    Albert Einstein

  3. #3
    Invité
    Invité(e)
    Par défaut
    Merci beaucoup ! Tu m'as donné de bonnes pistes Je suis débutant aussi

    Voici ton code que j'ai modifié :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Columns(2).Cells.Find(What:=100).Activate
     Range(Cells(Selection.Row, 1), Cells(Selection.Row + 20, 1)).Select
    En fait dans ton code, il y avait bien la sélection de la cellule qui contient 100. Mais tu as fait une sélection des 20 cellules suivantes sur la même ligne. En choisissant Selection.Row, 1 et Selection.Row, 20, cela correspond aux colonnes 1 à 20.
    Comme il n'y a que la colonne 1 qui m'intéresse, je mets donc partout Selection.Row, 1 et Selection.Row + 20, 1 pour prendre les 20 cellules suivantes de la même colonne.

    Merci encore

  4. #4
    Membre chevronné Avatar de mfoxy
    Homme Profil pro
    Automation VBA
    Inscrit en
    Février 2018
    Messages
    752
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : Belgique

    Informations professionnelles :
    Activité : Automation VBA
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Février 2018
    Messages : 752
    Points : 1 971
    Points
    1 971
    Par défaut re
    Content d avoir pu te mettre sur la piste

    Mal compris ton enoncer compris ligne plutôt que colone.

    N oublie pas de marquer comme résolu ;-)
    Michaël

    Si mon aide/avis vous a été profitable , n'hésitez pas à cliquer sur , ça fait toujours plaisir...
    _________________________________________________________________________________________________________________

    "Tout le monde est un génie. Mais si on juge un poisson sur sa capacité à grimper à un arbre, il passera sa vie à croire qu'il est stupide..."
    Albert Einstein

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

Discussions similaires

  1. [XL-2016] Recherche valeur dans cellule et revoi les caractères suivants
    Par khol87 dans le forum Excel
    Réponses: 3
    Dernier message: 16/01/2018, 12h46
  2. Réponses: 3
    Dernier message: 20/10/2010, 13h27
  3. Trier cellules en ignorant les cellules avec formule
    Par Neptune64 dans le forum Conception
    Réponses: 2
    Dernier message: 20/10/2009, 22h04
  4. egaliser toutes les cellules "" de toutes les feuilles
    Par tomy7 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 03/03/2008, 13h23
  5. [Excel] selection et copier-coller de cellule sans activer les sheets
    Par franckB dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 02/04/2007, 00h26

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