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 :

Problème boucle For avec Filtre


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    Octobre 2014
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Ingénieur intégration

    Informations forums :
    Inscription : Octobre 2014
    Messages : 10
    Par défaut Problème boucle For avec Filtre
    Bonjour, j'ai réalisé une boucle for qui me permet de filtrer des données d'un plage en les supprimant pour des valeurs inférieures et supérieures.

    Voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Public Sub FiltreValeur(plage As Range, min As Integer, max As Integer)
     
    Dim rb As Range
     
        For Each rb In plage
            If rb < min Then
                rb.EntireRow.Delete
     
            End If
     
        Next
     
        For Each rb In plage
            If rb > max Then
                rb.EntireRow.Delete
     
            End If
     
       Next
     
    end sub
    Mon soucis c'est que si la condition est vrai, la ligne est donc supprimée mais l'incrémentation fait qu'on saute une ligne et que donc chaque ligne est "oubliée" lorsque la condition est vrai.

    En claire : lorsque la ligne 2 est supprimée, la ligne 3 devient la ligne 2 et donc après l'incrémentation, la ligne 3 (qui est devenue ligne 2) n'est plus vérifiée.

    Je voudrais faire comprendre à la boucle de pas incrémenter lorsque la condition est vrai. De manière à ce que toute les lignes soient vérifiées.

    A la place de "rb.EntireRow.Delete" je peux utiliser "rb.ClearContents" mais à ce moment je me retrouve avec des cellules vides ce que je veux pas.

    Merci pour votre aide!
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Problème boucle for avec uniform en GLSL
    Par Charlie111 dans le forum OpenGL
    Réponses: 3
    Dernier message: 13/06/2010, 01h47
  2. [VBA-E, Débutant] Problème Boucle for
    Par strifer dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 24/08/2006, 12h30
  3. [Débutant] Problème boucle for
    Par toniooooo dans le forum Langage
    Réponses: 10
    Dernier message: 18/04/2006, 14h42
  4. [VB6] boucle for avec liste de valeur defini
    Par Morpheus2144 dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 06/04/2006, 18h12
  5. [FLASH 8] Problème Boucle For
    Par Begood dans le forum Flash
    Réponses: 6
    Dernier message: 21/03/2006, 11h36

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