Insérer ligne

[jeanphi]

Bonjour


dans une feuille 1, je souhaite insérer (à partir de la ligne 2 de la feuille 1)autant de lignes dont la colonne A est <>"" qu'il y a dans la feuille 2
donc s'il y a 50 lignes non vides dans la colonne A de la feuille 2, je veux insérer 50 lignes dans la feuille 1
Comment faire? 🙁
Merci!

 

[ballmaster]

Re : Insérer ligne

bonjour,

Sub copie()

Sheets(2).Select

plage = Range("a1:a65536")

nbvaleur = Application.WorksheetFunction.CountA(plage)

Sheets(1).Select
Range("a2").Select

For i = 1 To nbvaleur
    Selection.EntireRow.Insert

Next i

End Sub

 

[jeanphi]

Re : Insérer ligne

Merci ballmaster pour ton aide mais j'ai encore un souci!
j'ai une erreur d'exécution 9 "L'indice n'appartient pas à la sélection"

 

[jeanphi]

Re : Insérer ligne

j ai riens dis, ca marche nickel!!
encore merci et bon week end!