XL 2021 Question index/equiv

Franck_77 · 23 Octobre 2023

Bonjour,

J'ai eu beau tester dans tous les sens des recherchv etc... regarder les exemples des précédents post sur le forum, questionner notre ami gpt... je ne parviens pas à la bonne formule pour récupérer des données croisées. Je vois qu'on parle parfois de matrice, mais ça ne me parle pas.

Dans le fichier exemple joint, je cherche une formule pour la cellule A3 et les suivantes (A4, A5 etc...) de la feuille Récap, afin de récupérer la liste des noms de la colonne C de la feuille Données s'ils sont inscrits avec un 0 ou un 1 renseigné dans la colonne de la date correspondant à la cellule A1 de la feuille Récap.

Si vous avez une idée, pour que lorsque la date renseignée change, la liste se mette à jour en fonction.

Merci de votre aide

job75 · 24 Octobre 2023

Bonjour Franck_77, le forum,

Franck_77 à dit:
Cela doit fonctionner sur Office 365 également ?

Bien sûr, et comme je l'ai dit la validation matricielle n'est pas nécessaire.

Maintenant on peut se servir du fait que dans la feuille "Données" le tableau est structuré.

S'il se nomme bien Tableau4 entrez en Récap!A3 la formule :

Code:

=SIERREUR(INDEX(Tableau4[NOM Prénom];PETITE.VALEUR(SI(ESTNUM(DECALER(Tableau4;;EQUIV(A$1;--Tableau4[#En-têtes];0)-1;;1));LIGNE(Tableau4)-LIGNE(Tableau4[#En-têtes]));LIGNE(A1)));"")

Le tableau Tableau4 peut être déplacé sans inconvénient.

A+

sylvanu · 23 Octobre 2023

Bonjour Franck,
Un essai en PJ avec cette macro qui s'exécute automatiquement lorsqu'on change la date en Récap A1 :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        [A3:A1000].ClearContents: Ligne = 3
        T = Sheets("Données").[A1].CurrentRegion
        For i = 4 To UBound(T, 2)
            If CDate(T(1, i)) = Target Then Colonne = i: Exit For
        Next i
        For i = 2 To UBound(T, 1)
            If Not IsEmpty(T(i, Colonne)) Then
                Cells(Ligne, "A") = T(i, 3)
                Ligne = Ligne + 1
            End If
        Next i
    End If
Fin:
Application.EnableEvents = True
End Sub

s'ils sont inscrits avec un 0 ou un 1

J'ai traduit par "non vide", ou est ce qu'il ne faut prendre que 0 et 1 ?

Franck_77 · 23 Octobre 2023

Bonjour Sylvanu,
Merci pour ta proposition rapide

Non vide convient très bien, c'est ça.
Là on passe par du vba/macro ; est-ce possible de le faire avec des formules, pour éviter les problèmes de sécurité avec les macros pour les utilisateurs ?

sylvanu · 23 Octobre 2023

Re,
Je ne pense pas y arriver par formules.
Cependant il passera surement quelqu'un de plus affuté que moi pour trouver une réponse pertinente.

job75 · 23 Octobre 2023

Bonsoir Franck_77, sylvanu,

Formule (matricielle) en Récap!A3 :

Code:

=SIERREUR(INDEX(Données!C:C;PETITE.VALEUR(SI(ESTNUM(DECALER(Données!A$2:A$1000;;EQUIV(A$1;--Données!$1:$1;0)-1));LIGNE(Données!A$2:A$1000));LIGNE(A1)));"")

Sur Excel 2021 la validation matricielle par Ctrl+Maj+Entrée n'est plus nécessaire.

La référence A$1000 est à adapter à la dimension maximum du tableau.

A+

Franck_77 · 24 Octobre 2023

Merci, vous êtes au taquet ^^
Cela doit fonctionner sur Office 365 également ? J'essaie de transposer sur le fichier de travail mais pour l'instant sans succès.

job75 · 24 Octobre 2023

Bonjour Franck_77, le forum,

Franck_77 à dit:
Cela doit fonctionner sur Office 365 également ?

Bien sûr, et comme je l'ai dit la validation matricielle n'est pas nécessaire.

Maintenant on peut se servir du fait que dans la feuille "Données" le tableau est structuré.

S'il se nomme bien Tableau4 entrez en Récap!A3 la formule :

Code:

=SIERREUR(INDEX(Tableau4[NOM Prénom];PETITE.VALEUR(SI(ESTNUM(DECALER(Tableau4;;EQUIV(A$1;--Tableau4[#En-têtes];0)-1;;1));LIGNE(Tableau4)-LIGNE(Tableau4[#En-têtes]));LIGNE(A1)));"")

Le tableau Tableau4 peut être déplacé sans inconvénient.

A+

Franck_77 · 26 Octobre 2023

Merci, utiliser les tableaux rend le tout plus simple et plus compréhensible

XL 2021 Question index/equiv

Franck_77

XLDnaute Nouveau

Pièces jointes

job75

sylvanu

XLDnaute Barbatruc

Pièces jointes

Franck_77

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Franck_77

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Franck_77

XLDnaute Nouveau

Discussions similaires