Bug VBA Copier/coller

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:

---

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:

---

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:

---

cells(1,1).select

---

j'utilisais

Code:

---

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 !

Bonjour,
et si tu faisais

Code:

---

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

---

tout simplement

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:

---

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

---

Bonjour Pierre,

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

Bonne journée

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 !!! :ccool:

Bonne journée!

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

Code:

---

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:

---

1 2 3 4 5

Private Sub CommandButton1_Click()   call une_procedure_qui_se_trouve_dans_un_module   End Sub

---

Peut-être

Code:

---

Range(range("toto"), Selection.End(xlDown)).Select

---

N'oublie pas que tu as rarement besoin de sélectionner des cellules pour travailler avec

j'ai toujours le même message d'erreur...

En admettant que je renonce à sélectionner j'ai le code suivant

Code:

---

1 2	nb_lignes_donnees = Range(Range("Donnees_Bonduelle"), Selection.End(xlDown)).Count

---

Cependant, j'ai toujours cette erreur 1004... :cry:

Aurais tu une autre idée ?

re,
pour le nombre de lignes

Code:

---

nb_lignes_donnees = Range("Donnees_Bonduelle").Count

---

Le Range("Donnees_Bonduelle") correspond juste à une case. J'ai besoin de compter le nombre de lignes qu'il y a en dessous.
D'où mon envie d'utiliser Selection.End(xlDown).

Au cas ou ça intéresse d'autres personnes, j'ai contourné le problème en faisant, comme indiqué plus haut :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click()   call une_procedure_qui_se_trouve_dans_un_module   End Sub

---

Cependant j'aurais vraiment aimé savoir pourquoi ce que je décivais dans mon poste de 12h41 ne marche pas...

à mon avis dans le module userform, excel ne peut pas toujours préciser le contexte de l'instruction range, notamment si aucune feuille n'est active.

Tu aurai pu résoudre le problème en utilisant

Code:

---

worksheets("ma feuille").range("ma plage")

---

plutôt que

Code:

---

range("ma plage")

---

Merci Benjîle. J'essayerai ça la prochaine fois.