Microsoft 365 Renvoie en tête selon valeur

eric72 · 30 Août 2023

Bonjour à tous,
Je rencontre un problème pour récupérer les en-tête en fonction d'un nom saisi, je m'explique:
- j'ai un base de données dans l'onglet "Archives", j'aimerais en feuil3, quand je saisie un nom en "Q1" qu'il me renvoie les en-têtes de colonnes dans lesquelles apparait ce nom, Sylvanu m'a donné une solution pour renvoyer la 1ere date mais j'aimerais avoir toutes les dates.
Avez-vous une idée.
Merci à tous pour le temps consacré à aider les autres!!!
Eric

mapomme · 30 Août 2023

Re,

eric72 à dit:
alors je me permets une dernière requête, peux-t-on se contenter de saisir LEMAY au lieu de HL/LEMAY.

Avec cette formule en Q2 :

=TRIER(DATEVAL(INDEX('Archives (2)'!2:2;UNIQUE(DANSCOL(SI(ESTNUM(CHERCHE(Feuil3!Q1;Archives));COLONNE(Archives);NA());2)))))

eric72 · 30 Août 2023

J'ai trouvé cette solution pour chaque tranche horaire de chaque équipe mais ça me parait un peu lourd (q4,q5)...
avec RECHERCHEX, il y a surement plus simple.

mapomme · 30 Août 2023

Bonjour @eric72 ,

Avec Excel 365, essayez cette formule en Q2 :
=DATEVAL(TRIER(UNIQUE(DANSCOL(SI(Archives=Feuil3!Q1;INDEX('Archives (2)'!2:2;COLONNE(Archives));NA());2))))

vgendron · 30 Août 2023

Hello all

une autre proposition avec
1) une plage nommée "LigneData" qui donne la ligne correspondant au créneau horaire
2) une formule avec du petite.valeur

sylvanu · 30 Août 2023

Bonjour Eric,
Un essai en PJ cette macro :

VB:

Sub ChercheClient()
    Ligne = 2: Nom = [Q1]: [Q2:R1000].ClearContents
    Application.ScreenUpdating = False
    tablo = Sheets("Archives (2)").Range("Tableau")
    Cmax = UBound(tablo, 1)
    For L = 1 To UBound(tablo)
        If tablo(L, 2) = "client" Then
            For C = 3 To Cmax
                If tablo(L, C) = Nom Then
                    Cells(Ligne, "Q") = tablo(1, C)
                    Cells(Ligne, "R") = tablo(L, 1)
                    Ligne = Ligne + 1
                End If
            Next C
        End If
    Next L
End Sub

On cherche dans les lignes "client" si on cherche le nom dans toutes les colonnes puis on relève la date et l'heure.

eric72 · 30 Août 2023

Bonjour,
Trois solutions différentes et tout fonctionne, vous êtes des cracks, alors je me permets une dernière requête, peux-t-on se contenter de saisir LEMAY au lieu de HL/LEMAY.
Bravo à tous les 3 et merci beaucoup.

eric72 · 30 Août 2023

sylvanu à dit:

Bonjour Eric,
Un essai en PJ cette macro :

VB:

Sub ChercheClient()
    Ligne = 2: Nom = [Q1]: [Q2:R1000].ClearContents
    Application.ScreenUpdating = False
    tablo = Sheets("Archives (2)").Range("Tableau")
    Cmax = UBound(tablo, 1)
    For L = 1 To UBound(tablo)
        If tablo(L, 2) = "client" Then
            For C = 3 To Cmax
                If tablo(L, C) = Nom Then
                    Cells(Ligne, "Q") = tablo(1, C)
                    Cells(Ligne, "R") = tablo(L, 1)
                    Ligne = Ligne + 1
                End If
            Next C
        End If
    Next L
End Sub

On cherche dans les lignes "client" si on cherche le nom dans toutes les colonnes puis on relève la date et l'heure.

Super Sylvanu,
par contre, je n'ai pas besoin des heures et donc uniquement chaque date
Vous avez été trop performant sur ce coup là, lol!!!

sylvanu · 30 Août 2023

eric72 à dit:
par contre, je n'ai pas besoin des heures et donc uniquement chaque date

Fait

eric72 à dit:
peux-t-on se contenter de saisir LEMAY au lieu de HL/LEMAY.

Fait ( y compris si on met seulement "LEMA" )

eric72 · 30 Août 2023

sylvanu à dit:
Fait

Fait ( y compris si on met seulement "LEMA" )

C'est exactement ça sauf que j'ai plusieurs fois la même date, oups!!!!!
Désolé je ne veux pas non plus abuser!!!

sylvanu · 30 Août 2023

eric72 à dit:
j'ai plusieurs fois la même date

Normal puisque c'est le cas.
En PJ, liste sans doublon et trié de façon chronologique.

mapomme · 30 Août 2023

Re,

eric72 à dit:
alors je me permets une dernière requête, peux-t-on se contenter de saisir LEMAY au lieu de HL/LEMAY.

Avec cette formule en Q2 :

=TRIER(DATEVAL(INDEX('Archives (2)'!2:2;UNIQUE(DANSCOL(SI(ESTNUM(CHERCHE(Feuil3!Q1;Archives));COLONNE(Archives);NA());2)))))

eric72 · 30 Août 2023

Génial vous êtes des AS, ne me reste plus qu'à faire un choix parmi ces solutions.
Merci merci et encore Merci
Bonne journée à tous

Microsoft 365 Renvoie en tête selon valeur

eric72

XLDnaute Accro

Pièces jointes

mapomme

eric72

XLDnaute Accro

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

eric72

XLDnaute Accro

eric72

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

eric72

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

eric72

XLDnaute Accro

Discussions similaires