Encore moi pour être suffisamment explicite

Bonjour,

Dans la case donnant 5 (pour N1 et P1 donc) et en
supposant que ton tableau de départ ets situé en A1:E6.

=INDEX(A1:E6;EQUIV("N1";A1:A6;0);EQUIV("P1";A1:E1;0))

Après ça, à toi de te débrouiller pour mettre les dollars
comme ça t'arrange et changer les "N1" et "P1" en
références de cellules.

Chris.

-----Message d'origine-----
Re bonjour à tous

Voilà le tableau:

P1 P2 P3 P4
N1 5 2
N2 3 3 3
N3 1 2
N4 5 5 4 5
N5 2 5

Ce que je souhaite par formules:
N1
P1 5
P3 2
N2
P2 3
P3 3
P4 3
N3
P1 1
P2 2
Etc

Merci d'avance
.

Merci Chris mais j'ai du mal me faire comprendre:
L'idée est à partir du tableau de départ comment à partir
d'une 1° cellule puis d'un copier-glisser dessous obtenir
N1
P1
P3
N2
P2
P3
P4
N3
P1
P2
N4
P1
P2
P3
P4
N5
P1
P3

-----Message d'origine-----
Bonjour,

Dans la case donnant 5 (pour N1 et P1 donc) et en
supposant que ton tableau de départ ets situé en A1:E6.

=INDEX(A1:E6;EQUIV("N1";A1:A6;0);EQUIV("P1";A1:E1;0))

Après ça, à toi de te débrouiller pour mettre les dollars
comme ça t'arrange et changer les "N1" et "P1" en
références de cellules.

Chris.

-----Message d'origine-----
Re bonjour à tous

Voilà le tableau:

P1 P2 P3 P4
N1 5 2
N2 3 3 3
N3 1 2
N4 5 5 4 5
N5 2 5

Ce que je souhaite par formules:
N1
P1 5
P3 2
N2
P2 3
P3 3
P4 3
N3
P1 1
P2 2
Etc

Merci d'avance
.

.

Bonjour,

Je n'ai trouvé qu'une solution macro :

Sub Toto()
For cpt1 = 1 To Range(Range("a2"), Range("a2").End
(xlDown)).Cells.Count
Range("h65000").End(xlUp)(2) = Range("a2").Offset
(cpt1 - 1)
For cpt2 = 1 To Range(Range("b1"), Range("b1").End
(xlToRight)).Cells.Count
If Range("a2").Offset(cpt1 - 1, cpt2) <> "" Then
Range("h65000").End(xlUp)(2) = Cells(1, cpt2 + 1)
Range("h65000").End(xlUp)(, 2) = Range("a2").Offset
(cpt1 - 1, cpt2)
End If
Next
Next
End Sub

Camille

-----Message d'origine-----
Re bonjour à tous

Voilà le tableau:

P1 P2 P3 P4
N1 5 2
N2 3 3 3
N3 1 2
N4 5 5 4 5
N5 2 5

Ce que je souhaite par formules:
N1
P1 5
P3 2
N2
P2 3
P3 3
P4 3
N3
P1 1
P2 2
Etc

Merci d'avance
.

Bonjour Camille,

C'est super et très élégant mais ce n'est pas sûr que je
puisse l'utiliser car en fait et au final je mets ce type
de classeur à disposition de plusieurs responsables. Il
est donc partagé. C'est pourquoi je préférerai des
formules.

Cordialement.

-----Message d'origine-----
Bonjour,

Je n'ai trouvé qu'une solution macro :

Sub Toto()
For cpt1 = 1 To Range(Range("a2"), Range("a2").End
(xlDown)).Cells.Count
Range("h65000").End(xlUp)(2) = Range("a2").Offset
(cpt1 - 1)
For cpt2 = 1 To Range(Range("b1"), Range("b1").End
(xlToRight)).Cells.Count
If Range("a2").Offset(cpt1 - 1, cpt2) <> "" Then
Range("h65000").End(xlUp)(2) = Cells(1, cpt2 + 1)
Range("h65000").End(xlUp)(, 2) = Range("a2").Offset
(cpt1 - 1, cpt2)
End If
Next
Next
End Sub

Camille

-----Message d'origine-----
Re bonjour à tous

Voilà le tableau:

P1 P2 P3 P4
N1 5 2
N2 3 3 3
N3 1 2
N4 5 5 4 5
N5 2 5

Ce que je souhaite par formules:
N1
P1 5
P3 2
N2
P2 3
P3 3
P4 3
N3
P1 1
P2 2
Etc

Merci d'avance
.

.