Forums XLPages

Excel & VBA Espace Débutants copier une cellule dans les 2 cellules suivantes dans la colonne

copier une cellule dans les 2 cellules suivantes dans la colonne
#1
bardav
Débutant XLPages

Inscription: 28/02/2012

Messages: 8

Système d'exploitation:
Mac
Version Excel utilisée:
2011 (2010)
Posté le : 05-03-2012 15h48
Bonjour,
Je sollicite votre aide pour résoudre une autre difficulté de manipulation des données dans une feuille excel.
Par exemple, je prends la cellule A2, et je dois la copier dans les cellules A3 et A4, ensuite la cellule A5 doit être copiée dans les cellules A6 et A7, la cellule A8 dans les cellules A9 et A10, etc... jusqu'à la fin de mon tableau.
Est-il possible de réaliser une telle tâche au moyen d'une macro?
Merci d'avance à tous pour votre aide.
Hors Ligne
 Rapport   Haut 

Re: copier une cellule dans les 2 cellules suivantes dans la colonne
#2
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 05-03-2012 16h53
 Re le forum

Bardav, avec une adaptation de ma réponse précédente
Sub Copy_1to2()
Dim Ligne As Long

'Début en ligne 2 avec un saut de 3 cellules
    For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 3
'Copier la cellule dans les 2 cellules suivantes
        Cells(Ligne, "A").Copy Cells(Ligne + 1, "A").Resize(2)
           
    Next Ligne

End Sub

Mytå


Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
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