Discussion :

[Loki83]

Bonjour tout le monde !

Lorsque je tente de faire un copier/coller, le code parvient à s'exécuter certaines fois et d'autre fois non.

Code :

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

1
2
3
4
5
6
        Worksheets("Parametres").Range("Paste_data").Offset(1, 2).Select
        Selection.Copy
        Application.CutCopyMode = False
        Sheets("Donnees").Select
        Cells(3, 2).Select
        Selection.Paste

L'erreur se produit lors de l'éxecution de

Code :

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

 Selection.Paste

J'avais déjà vu des erreurs similaire concernant la sélection de cellules.
Dans ces cas là, au lieu d'utiliser

Code :

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

cells(1,1).select

j'utilisais

Code :

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

worksheets("Donnees").cells(1,1).select

Cependant ce type de solution ne semble pas marcher avec le .paste

Quelqu'un peut-il m'éclairer svp ?

Merci d'avance !

[casefayere]

Bonjour,
et si tu faisais

Code :

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

Sheets("Donnees").Cells(3, 2) = sheets("Parametres").Range("Paste_data").Offset(1, 2)

tout simplement

[Pierre Fauconnier]

Salut.

Attention que cellule = ... ne transfère que les valeurs et donc que cela ne correspond pas à un copier/coller.

C'est normal que le copy/paste ne fonctionne pas, puisque entre le copy et le paste, tu fais un cutcopymode = false

Tu peux réaliser le copier/coller en une seule passe

Code :

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

Worksheets("Parametres").Range("Paste_data").Offset(1, 2).Copy Sheets("Donnees").Cells(3, 2)

[casefayere]

Bonjour Pierre,

je pensais simplement que seules les valeurs étaient à coller, mea culpa

Bonne journée

[Loki83]

En fait ce sont seulement les valeurs des cellules qui m'intéressent.

Merci pour vos deux réponses, elles me seront utiles les deux ! C'est parfait !!!

Bonne journée!

[Loki83]

Dans la série bug qui continue, j'en ai un autre :

Code :

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

1
2
    Worksheets("Donnees").Select
    Range("toto", Selection.End(xlDown)).Select

alors que ce bout de code marche dans un module, j'obtiens une "erreur de code d'éxécution 1004" quand je l'exécute sur un CommandButton1_Click

Peut être que si je fais quelque chose comme ci-dessous ça marchera mais j'aimerais comprendre

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
 
call une_procedure_qui_se_trouve_dans_un_module
 
End Sub