Flux rss
Collection CommentCaMarche.net

[VBA] RechercheV Polyvalente

Publié par lermite222, dernière mise à jour le samedi 20 septembre 2008 à 10:03:11 par Nilou17

RECHERCHEV POLYVALENTE


Pour les accros et les inconditionnels des fonctions d'Excel, avant de crier au scandale, lisez les quelques lignes suivantes.
La RechercheV d'origine a beaucoup de limites:
  • La colonne de la donnée doit être avec un offset positif.
  • S'arrête à la première occurrence trouvée et ne permet pas de trouver toutes les occurrences d'une colonne de recherche, même si ce n'est pas un doublon tel Dupont Pierre et Dupont Claude


La rechercheV polyvalente que je propose n'a pratiquement pas de limite.
  • La liste ne doit pas être triée
  • La colonne de donnée peut être avec un offset négatif.
  • L'offset n'a pas de limite du moment qu'il se trouve dans une valeur de colonne valide.
  • Les formules peuvent faire une recherche multiple.(principal intérêt)
  • Possibilité de faire la recherche dans une plage colonne définie.
  • La liste peut comporter des cellules vides

Description


Les fonctions doivent être dans une colonne et ne pas comporter de cellule vide entre elles, sinon la recherche recommence à la première occurrence de la liste.

Dans la colonne E ligne de 3 à 9 se trouve la formule


     =RechercheVmulti($C$3;$B$3;$H$3)

C3 = la colonne où se trouve la liste de recherche, la recherche commence à la ligne 3, cela pourrait être une autre ligne et la recherche commencerait au N° de cette ligne.
B3 = la cellule critère
H3 = la colonne où la donnée va être saisie, peut être n'importe où sur la même ligne.

Dans la colonne F ligne de 3 à 7 se trouve la formule


     =RechercheVmulti($C$3;$B$3;$A$3; 20)

C3 = la colonne où se trouve la liste de recherche, la recherche commence à la ligne 3, cela pourrait être une autre ligne et la recherche commencerait au N° de cette ligne.
B3 = la cellule critère
A3 = la colonne où la donnée va être saisie, peut se situer n'importe où sur la même ligne.(ici offset négatif)
20 = la recherche s'arrête à la ligne 20, même s'il y a d'autres concordances plus bas.
Ce qui permet de délimiter la plage de la colonne - Début de recherche dans (C)3 et fin dans (C)20
Ce paramètre est optionnel : si pas renseigné, fait la recherche sur toute la colonne renseignée.

Le code


Collez le code ci-dessous dans un MODULE STANDARD (pas dans un module de feuille)
Option Explicit

'RD =cellule où commencer la recherche
'RC = cellule critère
'RDT = cellule où cherche la donnée
'Ligne rechercher jusque ligne... (optional) si 0 cherche jusqu'au bout de la ligne

Public Function RechercheVmulti(RD As Range, RC As Range, RDT As Range, _
            Optional Ligne As Long = 0)

Dim i As Integer, e As Integer, Txt As String
Dim LigE As Long, ColE As Long 'où écrire résultats
Dim Col As Integer, DECAL As Integer
Dim Lig As Long, Occ As Long

    LigE = Application.Caller.Row
    ColE = Application.Caller.Column
    Application.Volatile
    Lig = RD.Row ' Ligne où commencer la recherche
    Col = RD.Column 'Colonne où commencer la recherche
    DECAL = RDT.Column - Col
    On Error GoTo sortie
    If Ligne = 0 Then
        Ligne = Range(Cells(65536, Col), Cells(65536, Col)).End(xlUp).Row
    End If
    'Recherche le numéro de l'occurrence à trouver
    For Occ = LigE - 1 To Lig Step -1
        Txt = Cells(Occ, ColE).Formula
        If Left(Txt, 16) = "=RechercheVmulti" Then
            e = e + 1
        End If
    Next Occ
    For i = Lig To Ligne
        If Cells(i, Col) = RC Then
            If e <> 0 Then
                e = e - 1
            Else
                RechercheVmulti = Cells(i, Col).Offset(0, DECAL)
                Exit Function
            End If
        End If
    Next i
    'Si plus trouver de concordance
    RechercheVmulti = ""
Exit Function
sortie:
    'si erreur dans la formule, non détectée par Excel.
    RechercheVmulti = "#FAUTE!"
End Function

Résultats pour RechercheV Polyvalente

Problème Excel RECHERCHEV (Résolu) Bonjour, Il ya quelques temps une personne du forum m'a gentiment donné la formule sous excel =RECHERCHEV(E;école;2). Mon problème est que cette formule fonctione si je ne l'utilise qu'une fois par feuille seulement je l'utilise... www.commentcamarche.net/forum/affich-1738494-probleme-excel-recherchev
[excel]fonction recherchev réclcitrante (Résolu) Bonjour, J'ai un problème pour utiliser la fonction RECHERCHEV Si j'ai mon tableau comme ceci --------------- /| A | B 1|antoine | 12 2|benjamin| 10 3|Coralie | 8 Je souhaite afficher le nom du premier, celui qui a la meilleure note. Donc je... www.commentcamarche.net/forum/affich-8897697-excel-fonction-recherchev-reclcitrante
[Excel] RechercheV avec multicritères ? (Résolu) Bonjour ! Je souhaiterai savoir s'il était possible d'afficher une donnée à partir d'un autre classeur ou fichier en fonction de plusieurs critères avec la fonction RechercheV (ou s'il existe un autre moyen que cette fonction je... www.commentcamarche.net/forum/affich-3021780-excel-recherchev-avec-multicriteres

Résultats pour RechercheV Polyvalente

Formules EXCEL de Base 2On a vu la fonction SI La fonction ET est également interressante. Combinée à SI, celà donne : =SI(ET(condition1;condition2;.......conditionZ);vrai;faux) on affiche les différentes conditions à vérifier (ex : B3>C2 ....C2=B9; etc..). si toutes... www.commentcamarche.net/faq/sujet-8640-formules-excel-de-base-2
Les fonctions Ligne, Lignes, Colonne, ColonnesVous avez un tableau et vous l'avez nommé NomTableau (par exemple) avec : INSERTION / NOM / DEFINIR ..... cocher les cases du tableau et nommer le tableau NomTableau (par exemple) Dans ce tableau, vous voulez connaitre, quelque soit son... www.commentcamarche.net/faq/sujet-8646-les-fonctions-ligne-lignes-colonne-colonnes

Résultats pour RechercheV Polyvalente

Problème avec RECHERCHEV excel2007 (Résolu)Bonjour, J'utilise fréquemment la fonction RECHERCHEV, mais là j'ai un souci. J'utilise deux classeur excel différents. Je dois mettre le prix des articles sur le classeur B, alors que ceux-ci sont sur le classeur A.... www.commentcamarche.net/forum/affich-6607462-probleme-avec-recherchev-excel2007
RechercheV incluant une approximation. (Résolu)Bonjour, alors voila mon probleme. Je dispose d'une base de donnée brut. J'ai donc creer une nouvelle feuille avec un tableau qui, par le biais de rechercheV, me permet de voir les information de chaque ligne. Mon probleme est le suivant, je... www.commentcamarche.net/forum/affich-8004128-recherchev-incluant-une-approximation
Problème avec recherchev (Résolu)Bonjour,j'ai un soucis avec une formule imbriquée si + recherchev, en j'ai sur une première feuille de calcul une liste de numéro an A, puis de date en D, sur ma deuxième feuille j'aimerais retrouvée la date correspondante au numéro,... www.commentcamarche.net/forum/affich-6840600-probleme-avec-recherchev

Résultats pour RechercheV Polyvalente

Télécharger Xara XtremeXaraLX est la version open-source de Xara Xtreme, logiciel de création graphique polyvalent et extrêmement performant. Xara se distingue des autres logiciels de sa catégorie par ses performances en rendu d'image -qui en font le logiciel de... www.commentcamarche.net/telecharger/telecharger-34055169-xara-xtreme
Télécharger Driver Imprimante Epson Stylus c66L' imprimante Epson Stylus c66 est une imprimante polyvalente. Elle intègre des cartouches séparées. L'utilisateur n'a qu'à remplacer la couleur consommée. L'imprimante gère les nouvelles encres pigmentées DURABrite. Les impressions présente une... www.commentcamarche.net/telecharger/telecharger-34056906-driver-imprimante-epson-stylus-c66
Télécharger Driver Epson Stylus D92L'imprimante Stylus D92 est une imprimante polyvalente. Elle a été conçue pour imprimer aussi bien du texte que des images à la qualité photo. L'imprimante intègre un système de cartouches séparées. Elle pourra vous livrer 25 pages par minute en... www.commentcamarche.net/telecharger/telecharger-34056909-driver-epson-stylus-d92

Résultats pour RechercheV Polyvalente

Noël 2007 : 5 baladeurs audio/vidéo à offrir pour les fêtes(Paris - Relax news) - Voici cinq baladeurs numériques audio/vidéo à offrir pour Noël.- Memup OrizonLe Memup Orizon est un baladeur polyvalent haut de gamme. Il sait lire des vidéos sur écran 4,3 pouces, enregistrer des programmes TV via un câble... www.commentcamarche.net/actualites/noel-2007-5-baladeurs-audio-video-a-offrir-pour-les-fetes-4264880-actualite.php3
[Brève] Cinergy Hybrid T USB XSTerratec sort une petite clé USB polyvalente pour accéder, en déplacement, à tous les médias. La Cinergy Hybrid fait office de récepteur TNT et TV analogique, de tuner radio FM et de clé USB 2.0. Elle est également fournie avec une télécommande... www.commentcamarche.net/actualites/breve-cinergy-hybrid-t-usb-xs-5067482-actualite.php3
Musique en ligne, GPS, Web : Nokia devient une marque polyvalente(Paris - Relaxnews) - L'appétit de Nokia ne connaît plus de limite. Déjà leader sur le marché du mobile - un combiné sur trois vendu dans le monde est un Nokia - le géant finlandais veut désormais occuper tous les univers des loisirs numériques.... www.commentcamarche.net/actualites/musique-en-ligne-gps-web-nokia-devient-une-marque-polyvalente-3484817-actualite.php3