Discussion :

[mariecaro]

Bonsoir à tous !

Débutante en VBA, je me tourne vers ce forum suite à quelques difficultés pour rédiger mon code !
Je cherche à copier un premier tableau qui se trouve sur la feuille "Calculs". Je sais où il débute mais pas où il finit (sa taille est variable).
Je souhaite ensuite le coller sur une autre page, Recap. je connais la ligne où je souhaite le coller mais la colonne est variable est donc prédéfini..

Voici mon premier code

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
 
 
Sub CollageETPscoffret()
 
Dim derlig As Long
Dim dercol As Long
Dim WsS As Worksheet, WsC As Worksheet
Dim i As Integer
i = 5 'numéro de colonne où je vaos copier mon tableau
 
Set WsS = Worksheets("Calculs") 'feuille source
Set WsC = Worksheets("Recap") 'feuille cible
 
derlig = WsS.Range("B65536").End(xlUp).Row 'je définis la dernière ligne de mon tableau que je souhaite copier
dercol = WsS.Range("B143").End(xlToLeft).Column 'je définis la dernière colonnede mon tableau que je souhaite copier
 
Range(WsS.Cells(143, 2), WsS.Cells(derlig, dercol)).Copy 'je copie
 
WsC.Cells(63, i).Paste
'je colle mon tableau à partir de ma cellule sur la ligne 63 et à partir de la colonne prédéfinie, ici 5 donc la colonne E
 
End Sub

Je crois bien que ma dernière ligne de code est totalement fausse, je ne connais vraiment pas la syntaxe appropriée, et cela malgré de longues recherches sur internet...

Je serai extrêmement reconnaissante à tous ceux qui pourraient jeter un petit coup d'oeil à mon problème !!!! je bloque complètement... :/
Merci d'avance !

Marie

[aalex_38]

Bonjour,


Si tu veux copier les valeurs, tu n'as pas besoin de faire un copier coller.
Il te suffit de définir une plage de même taille egale à l'autre.

Avec Nblig, le nombre de ligne source, NbCol le nombre de colonnes source :

Code :

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

1
2
3
4
5
6
With WsC
  .range(.Cells(63, i),.Cells(63+nblig, i+nbcol)).value = wss.Range(WsS.Cells(143, 2), WsS.Cells(143+nblig, 2+nbcol)).value
end with
 
WsS  'feuille source
WsC  'feuille cible

[mariecaro]

Super ! Merci Alex !

[Invité]

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
Sub CollageETPscoffret()
 
Dim derlig As Long
Dim dercol As Long
Dim WsS As Worksheet, WsC As Worksheet
Dim i As Integer
i = 5 'numéro de colonne où je vaos copier mon tableau
 
Set WsS = Worksheets("Calculs") 'feuille source
Set WsC = Worksheets("Recap") 'feuille cible
 
derlig = 143 + WsS.UsedRange.Rows.Count 'je définis la dernière ligne de mon tableau que je souhaite copier
dercol = 1 + WsS.UsedRange.Columns.Count 'je définis la dernière colonnede mon tableau que je souhaite copier
 
Range(WsS.Cells(143, 2), WsS.Cells(derlig, dercol)).Copy Destination:=WsC.Cells(63, i)  'je copie
 
 
'je colle mon tableau à partir de ma cellule sur la ligne 63 et à partir de la colonne prédéfinie, ici 5 donc la colonne E
 
End Sub