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

accoftheocp Messages postés 6 Statut Membre -  
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   -
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.

3 réponses

  1.
    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
    1. 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
    2. 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
  2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    Bonjour
    avec une formule:
    https://www.cjoint.com/c/EFvgzdexAsV
    crdlmnt
    0
    1. 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
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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
  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