Discussion :

[Pollux]

Bonjour,

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

J'ai sélectionné une plage de valeur de ce type A11,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 :

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

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

Et j'ai une erreur:

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

Vous pouvez m'éclairer?

[ouskel'n'or]

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.

A+

[Megaxel]

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

[Pollux]

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

[Pollux]

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

Code :

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

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

[Megaxel]

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

Code :

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

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.

[Pollux]

Yes!

[Megaxel]

Alors vite, un petit click sur