Renvoyer intitulé colonne en fonction d'une valeur

leblond · 27 Mai 2011

Bonjour le forum,

Votre mission, si vous l'acceptez est de m'éviter la calvitie qui me guette si je continue à m'arracher les cheveux sur un problème qui n'a pas l'air compliqué du tout...

J'ai une table avec des valeurs 0 et une valeur par ligne qui est supérieure à 0. J'aimerais tout simplement renvoyer l'intitulé de la colonne lorsqu'il y a une valeur >0.

Je vous mets le petit fichier qui va bien avec.

En vous remerciant par avance pour votre grandeur d'âme.

hoerwind · 27 Mai 2011

Re : Renvoyer intitulé colonne en fonction d'une valeur

Bonjour,

Essaie ceci en N3 :

Code:

=SI(NB.SI(B4:M4;">0");INDEX(B$3:M$3;EQUIV(MAX(B4:M4);B4:M4;0));"--")

formule à copier vers le bas

JBOBO · 27 Mai 2011

Re : Renvoyer intitulé colonne en fonction d'une valeur

Bonjour,

un début de piste à placer en N4 :

=SI(ESTERREUR(INDEX($B$3:M4;1;EQUIV(SOMME(B4:M4)/NB.SI(B4:M4;">0");B4:M4;0)));"";INDEX($B$3:M4;1;EQUIV(SOMME(B4:M4)/NB.SI(B4:M4;">0");B4:M4;0)))

Edit : Bonjour hoerwind, plus court, plus rapide, plus simple...je m'incline.

Efgé · 27 Mai 2011

Re : Renvoyer intitulé colonne en fonction d'une valeur

Bonjour leblond, JBOBO, Bonjour hoerwind,
Une proposition par macro evennementielle:

VB:

Private Z As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, j As Long
If Z = True Then Exit Sub
Z = True: i = Target.Row
If Not Intersect(Target, Range("B4:M12")) Is Nothing And Target.Count = 1 Then
    Cells(i, 14).ClearContents
    For j = 2 To 13
        If Cells(i, j) > 0 Then Cells(i, 14) = Cells(3, j): Exit For
    Next j
End If
Z = False
End Sub

Cordialement

leblond · 27 Mai 2011

Re : Renvoyer intitulé colonne en fonction d'une valeur

J'ai envie de dire bravo. merci à vous 3 pour vos solutions toutes aussi efficaces et rapides les unes que les autres.
et merci aussi pour votre rapidité!

des bisous, des calins.

hoerwind · 27 Mai 2011

Re : Renvoyer intitulé colonne en fonction d'une valeur

Re,

Merci à toi aussi pour ces remerciements, cela fait toujours plaisir de savoir qu'on a pu aider quelqu'un, bien que, en ce qui concerne les bisous et les câlins, j'aurai préféré que ton pseudo soit "lablonde" (affaire de goût personnel !)

Renvoyer intitulé colonne en fonction d'une valeur

leblond

XLDnaute Nouveau

Pièces jointes

hoerwind

XLDnaute Barbatruc

JBOBO

XLDnaute Accro

Efgé

XLDnaute Barbatruc

Pièces jointes

leblond

XLDnaute Nouveau

hoerwind

XLDnaute Barbatruc

Discussions similaires