[VBA-E] copie de colonnes

Version imprimable

07/06/2006, 15h05
bricereyem

[VBA-E] copie de colonnes

bonjour,
comment faire pour copier par ex, toutes les colonnes de la colonne 5 à la colonne 15.
merci
07/06/2006, 15h13
AlainTech

ENREGISTREUR DE MACRO!!!

Et la prochaine fois, je crie plus fort!
07/06/2006, 15h18
bricereyem

oui je sais, sauf que je souhaite pouvoir le faire avec le numéro de la colonne...
l'enregistreur macro me donne leur nom en lettre...
07/06/2006, 15h24
AlainTech

Bon, d'accord..

Tu peux t'inspirer de ça:

Code:

Range(Columns(5), Columns(15)).Select
07/06/2006, 16h25
bricereyem
ok merci !
autre petite question du même ordre :

je veux copier les cellules entre par ex U20 et AF78. sauf que dans mon cas
U, AF et 78 sont des variables. je connais U et AF par leur numéros de colonnes.

comment faire pour selectionner ce range ?
j'ai essayé plusieurs choses comme par ex :
code :
Code:

1 2 3 startrange = Cells(Rows(20), Columns(weekstartcol)) endrange = Cells(Rows(lastline), Columns(weekendcol)) Range(startrange, endrange).Copy
mais bien entendu ça marche pas...

une idée ?
07/06/2006, 16h39
zazaraignée

Salut

Un conseil en passant, qui je crois te servira, évite les noms de variables trop semblable à des mots réservés ou à des références d'objets d'Excel (Access, Word... ).

Tu n'aimeras sans doute pas mon autre conseil:
Utilise la fonction Rechercher/Remplacer de l'éditeur VBA pour changer les noms de tes variables U AF et 78 pour autre chose qui reste significatif pour toi. Tu peux leur ajouter un préfixe, par exemple.
07/06/2006, 16h47
bricereyem

tout conseil est bon à prendre...

par contre je pense m'être très mal expliqué. U AF et 78 était un exemple de valeur de mes variables.

je souhaite copier la selection de la cellule qui a pour coordonnées
row : 20 et column weekstartcol
vers la cellule dont les coordonnées sont
row : lastline et column : weekendcol

... en tout cas MERCI !!!! beaucoup
07/06/2006, 19h51
SfJ5Rpw8

weekstartcol ? et de quel type ...? contient quoi finalement une chaine .. "UF"..?
08/06/2006, 05h16
AlainTech
Ca devrait ressembler à ça:

Code:

Range(Cells(20, weekstartcol), Cells(lastline, weekendcol)).Copy

Les paramètres de Cells sont des numéros et pas des ranges.

Pour illustrer la proposition de zaza, je te propose:
Code:

1 2 3 4 Dim iWeekStartCol As Integer Dim iLastLine As Long Dim iWeekEndCol As Integer Range(Cells(20, iWeekStartCol), Cells(iLastLine, iWeekEndCol)).Copy
08/06/2006, 09h56
bricereyem

merci alaintech, sa marche !

merci à tous pour vos idées