Discussion :

[ash_rmy]

Bonjour – après avoir galérer en vba ce week end je reviens vers vous...
je voudrais copier des lignes dans un fichier Excel nommé DEPART et les coller les une à la suite des autres dans un fichier nommé ARRIVER en colonne.
Les lignes ont 8 cases – j’ai fait en sorte dans le programme qu’elle se colle les une à la suite des autres.
Voir les captures d’écran pour mieux comprendre merci.

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
20
21
22
23
Sub copie_DEPART_ARRIVER()
 
Dim j As Integer
 
For j = 1 To 5 ' NUM_SERIE
 
    Windows("DEPART.xls").Activate
 
   Range("A" &(j+3) : "H" &(j+3)).Select
 
 
    Selection.Copy
 
    Windows("ARRIVER.xls").Activate
 
    Range("C" & 8 * (j - 1) + 2).Select
 
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
                       SkipBlanks:=False, Transpose:=True
 
Next j
 
End Sub

Mais le problème est que je n’arrive pas bien à utiliser la ligne de code - Range("A" &(j+3) : "H" &(j+3)).Select (pour copier la ligne de la case A j à la case H j)– j’ai essayer plusieurs code différent rien à faire – je suis bloqué

Merci de m’aider – Ash.

[Elstak]

Hello,

Code :

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

Range("A" &(j+3) : "H" &(j+3)).Select

essaye comme ca :

Code :

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

range(cells(j+3,1),cells(j+3,8)).select

[ash_rmy]

Merci Elstak - sa marche et en plus même si des cases sont vides il les met à la suite en laissant les cases vides.

donc le mot clé cells prend 2 arguments - avec le premier qui représente le numéro de ligne et le second le numéro de colonne - c'est ça?
A se code 1 - B se code 2 - C se code 3 ....

[Elstak]

Oui c'est bien ca

si tu veux utilise l'aide vba ! Le fameux F1

Exemples
Cet exemple montre comment affecter une taille de caractères de 14 points à la cellule C5 dans la feuille Sheet1.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

Hop !!