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 :

Filtres élaborés avec ou sans extraction [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut Filtres élaborés avec ou sans extraction
    Bonjour,

    Je viens de créer une macro me permettant, par le biais de la fonction filtre élaboré, d'extraire des données.
    Cette extraction vient alimenter ma feuille "Synthese", elle peut varier de 0 à 5 lignes sans compter la ligne des titres.

    Comment faire lorsqu'aucune extraction ne se fait car elle ne correspond pas aux critères demandés que je puisse avoir sur la ligne sous les titres (ligne 25 de D à N), une phrase disant : "aucune extraction pour votre demande" et que cette phrase soit fusionnée de la colonne D26:N26

    Voici une copie écran des 2 possibilités.
    Pièce jointe 207058

    Cordialement

  2. #2
    Membre Expert Avatar de jerome.vaussenat
    Homme Profil pro
    Formateur Bureautique
    Inscrit en
    Janvier 2011
    Messages
    1 629
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Formateur Bureautique
    Secteur : Enseignement

    Informations forums :
    Inscription : Janvier 2011
    Messages : 1 629
    Par défaut
    Salut,

    je te propose une solution simple. Il y aura certainement plus élégant mais c'est déjà çà.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
        If Range("D25").Value = "" Then
            Range("D25"). = "Vide"
            Range("D25:N25").Merge
        End If
    j'ai testé, la fusion de cellule n'a pas d'effet sur le prochain filtre.

  3. #3
    Membre éprouvé Avatar de graphikris
    Homme Profil pro
    Pas tres doué
    Inscrit en
    Décembre 2012
    Messages
    1 222
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Pas tres doué
    Secteur : Conseil

    Informations forums :
    Inscription : Décembre 2012
    Messages : 1 222
    Par défaut
    @jerome.vaussenat

    Merci à toi, j'ai testé mais avec Value en plus en ligne 2, c'est mieux.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    If Range("D25").Value = "" Then
            Range("D25"). Value = "Vide"
            Range("D25:N25").Merge
        End If

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

Discussions similaires

  1. Filtre élaboré avec une sélection copié en vba
    Par Sherman750 dans le forum Macros et VBA Excel
    Réponses: 18
    Dernier message: 31/10/2012, 18h06
  2. Filtre élaboré avec critère d'inégalité
    Par ninikosim dans le forum Excel
    Réponses: 6
    Dernier message: 07/07/2011, 21h55
  3. [XL-2007] faire un filtre élaboré avec 2 criteres sur la meme colonne
    Par sebing dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/02/2011, 12h35
  4. [XL-2003] Comment maintenir le résultat un filtre élaboré avec un userform
    Par MichaSarah dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/12/2010, 10h32
  5. filtre élaboré avec une plage critere differente
    Par freed07 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 21/01/2009, 21h20

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