Copier/coller une ligne un nombre de fois déterminé

Fermé

Clemisch Messages postés 2 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 12 décembre 2016 - 12 déc. 2016 à 16:55
yg_be Messages postés 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 12 déc. 2016 à 20:56

Bonjour,

Novice en vba, j'ai besoin de votre aide.

J'ai un fichier qui contient un très grand nombre de ligne (+ de 10 000).

Je souhaite copier coller les cellules des colonnes A à E de chaque ligne dans un autre onglet en copiant à chaque fois la ligne source 12 fois. Le but final sera de mettre des valeurs mensuelles dans la colonne F en verticale (d'où l'intérer de copier coller 12 fois à chaque fois). J'imagine également qu'il va falloir utiliser une boucle de type For / Next

En bref, j'aimerai obtenir quelque chose comme ça

onglet 1
A1 B1 C1 D1 E1
A2 B2 C2 D2 E2
A3 B3 C3 D3 E3

onglet 2
A1 B1
A1 B1
A1 etc
A1
A1
A1
A1
A1
A1
A1
A1
A1

A2
A2
A2
A2
A2
A2
A2
A2
A2
A2
A2
A2

etc

Merci d'avance pour votre aide.

Bien à vous.

Clemisch

A voir également:

Copier/coller une ligne un nombre de fois déterminé
Copier une vidéo youtube - Guide
Copier coller pdf - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Hors ligne instagram - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
12 déc. 2016 à 19:30

l'autre onglet est dans le même fichier?

Réponse 2 / 2

yg_be Messages postés 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
12 déc. 2016 à 19:46

Suggestion de code VBA :

Option Explicit
Sub clemish()
Dim numligneA As Long, numligneB As Long
Dim i As Integer
numligneA = 1
numligneB = 1
Do While Worksheets("FA").Cells(numligneA, 1).Value <> ""
    For i = 1 To 12
        Worksheets("FA").Rows(numligneA).Copy _
             Worksheets("FB").Rows(numligneB)
        numligneB = numligneB + 1
    Next i
    numligneB = numligneB + 1 ' pour passer une ligne
    numligneA = numligneA + 1
Loop
End Sub

Clemisch Messages postés 2 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 12 décembre 2016
12 déc. 2016 à 20:20

Bonjour yg_be

Oui, l'autre onglet est dans le même fichier.

Je vais essayer en adaptant le code ci-dessus.

Merci pour la réponse rapide !

yg_be Messages postés 22705 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
12 déc. 2016 à 20:56

FA et FB sont les noms des deux feuilles, et cela continue tant que la première cellule de la ligne n'est pas vide.
bon boulot!

Discussions similaires

Dessiner avec son clavier et avec des lettres

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

Comment faire le signe de croix (chrétiens) ?

Que veut dire "correspondant occupé" lors d'un appel ?

Discussions similaires

Newsletters