Bonjour a tous,
Je trébuche depuis ce matin.
J'arrive a recuperer les valeurs de la colonne A de la feuille 1 mais je n'arrive pas a les transferer sur la ligne 1 de la feuille 2.
Voici un mon code VBA
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
17
18
19 Sub Boucle() Dim i As Integer i = 1 Do While Range("A" & i) <> "" i = i + 1 Selection.Copy Sheets("Feuil2").Select Range("A1").Select ActiveSheet.Paste Sheets("Feuil1").Select Range("A1" & i).Select Application.CutCopyMode = False Selection.Copy Sheets("Feuil2").Select Range("B1").Select --> impossible de déplacer la cellule vers la droite ActiveSheet.Paste Sheets("Feuil1").Select Loop End Sub
Help me please Thk U
Partager