Bonjour,
Dans un fichier Excel, je veux déplacer (drag&drop) des cases (1 ligne sur 2) d'une colonne vers une autre.
Voici le code ci-dessous pour les quelques premières lignes :
Range("A3:C3").Select
Selection.Cut Destination:=Range("E2:G2")
Range("A5:C5").Select
Selection.Cut Destination:=Range("E4:G4")
Range("A7:C7").Select
Selection.Cut Destination:=Range("E6:G6")
Range("A9:C9").Select
Selection.Cut Destination:=Range("E8:G8")
...
Seulement je souhaiterai le faire sur la totalité des lignes du fichier et n'étant pas à l'aise avec les boucles je souhaiterai un coup de main pour la réalisation de cette macro.
D'avance un grand Merci
Régis
Dans un fichier Excel, je veux déplacer (drag&drop) des cases (1 ligne sur 2) d'une colonne vers une autre.
Voici le code ci-dessous pour les quelques premières lignes :
Range("A3:C3").Select
Selection.Cut Destination:=Range("E2:G2")
Range("A5:C5").Select
Selection.Cut Destination:=Range("E4:G4")
Range("A7:C7").Select
Selection.Cut Destination:=Range("E6:G6")
Range("A9:C9").Select
Selection.Cut Destination:=Range("E8:G8")
...
Seulement je souhaiterai le faire sur la totalité des lignes du fichier et n'étant pas à l'aise avec les boucles je souhaiterai un coup de main pour la réalisation de cette macro.
D'avance un grand Merci
Régis