Dupliquer une liste mot par mot

seif -  
 se171 -
Bonjour salut a tous , j'ai plusieurs listes du genre :
frank
tomy
dany
et je voudrais les dupliquer comme ça:
frank
frank
frank
tomy
tomy
tomy
dany
dany
dany
le problème c'est la longueur des listes et le copie coller va duré des heures; si vous avez une solution sur excel ou autre je vous serais trés redevable

2 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

    Saisis le code suivant dans un module : 

    Option Explicit 

Sub test() 

Dim Ligne As Long 
Dim Colonne As Integer 
Dim Qté As Integer 
Dim N As Integer 

Colonne = 1 
Qté = 3 
For Ligne = Cells(Rows.Count, Colonne).End(xlUp).Row To 1 Step -1 
  For N = 1 To Qté - 1 
    Cells(Ligne, Colonne).Insert 
    Cells(Ligne, Colonne).Value = Cells(Ligne + 1, Colonne).Value 
  Next 
Next 


End Sub


    Nicolas dit toujours : « C'est facile quand on connait la réponse ! »
    0
  2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    Doublons de Ficelle

    http://www.commentcamarche.net/forum/affich-18902780-dupliquer-mes-listes-mot-par-mot

    Mytå
    0
    1. se171
       
      merçi infiniment Signaler Patrice33740 je vais essaye et voir
      0

Discussions similaires

question pix mot caché
aorum10 -
pixlagalere -

7 réponses
Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses