XL 2010 Formule - Recherche selon 4 critères dans 3 autres feuilles

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tchi456

XLDnaute Occasionnel
Bonjour,

Je recherche une formule à mettre dans les cellules C5, C6 et C7 pour rechercher selon 4 critères les valeurs se trouvant dans les tableaux des 3 autres feuilles de mon fichier.

Pouvez-vous m'aider?

Mes meilleures salutations,

Thierry
 

Pièces jointes

Bonjour à tous,

A essayer avec la fonction indirect
VB:
=DECALER(INDIRECT("'Classe "&$C$1&"'!B3");EQUIV($C$3;INDIRECT("'Classe "&$C$1&"'!A4:A75");0)+CHOISIR(EQUIV($C$4;Précision;0);0;1;2;3);EQUIV($C$2;INDIRECT("'Classe "&$C$1&"'!C2:N2");0)+CHOISIR(EQUIV($B5;{"T";"F0 min";"F0 max"};0);0;1;2))

Copier vers le bas

JHA
 

Pièces jointes

Bonjout Tchi,
Bonjour JHA, toujours les mêmes à labour. 🙂
Mais comme c'est fait, autant livrer. Un solution en PJ avec une macro événementielle :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C1:C4]) Is Nothing Then
        Application.ScreenUpdating = False
        On Error GoTo Fin
        Set F = Sheets("Classe " & Replace([C1], ",", ".")) ' Quelle feuille ?
        C = Application.Match([C2], F.[2:2], 0)             ' Quelle colonne ?
        L = Application.Match([C3], F.[A:A], 0)             ' Quelle ligne ?
        Classe = Application.Match([C4], F.Range(F.Cells(L, 2), F.Cells(L + 3, 2)), 0)  ' Quelle classe ?
        L = L + Classe - 1                                  ' Ligne avec Diamètre+Classe
        Application.EnableEvents = False
        [C5] = F.Cells(L, C) & " Nm"                        ' Copie des trois valeurs T, Fmin, Fmax
        [C6] = F.Cells(L, C + 1)
        [C7] = F.Cells(L, C + 2)
        Application.EnableEvents = True
        Exit Sub
    End If
Fin:
    [C5:C7].ClearContents                                   ' Si non trouvé, on efface tout.
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
2
Affichages
722
Retour