Insertion de lignes

[chrisdu73]

Bonjour,

Encore une fois je viens vers vous pour une petite leçon de VBA, j'ai un petit souci avec un fichier exporté à qui je voudrais rajouter quelques lignes à chaque fois identique.
Je m'explique

J’ai une macro qui fait de la mise en page.
Je voudrais avant le traitement rajouter 32 lignes en début du fichier à partir de la ligne 2 (identique au fichier joint)
Est ce possible en VBA de façon a automatisé cette saisie ?

 

[job75]

Re : Insertion de lignes

Bonjour chrisdu73,

Je voudrais avant le traitement rajouter 16 lignes en début du fichier à partir de la ligne 2 (identique au fichier joint)

J'en compte 32 dans le fichier joint. Que faire donc ??

A+

 

[chrisdu73]

Re : Insertion de lignes

Effectivement une petite boulette de ma part.
32 corriger

 

[job75]

Re : Insertion de lignes

Re,

La plage à copier étant dans le fichier "TOTO.xls" (qui doit être ouvert), activer le fichier et la feuille où l'on veut insérer les lignes et lancer cette macro :

Sub Insere()
Dim plage As Range, i As Byte
On Error Resume Next
Set plage = Workbooks("TOTO.xls").Sheets(1).[A2:H33] '1ère feuille du fichier "TOTO.xls"
If Err Then MsgBox "Ouvrez le fichier TOTO.xls": Exit Sub
For i = 1 To 32
[A2:H2].Insert xlDown
Next
plage.Copy [A2] 'copie la plage
End Sub

A+

 

[chrisdu73]

Re : Insertion de lignes

merci ca marche impeccable mais y aurait-il une autre solution sans ouvrir un fichier ?

 

[job75]

Re : Insertion de lignes

Re,

y aurait-il une autre solution sans ouvrir un fichier ?

Mettre la plage à copier en 1ère feuille du fichier contenant la macro.

Alors on peut écrire plus simplement :

Sub Insere()
Dim i As Byte
For i = 1 To 32
[A2:H2].Insert xlDown
Next
[COLOR="Red"]ThisWorkbook[/COLOR].Sheets(1).[A2:H33].Copy [A2] 'copie la 1ère feuille du fichier source
End Sub

A+

 

[chrisdu73]

Re : Insertion de lignes

Merci pour cette façon, ca fonctionne a merveille mais ca m'avance pas trop dans mon travail.
Je pensai que l'on pouvait créer ces lignes remplies en VBA, mais bon je ferai comme ca.
Merci encore pour votre aide si précieuse

Chris

 

[chrisdu73]

Re : Insertion de lignes

Merci a qui pourrait se pencher sur mon problème.
Apres essai, il n’est pas évident de procéder de cette façon, il faudrait que je puisse créer ces lignes directement en VBA.
Si quelqu'un pouvais m'aider :confuse:

 

[chrisdu73]

Re : Insertion de lignes

Merci a qui pourrait se pencher sur mon problème.
Apres essai, il n’est pas évident de procéder de cette façon, il faudrait que je puisse créer ces lignes directement en VBA.
Si quelqu'un pouvais m'aider 😕