insérer lignes selon cellule

Simons

XLDnaute Occasionnel
Salut les gens,

Voila j'ai un classeur qui m'arrive en début de mois. Je veux à l'ouverture de celui ci lui affecter une macro qui :
- Fait un copier coller de la cellule A1 à la colonne D et jusqu'à la dernière ligne vide vers la feuille 2 du classeur.
- Insérer X lignes entre chaque ligne du tableau initial (en sachant que X correspond à un chiffre situé dans la deuxième colonne du tableau initial).
Merci d'avance pour votre aide.
 

lecknaat

XLDnaute Nouveau
Salut,

alors voila ce que je te propose : ( ya peut etre plus simple...)

Sheet (Feuil1).Select

der_ligne = 1

For i = 1 To 1000
If Not (Range('A' & i).Value = '') Then
der_ligne = i
End If
Next j

Range('A1:D' & der_lign & ''').Select
Application.CutCopyMode = False
Selection.Copy

Sheets('Feuil2').Select
Range('A1').Select
ActiveSheet.Paste

Voila pour copier coller tes donnés
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 904
Membres
101 834
dernier inscrit
Jeremy06510