VBA : copie d'une sélection de cellules disjointes

Question

Bonjour, 

Je débute en VBA, j'ai un gros fichier de données, je souhaite sélectionner une cellule toutes les 8 lignes (ça c'est bon), et ensuite copier cette sélection dans une autre feuille. Malheureusement je rencontre un souci ; voici mon code : 

//
Sub SelectMultiCell()

Sheets("Avant bias").Activate
For i = 2 To 594 Step 8
Union(Selection, Cells(i, 3)).Select
Next i
Selection.Copy

End Sub
// 

Au moment d'exécuter, excel m'affiche le message d'erreur suivant : "Impossible d'exécuter cette commande sur des sélections multiples". 

Après 1 ou 2 tests je me suis rendue compte que cela venait de l'instruction "Selection.Copy". Quelqu'un aurait-il une idée pour m'aider ? 

Merci pour votre aide :)

eriiic · Answer

Bonjour,

Le message est clair :  tu ne peux pas copier-coller une sélection multiple.
Il faut le faire plage par plage, au fur et à mesure.
eric

Brochette0 · Answer

Bonjour Eric, 

Merci pour ta réponse ; dans ce cas je devrais pouvoir faire ça via VBA en intégrant la copie à l'intérieur de la boucle, non ?

Gyrus · Answer

Bonjour,

Pourquoi ne pas effectuer la copie de chaque cellule plutôt que chercher à effectuer la copie d'une multi-sélection ?

A+

Brochette0 · Answer

Bonjour, 

C'est ce que j'ai fait finalement. Merci pour vos réponses :)

Maurice · Answer

Bonjour
Voila une macro Copy Ligne
A toi de voir

Sub SelectLigne()
Sheets("Avant bias").Activate
L = 2
   For I = 2 To 594 Step 8
      Rows(I).Copy
         Sheets("Cible").Range("A" & L).PasteSpecial xlPasteValues
      L = L + 1
   Next I
Application.CutCopyMode = False
End Sub

A+
Maurice

VBA : copie d'une sélection de cellules disjointes

5 réponses

Discussions similaires

Newsletters