Sélectionner une ligne sur deux jusqu'à la fin de la collonne

David · 10 Septembre 2004

Bonjour tout le monde,

J'ai une colonnne A ou se trouve un nom sur chaque ligne.

J'aimerais juste à partir de A1 séléctionner celle plus bas la couper et la coler une colonne plus à droite et plus haut.

Voici ce que je fais

ActiveCell("a1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut
ActiveCell.Offset(-1, 1).Range("A1").Select
ActiveSheet.Paste

Le problème c'est que j'aimerais le faire pour toute mes lignes de la collonne A, je dois donc utiliser une boucle, quelqu'un pourrait-il svp m'éclairer ?

Merci
David

david2 · 10 Septembre 2004

dim i
for i = 1 to 10
ActiveCell("a"& i).Select
ActiveCell.Offset(1, 0).Range("A"& i).Select
Selection.Cut
ActiveCell.Offset(-1, 1).Range("A" & i).Select
ActiveSheet.Paste
next

David · 10 Septembre 2004

Un très grand merci pour ta réponse.

Le problème c'est qu'il me dit

Incompatibilité de types et s'arrête à cette ligne :

ActiveCell("a" & i).Select

Je pense qu'il n'accepte pas le i

Penses-tu savoir pourquoi ?

Merci encore pour ton aide

David2 · 10 Septembre 2004

Désolé j'ai oublié de remplacer la premiere ligne qui fait reference a une plage deja selectionnée.

donc a la place de la ligne:

ActiveCell("a" & i).Select

tu mets juste:

range("a" & i).Select

Sélectionner une ligne sur deux jusqu'à la fin de la collonne

David

Guest

david2

Guest

David

Guest

David2

Guest

Discussions similaires