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 :

Faire une recherchev sur plusieurs colonne


Sujet :

Macros et VBA Excel

  1. #1
    Membre habitué
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Février 2014
    Messages
    319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2014
    Messages : 319
    Points : 158
    Points
    158
    Par défaut Faire une recherchev sur plusieurs colonne
    Bonjour,


    Dans la feuille1 je voudrais affiché le nom du client sachant que la valeur de la colonne1 peut se trouver dans les 1 a 3 de la feuille2


    Pouvez vous m'aider ?
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 203
    Points : 14 354
    Points
    14 354
    Par défaut
    Bonjour,

    En B2, fonction matricielle (valider avec Ctrl+Maj+Entrée) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =INDEX(référence!$G$1:$G$11;SOMME(SI(référence!$A$2:$A$11=base!A2;LIGNE($A$2:$A$11))+SI(référence!$C$2:$C$11=base!A2;LIGNE($A$2:$A$11))+SI(référence!$E$2:$E$11=base!A2;LIGNE($A$2:$A$11)));1)
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  3. #3
    Membre habitué
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Février 2014
    Messages
    319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2014
    Messages : 319
    Points : 158
    Points
    158
    Par défaut
    ca marche tres bien en revanche est il possible de l'automatiser en vba le nombre ligne étant important.

  4. #4
    Expert éminent sénior
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 203
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 203
    Points : 14 354
    Points
    14 354
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub test1()
    Dim C As Range, Plage As Range, X As Range
    With Sheets("base")
        Set Plage = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("référence")
        For Each C In Plage
            Set X = .[A:A,C:C,E:E].Find(C.Value, , , xlWhole)
            C.Offset(, 1).Value = .Cells(X.Row, 7).Value
        Next C
    End With
    End Sub
    Cordialement.

    Daniel

    La plus perdue de toutes les journées est celle où l'on n'a pas ri. Chamfort

  5. #5
    Membre habitué
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Février 2014
    Messages
    319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2014
    Messages : 319
    Points : 158
    Points
    158
    Par défaut
    Ca marche supper je te remercie ceci va me permettre de soulager la base de référence ne trouvant pas la formule je faisais une ligne par combinaison possible.

  6. #6
    Membre habitué
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Février 2014
    Messages
    319
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2014
    Messages : 319
    Points : 158
    Points
    158
    Par défaut
    J'ai un souci avec la requête s il n y 'a pas de correspondance le script s'arrête.


    Ai je fais une erreur en l'adaptant

    je veux rechercher la valeur de la colonne E de l'onglet base

    par rapport aux colonne A B D de l'onglet référence et afficher la valeur se trouvant dans la colonne FL dans la colonne X

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub Formule_fisher()
     
    Dim C As Range, Plage As Range, X As Range
    With Sheets("base")
        Set Plage = .Range("E2", .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("référence")
        For Each C In Plage
            Set X = .[A:A,B:B,D:D].Find(C.Value, , , xlWhole)
            C.Offset(, 19).Value = .Cells(X.Row, 167).Value    'mis 19  pour  l'ecart entre E et X 
        Next C
    End With
    End Sub

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 27/03/2013, 15h29
  2. [phpBB][2] Faire une boucle sur plusieurs colonnes
    Par Vinuto dans le forum Bibliothèques et frameworks
    Réponses: 5
    Dernier message: 28/09/2007, 10h45
  3. Réaliser une arborescence sur plusieurs colonnes
    Par vince16 dans le forum Langage
    Réponses: 1
    Dernier message: 11/11/2006, 12h33
  4. faire une requête sur plusieurs tables
    Par julien.63 dans le forum PostgreSQL
    Réponses: 4
    Dernier message: 16/08/2006, 22h58
  5. [vb6]faire une requete sur plusieurs tables
    Par Henry9 dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 23/07/2006, 02h06

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