Macro : insertion de ligne

[sunguess]

Bonjour,

J'ai besoin de votre aide pour creer une macro vba pour faire les choses suivantes :

1/ Afficher une boite de dialogue pour choisir un fichier excel
2/ Afficher une boite de dialogue avec le message "nom du fichier" et un espace pour récupérer le nom ( par exemple "FichierTest")
3/ Afficher une boite de dialogue avec le message " nombre de ligne a insérer" et un espace pour récupérer le nombre de ligne (par exemple 3)
4/ ouvrir le fichier excel sélectionné en étape 1
5/ A partir de la ligne 2, insérer sous chaque ligne le nombre de ligne saisie en étape 3 (dans l'exemple, inserer 3 lignes sous chaque ligne existante)
6/ Enregistrer le fichier au format CSV avec le nom défini en étape 2 (dans l'exemple FichierTest.csv )

D'avance merci pour votre aide

 

[sunguess]

Re : Macro : insertion de ligne

Re-bonjour,

J’ai finalement réussi à faire toutes les étapes sauf la 5 (au-delà de mes connaissances en VBA).

Je vous joins 2 fichiers :
1/ la macro
2/ un fichier exemple

Mode opératoire :
Lancer la macro et choisir le fichier exemple
Rentrer les paramètres suivants :
Nom de fichier : ce que vous voulez
Nombre de ligne : 5
Client : HO

Dans le fichier exemple, il me reste alors à insérer 4 lignes vierges (Nombre de ligne : 5 – 1) en dessous des lignes 7 à 11. Mais je ne sais pas comment procéder.

Quelqu’un sait il comment faire ?
D’avance merci beaucoup pour votre aide.

 

[sunguess]

Re : Macro : insertion de ligne

Désolé pour le dérangement mais j'ai réussi !

Pour ceux que ca intéresse :

Dim I As Long
For I = [A65000].End(xlUp).Row To 8 Step -1
    Rows(I).Resize(nbligne - 1).Insert
Next I