Discussion :

[Solown]

Bonjour,

Je suis actuellement en train de développer une macro VBA qui remplit des cellules en fonction d'une région, d'une heure et d'une date. Ces trois données sont réparties sur 3 colonnes différentes.

Mon objectif est de récupérer la ligne en fonction du contenu des 3 colonnes. Par exemple : quelle est la ligne qui contient les données : EST 10h00 20180123

Je me suis penché sur la fonction .Find() mais celle-ci ne possède qu'un seul argument et renvoie une range plutôt qu'un numéro de ligne

Auriez-vous une méthode à me proposer ?

[eriiic]

Bonjour,

le plus simple pour le code est sans doute de te créer une colonne de clés (concaténation des 3) que tu peux masquer.
eric

[Solown]

Salut eriic et merci pour ta réponse rapide.

Je garde celle-ci sous le coude puisque c'est une bonne astuce.

Néanmoins, mon chef souhaiterait un fichier Excel sans aucune formule dessus(que du code VBA).

As-tu une autre idée ?

[Menhir]

Néanmoins, mon chef souhaiterait un fichier Excel sans aucune formule dessus(que du code VBA).

Ta macro peut très bien créer la colonne que décrit ériiic, la remplir (de formule ou même de valeurs en réalisant la concaténation directement en VBA), l'utiliser pour repérer tes ligne et la supprimer une fois l'opération finie.

Pas vu, pas pris.

[eriiic]

ou te créer un dictionary des clés. Pas sûr que ce soit plus rapide si chacune ne doit servir qu'une fois mais c'est une autre possibilité.

[pijaku]

Salut Eric,

Mes meilleurs voeux !

Pas sûr que ce soit plus rapide si chacune ne doit servir qu'une fois mais c'est une autre possibilité.

Moins d'une seconde pour 50 000 lignes avec une Collection...
C'est encore acceptable.

A++

[Marc-L]

Bonjour !

Je me suis penché sur la fonction .Find() mais celle-ci ne possède qu'un seul argument et renvoie une range

Chercher un élément d'une colonne via Find puis vérifier par rapport à la cellule trouvée les 2 autres cellules sur la même ligne.
Lire l'aide VBA des propriétés Offset et Row …     Cela ne casse pas trois pattes à un canard !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

Il y a aussi la solution d'appliquer un AutoFilter sur tes données, ce qui peut prendre en compte plusieurs critères, et d'obtenir l'adresse de la première ligne visible.

[Pierre Fauconnier]

Salut.

Et pourquoi pas EVALUATE par exemple? EQUIV (Match) permet de travailler sur des matrices recomposées. Le .Find, quand je peux m'en passer, je m'en passe.

Le code VBA suivant donne la ligne souhaitée en quasi-instantané sur 200.000 lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

evaluate("=match(""pierredupontdurand"",a1:a200000&b1:b200000&c1:c200000,0)")

[Solown]

Salut Pierre Fauconnier.

Effectivement, j'ai pas mal de soucis pour l'instant avec l'utilisation de ma méthode .Find() qui me lève une Erreur d'exécution 91.

J'ai donc essayé ta solution, néanmoins le résultat de la fonction evaluate est Erreur 2042.

Voilà le code en utilisant ta méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim test As Variant
    test = Evaluate("=match(""DIR CRC PART EST201802121200Entrant"",a2:a200000&c2:c200000&d2:d200000&e2:e200000&f2:f200000,0)")
    MsgBox (CStr(test))

La message box me renvoie Erreur 2042.

Merci d'avance.

[Marc-L]

utilisation de ma méthode .Find() qui me lève une Erreur d'exécution 91.

Mauvaise utilisation de cette méthode :  juste suivre son exemple dans l'aide VBA interne ou encore ceux de ce forum …

[Pierre Fauconnier]

Salut.

C'est qu'il n'a pas trouvé la correspondance dans les différentes colonnes. Il faut être certain que la chaîne reconstruite correspond au caractère près (casse non différenciée) à la concaténation des colonnes lors de l'évaluation de la formule.

Une bonne idée est de réaliser l'opération dans Excel avec un EQUIV matriciel pour être certain des arguments passés.

[Pierre Fauconnier]

.Find, dans ce cas-ci, oblige à des tests supplémentaire lorsque l'on a trouvé la ligne du premier critère (ici, deux tests supplémentaires puisque le test porte sur trois colonnes) et à relancer en boucle jusqu'à trouver la ligne correspondant aux trois critères.

Perso, je n'arrive pas à comprendre pourquoi on s'entête à utiliser .FIND dans ce cas, alors qu'un match bien torché le fait en une instruction

[Solown]

Merci à tous pour vos réponses.

Mon problème est résolu, j'ai essayé vos deux méthodes et elles marchent toutes les deux, reste à comparer le temps d'exécution lorsque que mon programme sera totalement fini.

Solown

[patricktoulon]

re
Bonjour
je serais curieux et surtout intéressé par un Match en une seule instruction sur trois colonnes
je changerais volontier ma methode pas tres seduisante pour certain ni ortodoxe mais qui pourtant fonctionne tres bien ( a savoir la concatenation des 3 en une seule dans une colonne pour chaque ligne dans une variable tableaux et surtout !!! sans boucle )

[Pierre Fauconnier]

Salut Patrick,

Je donne la solution plus haut dans la discussion, mais la voici en Excel et en VBA

Excel: Il faut valider en matricielle




VBA. Il n'est ni nécessaire ni possible de préciser à EVALUATE qu'il doit travailler en matricielle. Il le comprend par la structure de la formule passée