Effectuer une recherche croisée

Zeratec · 21 Janvier 2015

Bonjour,

Je suis nouveau sur ce site, mais je le lis régulièrement afin de trouver des solution pour mes macros, mais sur cette question, je suis en plan !

J'explique le plus clairement possible.

Je possède un feuille de calcul avec, sur la première ligne des noms de matières et sur la première colonne des noms de personnes.

Je souhaite utiliser la fonction : Cells.Find(What:=MA_VARIABLE).Activate car je récupère les noms d'une autre feuille de calcul, afin de sélectionner la cellule Mr.DUPONT/Mathématique

En gros, il s'agit d'une pure recherche croisée dans un tableau

j'ai besoin de seulement selectionner la cellule "croisée"

PS : j'ai essayé d'utiliser ça Evaluate("MATCH(1,(N=s)*(matiere=nom),0)").Activate mais je ne comprends pas son fonctionnement.

PS 2 : Je travaille sous Excel 2013

Dranreb · 22 Janvier 2015

Re : Effectuer une recherche croisée

Bonsoir.

VB:

Function Croisé(ByVal Tablo As Range, ByVal Nom As String, ByVal Mat As String) As Range
Dim L&, C&
On Error GoTo Fin
L = WorksheetFunction.Match(Nom, Tablo.Columns(1), 0)
C = WorksheetFunction.Match(Mat, Tablo.Rows(1), 0)
Set Croisé = Tablo(L, C)
Fin:
End Function

Sub Test()
Croisé([A1:E7], "Dupont", "histoire").Value = "x"
End Sub

Remarque: s'il y en a beaucoup à faire il vaudrait mieux passer par deux Dictionary.

Zeratec · 22 Janvier 2015

Re : Effectuer une recherche croisée

Bonjour,

Je te remercie pour ta réponse aussi rapide.

Cette solution marche parfaitement, il ne me reste plus qu'à la boucler.

Merci beaucoup !

Effectuer une recherche croisée

Zeratec

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Zeratec

XLDnaute Nouveau

Discussions similaires

Effectuer une recherche croisée

Zeratec

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Zeratec

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency