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 :

RANGE et CELLS avec BOUCLE


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Août 2016
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2016
    Messages : 6
    Points : 2
    Points
    2
    Par défaut RANGE et CELLS avec BOUCLE
    Bonsoir à tous,

    Dans le cadre d'un projet de liste d'utilisateur, je dois traiter un report de la base de donnée.
    Dans un premier temp, la mise en forme.

    Pour cela pas de soucis.

    Dans un deuxième temp, je souhaite couper toutes les lignes dont la cellule située dans la colonne A contient un texte identique "SITE"

    Et là, je ne comprend pas comment procéder.

    Voici mon raisonnement :

    Créer une boucle qui va balayer les lignes jusqu'à la dernière non vide. Dès que la valeur "SITE" est trouvée, j'effectue un couper coller sur une feuille 2.

    Pour cela je sèche, je ne sais pas comment débuter.
    Il existe à priori plusieurs façon de procéder dont celle-ci mais je n'arrive pas à trouver le fonctionnement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set trouve = ws.Cells.Find(resultat, LookIn:=xlValues, LookAt:=xlWhole)
    Merci à vous pour votre aide .

  2. #2
    Membre expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 267
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 267
    Points : 3 663
    Points
    3 663
    Par défaut
    Bonjour,

    Regarde l'aide sur Range.Find
    Tu as un exemple de recherche en boucle avec .FindNext
    eric

  3. #3
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Août 2016
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2016
    Messages : 6
    Points : 2
    Points
    2
    Par défaut
    MErci à toi

  4. #4
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    Juillet 2014
    Messages
    2 661
    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 661
    Points : 5 785
    Points
    5 785
    Par défaut
    Citation Envoyé par NewVBA Voir le message
    Dans un deuxième temp, je souhaite couper toutes les lignes dont la cellule située dans la colonne A contient un texte identique "SITE"

    Et là, je ne comprend pas comment procéder.

    Voici mon raisonnement :

    Créer une boucle qui va balayer les lignes jusqu'à la dernière non vide. Dès que la valeur "SITE" est trouvée, j'effectue un couper coller sur une feuille 2.
    Suivant le nombre de lignes de ton fichier cette méthode peut être très longue.
    Je te conseille de passé par un filtre avancé dont tu peux trouver un tutoriel ici: http://philippetulliez.developpez.co...dvancedfilter/
    J'aimerais bien aller vivre en Théorie, car en Théorie tout se passe bien.

  5. #5
    Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Août 2016
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Août 2016
    Messages : 6
    Points : 2
    Points
    2
    Par défaut
    Oui effectivement.

    Question subsidiaire,

    Si j'utilise la fonction de filtre de excel c'est encore plus facile. Mais comment selectionne-t-on les résultats et uniquement les résultats?

    Autre question,

    Imaginons que je souhaite récupérer une ligne entière en fonction de la valeur de la cellule correspondante de la 1ere colonne (objet de ma demande)
    Quel serai le type de boucle le plus adapté sachant que si je n'utilise pas le tri les valeurs sont dans le désordre?

    Merci pour vos réponses.

Discussions similaires

  1. [XL-2007] Erreur 1004 pour copier plusieurs cellules avec Range et Cell
    Par abdel49 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/08/2016, 18h36
  2. Petit problème avec Range et Cells
    Par fdegrave dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/03/2013, 18h08
  3. [XL-2003] Plage avec range et cells
    Par triaguae dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/09/2010, 08h01
  4. [XL-2003] Formatage Cell avec Range
    Par fidecourt dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/04/2009, 11h32
  5. Export Excel - Souci avec Range et Cells
    Par timoth dans le forum VBA Access
    Réponses: 3
    Dernier message: 14/02/2008, 15h00

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