Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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' & 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…