comment dupliquer une colonne en ligne

[INCO13]

bonjour,
j'essai de faire un distancier et je voudrai recuperer les nombre d'une colonne et les mettre en ligne et je voudrait que sa ce fasse automatiquement losque je rentre une nouvelle donner a la suite de la colonne.
merci

 

[kllmoon]

Re : comment dupliquer une colonne en ligne

A mon avis il faudrait une formule matricielle que je ne suis pas assez habileté pour te donner.

Pour que ça change automatiquement, tu as trois options. Tu peux la mettre dans workbook pour que lors de l'ouverture Private Sub Workbook_Open(), ou de la fermeture Private Sub Workbook_Close(), ou a tous changement Private Sub Workbook_Change(), tu appelle ta macro matricielle.

 

[INCO13]

Re : comment dupliquer une colonne en ligne

et au niveau du code pour lui expliquer que sa doit se mettre en ligne

 

[mécano41]

Re : comment dupliquer une colonne en ligne

Bonjour,

Supposons que tu aies 20 lignes de A10 à A29 et que tu veuilles, lorsque tu les remplis, que les valeurs aillent aussi se mettre de A1 à T1 :

- tu sélectionnes A1:T1
- tu écris =TRANSPOSE(A10:A29)
- tu valides par Ctrl+Maj+Entrée (formule matricielle)

Lorsque tu tapes 125 en A10 la cellule A1 reçoit également 125 et ainsi de suite...

Cordialement

 

[INCO13]

Re : comment dupliquer une colonne en ligne

je ne comprend pas pk sa me marque #valeur!

 

[mécano41]

Re : comment dupliquer une colonne en ligne

Tu as bien validé comme je t'ai dit?


voici un exemple joint

Cordialement

 

[youky(BJ)]

Re : comment dupliquer une colonne en ligne

Bonjour à vous tous,
voici un exemple par macro, à choisir
Un click droit sur l'onglet et visualiser le code et copier ceci en entier
la transposition debut en A2 et continue en ligne 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub 'si pas col A on quitte
Application.EnableEvents = False ' supprime événement
[B2:IV2].ClearContents 'on efface
n = [A65536].End(3).Row 'N° derniere ligne
On Error Resume Next
'cells(ligne,colonne)=range("A2")
Range(Cells(2, 1), Cells(2, n - 1)) = Application.Transpose(Range("A2:A" & n))
Application.EnableEvents = True
End Sub