Discussion :

[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

[Fvandermeulen]

Bonjour,
Visiblement tu n'as pas beaucoup de succès avec ta question, voici une proposition si tes données colonnes sont en A (début a2 car titre) et si tu veux les reporter su la même feuille à partir de la colonne C.
J'ai utilisé un copier/coller valeur transposé, attention ce code n'est absolument pas optimal mais devrait te guider pour que tu puisse l'améliorer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
CelVideRow = Sheets("sheet1").Range("a1").End(xlDown).Row + 1
 
If Target.Row <> CelVideRow Then Exit Sub
 
Range(Cells(2, 1), Cells(CelVideRow, 1)).Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
 
Application.CutCopyMode = False
 
Cells(CelVideRow, 1).Select
 
End Sub

Bonne continuation,