XL 2016 Récupérer nom colonne à partir de cellules

maroon · 1 Avril 2020

Bonjour!

Je n'arrive pas à récupérer le nom des colonnes qui correspondent aux cellules récupérées par la macro.
Ca ne me semble pas très compliqué mais j'ai essayé plein de choses sans succès...
Je mets un fichier exemple avec les explications à l'intérieur.... si quelqu'un peu me dire comment faire merci beaucoup!!!

Staple1600 · 1 Avril 2020

Re

Allez confinement oblige, c'est KADO
(plus de resize)

VB:

Sub Test_D()
Dim Ligne&, Rng As Range, col_MaX$, col_MiN$
Dim f As Worksheet: Set f = Sheets("RECAP")
With Application
    Ligne = .Match(Sheets("GRAPH").[B1], f.[A:A], 0)
    Set Rng = Sheets("RECAP").Rows(Ligne)
    col_MaX = f.Cells(1, .Match(.Max(Rng), Rng, 0) + 2)
    col_MiN = f.Cells(1, .Match(.Min(Rng), Rng, 0) + 2)
End With
MsgBox "Max: " & col_MaX & Chr(13) & "Min: " & col_MiN, vbInformation, "Résultats"
End Sub

maroon · 2 Avril 2020

Je ne savais pas qu'envoyer une demande sur deux forum était à éviter... d'ailleurs j'ai le même pseudo Mais je saurai pour la prochaine fois... En fait je suis tellement à la bourre dans ce que je fais actuellement qu'hier j'ai fait un post ici pour essayer de trouver une solution plus rapidement. Mais sur l'autre forum j'ai déjà marqué le sujet comme résolu, sauf que j'ai re-posté un msg pour avoir une précision de la part de la personne qui m'avait répondu.

maroon · 2 Avril 2020

Du coup plutôt faire du "crosspostage" et en plus c'est certainement plus simple de mettre le lien de ça demande faite sur un forum plutôt que de refaire un message...sur le coup j'y ai pas pensé...

Staple1600 · 2 Avril 2020

Re

>•maroon
Relire mon message
Je n'ai pas écrit: éviter mais signaler
Tu n'as pas été voir le lien Wikipédia qui explique le pourquoi du comment ?
(Cela vient de l'époque de Usenet)

maroon · 2 Avril 2020

Ok c'est fait! (à la fin du fil de discussion mais bon je saurai si un jour je me retrouve dans la même situation).
Je ne connaissais pas Usenet j'ai regardé rapidement, je vais regardé plus précisément après.

XL 2016 Récupérer nom colonne à partir de cellules

maroon

XLDnaute Junior

Pièces jointes

Staple1600

maroon

XLDnaute Junior

maroon

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

maroon

XLDnaute Junior

Discussions similaires