Contenue d'un ligne insérer et répéter n fois

accoftheocp Messages postés 6 Statut Membre -  
Vaucluse Messages postés 27336 Statut Contributeur -
bonjour;

Prière de nous aider de copier et insérer un contenu d'un cellule en plusieurs lignes,afin de bien comprendre nous vous transmettons ci-après un exemple :

colonne a colonne b
A 2
b 3
c 4

Résultat qu'on veut est:
colonne a colonne b
A 2
A 2
b 3
b 3
b 3
c 4
c 4
c 4
c 4
Nous comptons sur vos collaboration.
A voir également:

3 réponses

Réponse 1 / 3
Frenchie83 Messages postés 2254 Statut Membre 339
 
Bonjour
A essayer 
Sub Recopie()
    Application.ScreenUpdating = False
    DerLig = [A10000].End(xlUp).Row
    For i = DerLig To 2 Step -1
        'isoler la partie numérique
        For j = 1 To Len(Cells(i, 1))
            Car = Mid(Cells(i, 1), j, 1)
            If IsNumeric(Car) Then
                Qte = Right(Cells(i, 1), Len(Cells(i, 1)) - j + 1)
                If Qte = 1 Then GoTo Suivant
                GoTo Traitement
            End If
        Next j
Traitement:
        Cells(i, 1).Copy
        Range(Cells(i + 1, 1), Cells(i + Qte - 1, 1)).Select
        Selection.Insert Shift:=xlDown
Suivant:
    Next i
End Sub

Cdlt
0
Frenchie83 Messages postés 2254 Statut Membre 339
 
Rectification,
J'ai mal interpréter la question 
Sub Recopie()
    Application.ScreenUpdating = False
    DerLig = [A10000].End(xlUp).Row
    For i = DerLig To 2 Step -1
        Qte = Cells(i, 2)
        If Qte = 1 Then GoTo Suivant
        GoTo Traitement

Traitement:
        Range(Cells(i, 1), Cells(i, 2)).Copy
        Range(Cells(i + 1, 1), Cells(i + Qte - 1, 2)).Select
        Selection.Insert Shift:=xlDown
Suivant:
    Next i
End Sub

Cdlt
0
accoftheocp Messages postés 6 Statut Membre
 
bonjour,
Merci d'avance pour votre réponse et pour votre réactivité.

J'ai trouvé la difficulté pour tester votre programme que vous nous avez envoyé sur mon état de base,nous vous communiquons cj notre document "magasins.xls" est disponible ici:
https://www.cjoint.com/c/EFvrs63JUPZ

Nous comptons sur votre collaboration habituelles, et merci d'avance pour votre compréhensions.
0
Réponse 2 / 3
Vaucluse Messages postés 27336 Statut Contributeur 6 441
 
Bonjour
avec une formule:
https://www.cjoint.com/c/EFvgzdexAsV
crdlmnt
0
accoftheocp Messages postés 6 Statut Membre
 
Bonjour,
Merci bien votre réponse.
Pouvez vous me donner votre e-mail,si je rencontre d'autre problème.
salutations.
Mon e-mail supprimé par la modération /!\ le forum est public...
0
Vaucluse Messages postés 27336 Statut Contributeur 6 441
 
Bonjour
ci joint version formule jusqu'à ligne 500
https://www.cjoint.com/c/EFwgkisf3iV
Mais nous ne donnons pas d'adrese Mail sur CCM. La votre ne devrait d'aileurs pas être non plus.
Vous pouvez dans tous les cas revenir ici poser une question ou contacter en privé sur ce site un des intervenants en cliquant sur son pseudo.
BCrdlmnt
0
Réponse 3 / 3
Frenchie83 Messages postés 2254 Statut Membre 339
 
Bonjour
Voici le fichier adapté.
Ayant supposé que la liste pouvait s'agrandir, lors du clic sur le bouton "Recopie des lignes", une boîte de dialogue s'ouvre vous demandant à partir de quelle ligne vous souhaiter lancer la recopie (par défaut c'est la ligne 2), ceci pour éviter de recopier les lignes qui auraient été déjà traité. Si cela ne vous convenez pas, je peux le modifier.
https://www.cjoint.com/c/EFwdXGwkNaw
Bonne journée
Cdlt
0