Récupérer la valeur d'une cellule avec le nom de l'entête de colonne

[infernotronic]

Bonjour à tous,

Me voici avec un problème épineux. Je ne sais pas s'il se soldera par une formule ou fonction VBA... A vous de me dire 🙂

J'ai un tableau avec deux entrées (Etablissement (lignes) et Equipement (colonnes))
Pour chaque établissement j'ai un nombre (ou pas) d'équipements représenté par une quantité dans une colonne ou l'autre.

Ce que j'ai besoin, c'est d'extraire de ce tableau le nombre d'équipements par type suivant l'établissement.
Le tableau joint devrait mieux s'expliquer que moi 🙂

Dans l'espoir de vous lire.....

 

[Jocelyn]

Bonjour le Forum,
Bonjour infernotronic,

Un essai en fichier joint par formule matricielle

Cordialement

 

[Dranreb]

Bonjour.
Avec cette fonction perso dans un module standard :

Option Explicit

Function NièmeRens(ByVal R, ByVal N As Long)
Dim T(), V
If TypeOf R Is Range Then T = R.Value Else T = R
For Each V In T
   NièmeRens = NièmeRens + 1
   If Not IsEmpty(V) Then
      N = N - 1: If N = 0 Then Exit Function
      End If: Next V
NièmeRens = CVErr(xlErrNA)
End Function

…on peut utiliser une formule un tout petit peu plus simple:
En K2, à propager sur 5 lignes et 4 colonnes :

=SIERREUR(INDEX($B2:$H2&" "&$B$1:$H$1;1;NièmeRens($B2:$H2;COLONNES($K2:K2)));"")

 

[infernotronic]

Merci Jocelyn !

Cela fonctionne très bien. Vous êtes au top 🙂

 

[infernotronic]

Merci Dranreb 🙂

Je testerai aussi cette solution.

 

[herve62]

Bonjour
J'étais en train d'écrire ça .. mais en VBA ( plus simple que DRANREB !! )
Si tu connais un peu , tu pourras l'adapter si tu veux déplacer tes zones
j'ai mis des com.

 

[infernotronic]

Bonjour
J'étais en train d'écrire ça .. mais en VBA ( plus simple que DRANREB !! )
Si tu connais un peu , tu pourras l'adapter si tu veux déplacer tes zones
j'ai mis des com.

Bonjour Hervé,
Merci pour votre travail. Cela fonctionne parfaitement également 🙂
Je vais pouvoir l'utiliser.