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 :

Recherche sur plusieurs critères


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Février 2015
    Messages
    52
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Février 2015
    Messages : 52
    Points : 27
    Points
    27
    Par défaut Recherche sur plusieurs critères
    Bonjour
    Je cherche la valeur corresponde à la colonne « UFL » en fonction des valeur des colonnes : « espece » colonne N°1 , « cyc » colonne N°2 , « cyc » colonne N°3, « apprstade » colonne N°4, « stade» colonne N°5.
    J’ai utilisé le code suivant :

    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
    Sub CommandButton1_Click()
    espece = ComboBox4.Value
    cyc = ComboBox5.Value
    apprstade = ComboBox6.Value
    stade = ComboBox7.Value
    Dim rngData As Range, rngLabelRow1 As Range, rngLabelRow2 As Range, rngLabelRow3 As Range, rngLabelRow4 As Range, rngLabelColumn As Range, fn As WorksheetFunction
    Set fn = Application.WorksheetFunction
    With ThisWorkbook.Worksheets("Feuil2")
    Set rngData = .Range("G2:N73")
     Set rngLabelRow1 = .Range("A2:A73")
      Set rngLabelRow2 = .Range("B2:B73")
      Set rngLabelRow3 = .Range("C2:C73")
      Set rngLabelRow4 = .Range("D2:D73")
        Set rngLabelColumn = .Range("G1:N1")
     ]End With
    With fn
    UFLA = .Index(rngData, .Match(espece, rngLabelRow1, 0), .Match(cyc, rngLabelRow2, 0), .Match(apprstade, rngLabelRow3, 0), .Match(stade, rngLabelRow4, 0), .Match("UFL", rngLabelColumn, 0))
    End With
    End Sub
    Une erreur de compilation : Nombre d'arguments incorrect ou affectation de propriété incorrecte survient
    Merci d’avance pour votre aide !!

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Points : 5 901
    Points
    5 901
    Par défaut
    Bonjour,

    Et si tu utilisais une colonne dans laquelle tu concatènerais les diverses valeurs à rechercher ?
    Tu pourrais faire une simple recherchev ou encore continuer avec ton index/equiv

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Février 2015
    Messages
    52
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Février 2015
    Messages : 52
    Points : 27
    Points
    27
    Par défaut
    Je vous remercie parmi, mais est ce qu'il y a des propositions en relation avec le code que j'ai proposé

  4. #4
    Membre averti
    Homme Profil pro
    retraité enseignement
    Inscrit en
    Mars 2013
    Messages
    213
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Saône (Franche Comté)

    Informations professionnelles :
    Activité : retraité enseignement
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2013
    Messages : 213
    Points : 442
    Points
    442
    Par défaut
    bonsoir,

    1) que fait le crochet en fin de code?


    2) le nombre de paramètres maxi de la fonction index est 4 , de plus les types utilisés sont parfois faux
    (voir https://msdn.microsoft.com/FR-FR/lib.../ff197581.aspx)

    En remplaçant par des valeurs "bidon" mais de bon type ça se compile correctement il me faudrait ton formulaire pour corriger...

    geogeo70

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Février 2015
    Messages
    52
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Février 2015
    Messages : 52
    Points : 27
    Points
    27
    Par défaut
    Bonjour geogeo70,

    Voici mon programme .

    Merci d'avance Code et formulaire .xlsm

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Lycéen
    Inscrit en
    Février 2015
    Messages
    52
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : Février 2015
    Messages : 52
    Points : 27
    Points
    27

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

Discussions similaires

  1. [XL-2007] Formulaire VBA Excel - recherche sur plusieurs critères et affichage des résultats
    Par kl1ft dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 29/08/2016, 21h44
  2. [PDO] Comment faire une recherche sur plusieurs critères ?
    Par geeka dans le forum PHP & Base de données
    Réponses: 7
    Dernier message: 28/05/2015, 11h19
  3. [AC-2013] Programme de recherche sur plusieurs critères
    Par romain19 dans le forum Access
    Réponses: 1
    Dernier message: 22/04/2015, 05h54
  4. Réponses: 1
    Dernier message: 18/09/2010, 03h40
  5. Recherche se basant sur plusieurs critéres!
    Par rach20032 dans le forum Langage SQL
    Réponses: 1
    Dernier message: 21/09/2007, 01h55

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