[VBA-E]PasteSpecial

Bonjour,

Je suis de retour sur la section VB pour une ptite question....

J'ai sélectionné une plage de valeur de ce type A1:D1,F1:I1 et ensuite j'aurais voulu la copier et la coller dans une ligne d'une autre feuille.

J'utilise la commande de cette manière:

Code:

---

dest.Range(destination).PasteSpecial Paste:=xlPasteValues, skipblanks:=True

---

Et j'ai une erreur:

Citation:

---

Méthode ou propriété non gérée par cet objet

---

Vous pouvez m'éclairer?

Quel version d'Excel ? VBA97 n'accepte même pas le Copier de plusieurs cellules dispersées (message le confirmant)
Si dans ta version tu peux faire ça, je pense que tu dois pouvoir trouver une syntaxe pour Coller.
Dans le cas contraire, tu fais un tableau de tes adresses et tu copies cellule par cellule dans une boucle...
Oui, c'est bateau mais je n'ai pas mieux. :cry:

A+

Salut.
C'est quoi "dest" ?
Et qu'y a -t-il dans "destination"?
Au moment de l'exécution, bien sûr.

Bon ben j'ai trouvé.

@Megaxel
dest est une worksheet

J'insérais une ligne sur ma feuille de destination et ça faisais perdre ma copie en fait... Je ne connaissais pas ce comportement

Hum.... Par contre j'ai un autre problème très bizarre...

Code:

---

1 2 3 4 5 6 7

Dim r As String r = Selection.Row Selection.Range("A" & r & ":" & "C" & r & ",E" & r & ":I" & r).Select dest.Activate cel = lastRow(arrivees, dest) data.Activate Selection.Copy Destination:=dest.Range(cel)

---

Par exemple r = 38... Je voudrais qu'il copie certaines cellules de la ligne 38 et les copie sur la feuille de destination.

Si j'affiche r j'ai bien 38, mais après il copie et colle la ligne 76!!

J'ai peut-être une idée: le fait de faire

Code:

---

Selection.Range("A...")

---

est la source du problème: il considère que Selection.Range("A1") est la cellule (1,1) DANS "Selection", et pas dans la feuille complète: donc il compte 38 ligne à partir de la ligne 38.
Enlève le "Selection" devant, et ça devrait coller.

Yes!

:merci:

Alors vite, un petit click sur :resolu:
:D