Microsoft 365 Calcul avec recherchev

J

JHA

XLDnaute Barbatruc

• 14 Décembre 2023

• #2

Bonjour à tous,

A essayer

JHA

 

Pièces jointes

• Matrice test.xlsx

  10.5 KB · Affichages: 11

Vote positif 0 Vote négatif

L

leks74

XLDnaute Nouveau

• 14 Décembre 2023

• #3

JHA à dit:

Bonjour à tous,

A essayer

JHA

Cliquez pour agrandir...

Bonjour JHA et merci pour la proposition. Je n'y arrive pas encore car je ne maîtrise pas la fonction index et equiv. Est-ce que c'est possible de mettre les éléments de formules en dur tel que: recherchev(R20;feuil1!D4:F12;4;Faux)? C'est une idée mais je ne sais pas comment le formaliser.
D'avance merci.
Cordialement,

 

Vote positif 0 Vote négatif

R

RMT

XLDnaute Nouveau

• 14 Décembre 2023

• #4

JHA à dit:

Bonjour à tous,

A essayer

JHA

Cliquez pour agrandir...

Salut,

J'ai essayé ta formule mais, elle ne fonction pas dans mon cas.

=INDEX(matriz;EQUIV($B2;Feuil2!$C$4:$F$12;0);EQUIV(C$1;Feuil2!$D$3:$F$3;0))

je partage mon classeur

 

Pièces jointes

• Matrice INDEX ne marche pas.xls

  29 KB · Affichages: 6

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 14 Décembre 2023

• #5

Bonjour à tous,

Peut-être plus facile avec sommeprod

JHA

 

Pièces jointes

• Matrice test.xlsx

  10.8 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Décembre 2023

• #6

Bonsoir,

leks74 à dit:

Est-ce que c'est possible de mettre les éléments de formules en dur tel que: recherchev(R20;feuil1!D4:F12;4;Faux)?

Cliquez pour agrandir...

Oui en dur mais ce n'est pas bien fameux !

Entrer les 6 formules en C2:C7 et les tirer vers la droite.

En C2 par exemple :

Code:

=RECHERCHEV("R2";Feuil2!$C$4:$F$12;COLONNE()-1;0)

A+

 

Pièces jointes

• Matrice test.xls

  28.5 KB · Affichages: 4

Vote positif 0 Vote négatif

oguruma

XLDnaute Occasionnel

• 15 Décembre 2023

• #7

Hello, je vois que tu es en O365 pourquoi tu ne passes tes RechercheV en RechercheX ?
Autre solution : la combinaison de INDEX+EQUIV te donnera aussi de la souplesse si tu dois distribuer ton fichier à des utilisateurs qui n'ont pas O365, c'est une manière de rester compatible
Bien que tu aies tenté la manoeuvre aussi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Décembre 2023

• #8

Bunjour à tous,

Voyez le fichier .xlsm joint et cette fonction VBA :

VB:

Function Rech(x$, table As Range, col%)
Dim adr$, L%, i%, j%, formule$
adr = table.Address(External:=True)
L = Len(x)
For i = 1 To L
    If Mid(x, i, 1) = "R" Then
        For j = i + 1 To L+ 1
            If Not IsNumeric(Mid(x, j, 1)) Then
                formule = formule & "VLOOKUP(""" & Mid(x, i, j - i) & """," & adr & "," & col & ",0)"
                i = j
                Exit For
            End If
        Next j
    End If
    formule = formule & Mid(x, i, 1)
Next i
Rech = Evaluate(formule)
End Function

Le code doit être placé impérativement dans un module standard.

Formule en Feuil1!C2 à tirer à droite et vers le bas :

Code:

=Rech($B2;Feuil2!$C$4:$F$12;COLONNE()-1)

A+

 

Pièces jointes

• Matrice test VBA.xlsm

  17.7 KB · Affichages: 2

Dernière édition: 15 Décembre 2023

Vote positif 0 Vote négatif