Recherches matricielle possibles et imaginables

[julien974]

Bonjour,

J'aimerai connaître les différentes manières de chercher dans un tableau à double entrée que ce soit en VBA ou en Formule.

J'ai mis trois manières de procéder avec des formules.

Merci d'ajouter d'autres pistes...

Cordialement,

Juli3n974

 

[TheLio]

Re : Recherches matricielle possibles et imaginables

Hello Julien,
Une possibilité avec SOMMEPROD:

=SOMMEPROD(((A2:A9=A12)*(B1:G1=A14))*B2:G9)

A++
Lio

 

[Tibo]

Re : Recherches matricielle possibles et imaginables

Bonjour le fil,

Toujours formule :

=DECALER(A1;EQUIV(A12;A2:A9;0);EQUIV(A14;B1:G1;0))

Bon app à tous

@+

 

[julien974]

Re : Recherches matricielle possibles et imaginables

Merci pour ces quelques formule!

Et avec du VBA, ça peut donenr quoi?

Juli3n974

 

[Denis]

Re : Recherches matricielle possibles et imaginables

Bonjour le fil, la Réunion et le Forum
tu ajoute une feuille dans ton projet (que j'ai nommé "Feuil1")
et tu mets ce code dans le ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
With Sheets("Feuil1")
If .Range("A12") <> "" And .Range("A14") <> "" Then _
.Range("A16") = .Range(.Range("A12") & .Range("A14"))
End With
Application.EnableEvents = True
End Sub

Bon courage et à +
Denis

 

[Tibo]

Re : Recherches matricielle possibles et imaginables

re,

C'est pas fini avec les formules :

=DECALER(A1;EQUIV(A12;A2:A9;0);1;1;6) DECALER(A1;0;EQUIV(A14;B1:G1;0);8)

Avec utilisation de l'espace comme symbole de l'intersection

@+

 

[Pierrot93]

Re : Recherches matricielle possibles et imaginables

Bonjour à tous

une autre solution vba :

Dim x As Range, y As Range, z As Range
Set y = Range("A2:A9").Find(Range("A12").Value, , xlValues, xlWhole, , , False)
Set z = Range("B1:G1").Find(Range("A14").Value, , xlValues, xlWhole, , , False)
If Not y Is Nothing And Not z Is Nothing Then _
    Set x = Application.Intersect(Rows(y.Row), Columns(z.Column)): MsgBox x.Value

bon après midi
@+

 

[JeanMarie]

Re : Recherches matricielle possibles et imaginables

Bonjour tout le monde

D'autres possibilités toujours en formule, à partir des fonctions déjà indiquées sur ce fil, mais pas vraiment décrites sur le forum, c'est plus pour indiquer des subtilités d'Excel.

1) C'est Didier un soir qui m'a indiqué celle-ci.
Après avoir déclarer deux Noms :
V = formule

=DECALER(Feuil1!$B$1:$G$1;EQUIV(Feuil1!$A$12;Feuil1!$A$2:$A$9;0);0)

H = formule

=DECALER(Feuil1!$A$2:$A$9;;EQUIV(Feuil1!$A$14;Feuil1!$B$1:$G$1;0))

ensuite on utilise dans une cellule la formule

=V H

ici, l'espace est un opération d'intersection entre deux plages

2) INDEX ne renvoie pas qu'une seule valeur, mais peut renvoyer une matrice.

=INDEX(INDEX(B2:G9;EQUIV(A12;A2:A9;0);0);1;EQUIV(A14;B1:G1;0))

PS : pas assez rapide pour la première, identique à la solution de Tibo

@+Jean-Marie

 

[julien974]

Re : Recherches matricielle possibles et imaginables

Merci les amis!

Et avec du Array, Ubound, Lbound, il n'y pas de solution?

Si quelqu'un pouvait m'expliquer à quoi servent ces fonctions, se serait bien.

Merci,

Juli3n974

 

[Pierrot93]

Re : Recherches matricielle possibles et imaginables

Re

en utilisant un tableau virtuel, en suposant que tes cellules A2 à A9 soient renseignées par des chiffres de 1 à 8 :

Dim t() As Variant
t = Range("B2:G9").Value
MsgBox t(Range("A14").Value, Range("A12").Value)

@+

 

[julien974]

Re : Recherches matricielle possibles et imaginables

Quelqu'on pourrait il m'expliquer les fonctions VBA :

- ARRAY
- UBOUND
- LBOUND

Merci bcp,

Juli3n974