Discussion :

[LeSmoox]

Bonjour à tous,

Petite question à laquelle je n'ai pas trouvé de réponse.

Au sein d'une procédure, je souhaite copier la valeur d'une cellule d'une feuille donnée, et la coller dans UNE PLAGE de cellule en fonction d'une variable préalablement déterminée.

Je me doute que mon code n'est pas bon et je voudrais le reformuler pour qu'il soit valide.
Voici le bout de code concerné, pour lequel il me donne l'erreur "Attendu séparateur de liste ou )"

Code :

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

1
2
3
4
5
6
7
8
Dim Lignecopie As Integer
'Ligne concernée lors du collage
Dim WsCible As Worksheet 
'La feuille cible est celle ou sont collées les données (feuille "Synthese")
Dim WsSource As Worksheet 'La feuille source est celle d'où sont copiées les données
 
 
WsSource.Range("A2").Copy Destination:=WsCible.Cells(Lignecopie : Lignecopie + 32, 1)

En gros, je souhaite que les cellules soient collées à la fois dans "Lignecopie, 1) ; Lignecopie +1,1; Lignecopie +2; Lignecopie +3, etc, jusqu'à Lignecopie + 32" mais je n'arrive pas à formuler la ligne.

D'avance merci beaucoup!!

Maxime

[mercatog]

Code :

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

WsSource.Range("A2").Copy WsCible.Range(WsCible.Cells(Lignecopie, 1), WsCible.Cells(Lignecopie + 32, 1))

Ou

Code :

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

WsSource.Range("A2").Copy WsCible.Range("A" & Lignecopie & ":A" & Lignecopie + 32)

[LeSmoox]

Parfait,

Merci beaucoup!