Discussion :

[manphenix]

Bonjour,

J'ai fait un code, qui permet de copier les cellules C18:C77 de l'onglet procedure dans les cellules X2:X59 de l'onglet "titi" avec X qui varie suivant les demande de l operateur.

l'operateur donne le mois et l'annee et recherche la cellule qui contient ce mois et cette année. Apres je met le num de la ligne dans tableau(1, i) et le num de colonne dans tableau(2, i). tableau qui est a la base en string.
avec tous ces info je souhaite coller au bonne endroit.

Code :

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

1
2
3
4
5
6
7
For i = 1 To Sheets.Count
    If tableau(0, i) = "Total VP+VU" Then
        Worksheets("Procedure").Range("C18:C77").Copy
        a = CInt(tableau(1, i))
        b = CInt(tableau(2, i))
        Worksheets("titi").Paste Destination:=Worksheets("titi").Range(cells(a, b), cells(a+59,b))
endif

la copie ce fait , mais "eh la c'est le dramme" le collage plante. c'est le range qui merde
j'ai essayer avec Worksheets("titi").Paste Destination:=Worksheets("titi").cells(a, b)
mais la aussi la fortune ne m'a pas sourit.......
Help me

[Commodore]

Salut, utilise plutôt la méthode PasteSpecial

Code :

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

1
2
3
 
Worksheets("feuille_départ").Range("plage_départ").Copy
Worksheets("feuille_destination").Range("plage_destination").PasteSpecial xlPasteAll

edit: tu as aussi la possibilité d'utiliser xlPasteValues ou xlPasteFormats etc... au lieu de xlPasteAll

[manphenix]

Je ne comprend pas pourquoi ca marche
MAIS CA MARCHE......
merci
j'ai fait ca:

Code :

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

Worksheets(tableau(0, i)).Cells(a, b).PasteSpecial xlPasteAll