Dupliquer une liste mot par mot
seif
-
se171 -
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
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
A voir également:
- Dupliquer une liste mot par mot
- Dupliquer ecran - Guide
- Trousseau mot de passe iphone - Guide
- Liste déroulante excel - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
2 réponses
Bonjour,
Saisis le code suivant dans un module :
Nicolas dit toujours : « C'est facile quand on connait la réponse ! »
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 ! »
