Discussion :

[bzh.floriane]

Bonjour,

J'ai trois tableaux que j'aimerai copier les uns à la suite des autres. Le premier en A10, le deuxième en A20 et le troisième en A30

Hors, j'obtiens cette erreur : You can't paste this here because the Copy area and paste area aren't the same size

J'ai d'abord essayé de donner une cellule puis une Range mais j'obtiens toujours cette erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ShCible2    
        For I = 2 To NbMedia
            Set Media(I) = .Range(.Columns(Media(I - 1).Column + 1), .Columns(MaxCol)).Find(RefCell, SearchOrder:=xlByColumns)
        Next I
 
        Sh3.Cells.Clear
        MaxCol = 200
 
        'Copier-coller chaque tableau dans Sheet3
        .Columns(1).Resize(, 10).Copy Sh3.Range("A1")
        .Columns(11).Resize(, 10).Copy Sh3.Range("A20")
        .Columns(20).Resize(, 10).Copy Sh3.Range("A20")
        Next I
End With

[Patrice740]

Bonjour,

Ceci fonctionnera (mais est-ce ce que tu voudrais ?) :

Code :

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

1
2
3
4
5
6
7
8
  With ShCible2
    '...
    Sh3.Cells.Clear
    'Copier-coller chaque tableau dans Sheet3
    .Range("A1:A19").Resize(, 10).Copy Sh3.Range("A1")
    .Range("K1:K19").Resize(, 10).Copy Sh3.Range("A20")
    .Range("T1:T250").Resize(, 10).Copy Sh3.Range("A30")
  End With

[bzh.floriane]

Merci, oui cela fonctionne mais j'ai un autre soucis.

Comment je peux écrire cette ligne mais avec les numéros des colonnes et non les lettres des colonnes

Code :

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

.Range("A1:J6").Copy Sh3.Range("A1")

Ma variable Media(1) me renvoie ma colonne de référence pour copier mon tableau numéro 1, Media(2) pour copier mon tableau 2 ...
Et TableFind.Rows.Count me donne le nombre de lignes que je veux copier.

J'aimerai donc écrire la ligne du dessus, comme ceci :

Code :

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

.Range(Media(1).Column & "1:" & Media(2).Column -1 TableFind.Rows.Count).Copy Sh3.Range("A1")

Mais je lui donne des chiffres de colonnes au lieu de lettre

[Patrice740]

Re,

C'est au choix :

Code :

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

1
2
3
4
5
.Range("A1:J6").Copy Sh3.Range("A1")
' ou bien 
.Range(.Cells(1, 1), .Cells(6, 10)).Copy Sh3.Range("A1")
' ou encore 
.Range(.Cells(1, "A"), .Cells(6, "J")).Copy Sh3.Range("A1")

[bzh.floriane]

Super, encore merci !!