Automatiser la fonction transposer

[cda]

Bonjour,
je cherche à étendre une plage verticale à partir d'une plage horizontale (en gros, je voudrais que la case E1 soit égale à A1, E2 = B1, E3 = C1...). Je sais qu'il est possible de le faire avec la fonction transposer, mais y a-t-il un moyen d'automatiser le processus?
Merci bcp par avance

 

[Monique]

Re : Automatiser la fonction transposer

Bonjour,

Pas trop compris.
La plage verticale démarrant en A1 et pouvant aller jusqu'en H1

En J1 :
=SI(NBVAL($A$1:$H$1)<LIGNE();"";DECALER($A$1;0;LIGNE()-1))
puis copier-coller vers le bas

Ou bien seulement :
=DECALER($A$1;0;LIGNE()-1)
Format cellule [=0]"";Standard
pour éviter les 0 des cellules vides

 

[porcinet82]

Re : Automatiser la fonction transposer

Salut cda, Monique,

Je sais bien que cda voulait une formule, mais bon histoire de donner le choix, voici un petit bout de code (macro evenementielle a mettre dans le module de feuille concerné) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D1")) Is Nothing Then
    Cells(Target.Column, 5).Value = Target.Value
End If
End Sub

Juste une petite remarque pour cda : Je suppose dans mon code que tu n'a que 4 valeurs a transposer puisque E1 = A1, E2 = B1, E3 = C1, E4 = D1, E5 = E1 ???

@+

 

[cda]

Re : Automatiser la fonction transposer

Merci bcp pour vos réponses, la formule de Monique m'a été bien utile.
Et pour répondre à la remarque de porcinet82, j'ai beaucoup plus de 4 cellules, c'était juste un exemple 🙂. Je n'ai pas besoin du code pour le moment mais merci quand même, je le garde, on sait jamais...