Copie ligne + valeur

[Beamish]

Bonjour,

pour vous expliquer mon petit problème je vais prendre un exemple :
- j'ai un fichier excel contenant 100 lignes (correspondant à des parcelles)
- je souhaiterais copier chaque ligne
- et reprendre dans une nouvelle colonne (num_parcelles) la valeur d'une autre colonne (pas1)
- sachant que pour chacune des 100 lignes (parcelles) il existe plusieurs colonnes à recopier (pas1, pas2... jusqu'a 15)

donc je souhaiterais copier 15 fois la meme ligne en reprennant pour chacune des copies une information présente dans 15 colonnes de cette même ligne...

je ne suis pas sur d'être très clair mais vous pouvez me poser des question pour éclaircir certains points

merci d'avance

pj : voici un screenshot du fichier concerné : donc pour chaque ligne il faudrait copié cette ligne en complétant la colonne parcelles par les informations des collonnes PAS11, PAS12...

 

[sylv900]

salut
j'ai fait exactement la même chose avec 3 valeurs par ligne redistribués en une valeur pour chaque ligne (donc trois ligne) :


nbligne = ActiveSheet.UsedRange.Rows.Count
For i = 1 To nbligne
Range('E' & i).Select
Selection.Cut Destination:=Range('D' & i + 1)
Range('F' & i).Select
Selection.Cut Destination:=Range('D' & i + 2)
Range('B' & i & ':C' & i).Select
Selection.AutoFill Destination:=Range('B' & i & ':C' & i + 2), Type:=xlFillDefault
Range('G' & i & ':H' & i).Select
Selection.AutoFill Destination:=Range('G' & i & ':H' & i + 2), Type:=xlFillDefault
i = i + 2
Next


il faudra que tu adapte un peu
bon courage

 

[Beamish]

merci pour la solution mais je galère un peu pour l'adapter...
sais tu comment je pourrais copier automatiquement chaque lignes 15 fois ?

merci