Discussion :

[curt]

Bonjour à tous,

sur une feuille, j'ai deux colonnes non-contigües (A et H) dans lesquelles j'ai des valeurs dont la concaténations est à chercher depuis la concaténation de deux valeurs (Entity.Handle & AcadApp.ActiveDocument.FullName)
Je souhaite trouver le numéro de la ligne où on retrouve cette dernière valeur.

J'en suis là :

Code :

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

Ligne = WorksheetFunction.Match(Entity.Handle & AcadApp.ActiveDocument.FullName, Range("A4:A" & Split(Range("A4").CurrentRegion.Address, "$")(4)) & Range("H4:H" & Split(Range("H4").CurrentRegion.Address, "$")(4)), 0)

Impossible de faire fonctionner cette ligne - Au moins, aucune erreur n'apparait à la compilation mais je n'ai pas le résultat attendu

[anasecu]

Bonsoir,

Je conçois bien que faire la recherche avec une seule ligne doit pouvoir se faire
mais concaténer deux colonnes dont la taille risque d'être différente me chiffonne un peu.
Personnellement je commencerais par calculer la taille des colonnes,
cela simplifierait et sécuriserait les paramètres de la ligne de recherche.

C'est une idée à tester éventuellement.

[curt]

Bonjour, j'ai oublié de noter que les deux colonnes auront toujours le même nombre de lignes.

[ARTURO83]

Bonjour,

Si on employait une formule excel, on écrirait quelque chose dans ce genre, du moins sous cette forme (en matriciel, à valider avec CTRL + SHIFT + ENTREE)

Code :

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

=EQUIV(1;($A$1:$A$100=$E$1)*($H$1:$H$100=$F$1);0)

ramené à votre ligne de code, ça pourrait donner ceci:

Code :

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

Ligne = WorksheetFunction.Match(1, (Range("A4:A" & Split(Range("A4").CurrentRegion.Address, "$")(4)) = Entity.Handle) * (Range("H4:H" & Split(Range("H4").CurrentRegion.Address, "$")(4)) = AcadApp.ActiveDocument.FullName), 0)

Evidemment, je ne peux pas les tester.

Cdlt

[curt]

Bonjour Arturo83,

et merci pour cette réponse matinale.
Pourtant autant la formule fonctionne parfaitement, autant le code me renvoi 0
J'ai modifiée pour avoir une plage fixe

Code :

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

Ligne = WorksheetFunction.Match(1, (Range("A4:A100"  = Entity.Handle) * (Range("H4:H100"  = AcadApp.ActiveDocument.FullName), 0)

mais sans succès..
Pourtant en vérifiant le contenu des 2 variables (Entity.Handle et AcadApp.ActiveDocument.FullName) tout devrait fonctionner.
Je continu à creuser - encore merci

[anasecu]

Bonjour curt,

le code me renvoi 0

Lorsque l'on veux utiliser ta fonction sur la feuille il faut la valider en matriciel.

Je pense que c'est ce qui manque dans ta formule pour qu'elle puisse fonctionner.

Si tu l'insères sur une feuille avec FormulaArray elle devrait fonctionner et tu peux récupérer le résultat.










j

[curt]

Merci anasecu,

j'en arrive au même constat.
je vais voir à passer par un [formula.array], c'est à dire copier la formule dans la cellule qui affichera le résultat
J'ai vu sur le site une discussion de P. TOULON sur le sujet
Dommage tout de même de ne pas pouvoir faire passer une ligne vba en matriciel

PS : Je laisse le fil ouvert au cas où quelqu'un aura une solution plus directe.

[ARTURO83]

Curt, dans votre formule, il me semble qu'il manque des parenthèses

Ligne = WorksheetFunction.Match(1,((Range("A4:A100") = Entity.Handle) * ((Range("H4:H100") = AcadApp.ActiveDocument.FullName), 0)

mais, il est fort possible qu'il faille penser autrement.

je pense à quelque chose comme cela, mais pas encore bon:

Code :

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

    Ligne = Application.Evaluate("=application.worksheetfunction.match(1,(A4:A100= Entity.Handle)*(H4:H100=AcadApp.ActiveDocument.FullName),0)")

[curt]

Encore merci Arturo,

j'ai un autre palliatif:

Code :

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

1
2
3
For Ligne = 4 To Range("A" & Rows.Count).End(xlUp).Row
   If Range("A" & Ligne).Value = Entity.Handle And Range("h" & Ligne).Value = AcadApp.ActiveDocument.FullName Then Exit For
Next

ça me permet de capter la valeur de la ligne où on a la correspondance recherchée.
Ta deuxième solution fonctionne - Dommage tout de même de ne pas pouvoir accéder au calcul matriciel directement par VBA.
Encore merci

[anasecu]

Bonsoir,

Finalement ta solution basique résout parfaitement sa fonction même si je pense qu'il y en a un qui va réagir sur ta sortie.

[ARTURO83]

Bonjour,

Le but étant quand même de se passer d'une boucle, je suis arrivé à ceci, toujours avec "Evaluate":

Code :

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

 Ligne = Evaluate("MAX(ROW(A4:H100)*(A4:A100=Entity.Handle)*(H4:H100=AcadApp.ActiveDocument.FullName))")

j'ai fait le test sur un tableau où je devais chercher la valeur X dans la colonne A et la valeur Y dans la colonne H, et ça fonctionne bien; formule utilisée:

Code :

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

    Ligne = Evaluate("MAX(ROW(A4:H100)*(A4:A100=""X"")*(H4:H100=""Y""))")

Cdlt

[curt]

Bonsoir à tous,

il m'auras fallu du temps, mais je tiens la solution :

Code :

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

Ligne = Evaluate("MATCH(" & Chr(34) & Entity.Handle & AcadApp.ActiveDocument.FullName & Chr(34) & ",A2:A" & Range("A" & Rows.Count).End(xlUp).Row & "&H2:H" & Range("H" & Rows.Count).End(xlUp).Row & ",0)") + 1

La vitesse d’exécution est d'ailleurs bien meilleures qu'avec ma solution "peu élégante" avec une boucle.
Merci à tous ceux qui m'ont apporté leur précieuse lumière.

[ARTURO83]

Bonjour,

Félicitations, pour ma part, j'avais abandonné l'utilisation avec "MATCH" car je n'y été pas arrivé (perdu au milieu de tous ces guillemets et parenthèses), et choisi une autre option avec "MAX".
Encore bravo.

Cdlt

[jurassic pork]

Hello,
Peut-être aussi en utilisant un filtre automatique ? :

Code :

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

1
2
3
4
5
6
7
With ActiveSheet
.Range("A1").AutoFilter field:=1, Criteria1:= Entity.Handle ' colonne A
.Range("A1").AutoFilter field:=8, Criteria1:= AcadApp.ActiveDocument.FullName ' colonne H
Debug.Print .Range("A2:A" & Rows.Count).SpecialCells(xlVisible)(1).Row ' 1ère ligne trouvée
' .AutoFilterMode = False ' Désactivation Filtre Auto
If .AutoFilterMode Then .AutoFilter.ShowAllData ' Effacement Filtre Auto
End With

Ami calmant, J.P

[curt]

Merci pour cette option mais le but est d'identifier des lignes (je les passe en couleur rouge ou verte selon un choix) sans pour autant avoir à FILTRER / DÉFILTRER.
Mais cette solution reste intéressante - merci