Recherche multi-critères dans un tableau en VBA

Version imprimable

12/12/2013, 10h18
Orladril

Recherche multi-critères dans un tableau en VBA

Bonjour,

J'espère ne pas poser pour la 1000ème fois une question déjà posée mais bon : je me lance.

J'ai une feuille de calcul composée d'évènements commerciaux dans laquelle chaque client peut avoir entre 1 et n lignes (1 ligne par évènement). Parmi ces évènement, un est particulier : le 1er RDV.

J'aimerais pouvoir ajouter une colonne m'indiquant la durée en mois entre le 1er RDV et la vente concernée par la ligne (la ligne contenant le 1er RDV sera alimentée par la valeur 999)

Exemple :

John-DOO-1er RDV-01/01/2013-999
Robert-JOHNSON-Convention compte-11/04/2013-2
John-DOO-Crédit Conso-12/04/2013-4
John-DOO-Assurance Vie-01/06/2013-6
Robert-JOHNSON-1erRDV-11/02/2013-999

J'ai réalisé l'alimentation de la dernière colonne via une formule à base de INDEX et EQUIV directement dans ma feuille mais les performances sont désastreuses (il y a beaucoup de données).

J'ai cru comprendre qu'en passant par des tableaux en VBA je pourrai gagner beaucoup en perf. Mais je n'ai jamais fait de macros...

Une bonne âme pourrait-elle m'aider ?
12/12/2013, 12h53
mercatog
Citation:

J'ai réalisé l'alimentation de la dernière colonne via une formule à base de INDEX et EQUIV directement dans ma feuille mais les performances sont désastreuses (il y a beaucoup de données).

Quelle est cette formule?

Tu peux l'utiliser par vba et en figeant le résultat
Code:

1 2 3 4 5 6 7 8 Sub Test() Application.ScreenUpdating = False With Worksheets("Feuil1").Range("E2:E1000") .Formula = "=ta formule avec index et equiv" .Value = .Value End With End Sub
12/12/2013, 12h54
Invité

Bonjour,

Une piste avec un TCD. Voir le fichier joint.

Cordialement.
12/12/2013, 13h32
Orladril

Ma formule avec INDX et EQUIV est :

=INDEX($S:$S; EQUIV(1;($AE:$AE="BP1EC")*($A:$A=A2)*($B:$B=B2);0)

où

"BP1EC" est le code correspondant à mon 1er RDV
A est la colonne des noms
B celle des prénom
S celle des dates d'évènements
AE celle des types d'évènements

La fonction me renvoie la date de 1er RDV pour le client donné. Ensuite je n'ai plus qu'à faire mois(D2-D1) pour avoir ma durée en mois.

Ce que je ne comprends pas dans ta solution Mercatog c'est que si j'affecte "dynamiquement" via une macro la même formule à mes cellules, comment est-ce que cela pourrait améliorer mes perfs ?

Je pensais qu'en VBA il y avait possibilité de charger mon tableau et d'utiliser des méthodes de recherche plus efficace que via une simple formule...