Microsoft 365 Renvoie en tête selon valeur

[eric72]

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

 

[eric72]

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]

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]

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]

Bonjour Eric,
Un essai en PJ cette macro :

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]

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]

Bonjour Eric,
Un essai en PJ cette macro :

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]

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

Fait

peux-t-on se contenter de saisir LEMAY au lieu de HL/LEMAY.

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

 

[eric72]

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]

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]

Re,

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]

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