Forums XLPages

Excel & VBA Forum principal Copier une plage et coller toutes les X lignes.

Copier une plage et coller toutes les X lignes.
#1
natou04
Débutant XLPages

Inscription: 12/03/2013

Messages: 1

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2010
Posté le : 12-03-2013 10h18
 Bonjour,

J'aimerai pourvoir coller chaque cellule d'une plage de données (01 colonne) copiée mais avec un écart de deux lignes entre chaque cellule collée. Je n'ai du tout pas idée de comment faire une telle macro.

Merci de votre aide.
Hors Ligne
 Rapport   Haut 

Re: Copier une plage et coller toutes les X lignes.
#2
david84
Débutant XLPages

Inscription: 17/02/2013

Messages: 16

Système d'exploitation:
PC
Version Excel utilisée:
2010 version 64 bits
Posté le : 12-03-2013 22h27
Bonsoir,
en admettant que tes données de la colonne source commencent en cellule A1 et que tes données ne comportent pas de cellules vides, ci-joint une macro à tester (copie en colonne B) :
Sub test()
Dim DerLig As Long, i As Long
DerLig = Range("A" & Rows.Count).End(xlUp).Row 'détermine la dernière ligne
For i = 1 To DerLig
    Cells(i + i - 1, 2) = Cells(i, 1)
Next i
  
A+
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes