Insertion de lignes

job75

XLDnaute Barbatruc

• 29 Mars 2010

• #2

Re : Insertion de lignes

Bonjour chrisdu73,

chrisdu73 à dit:

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

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 29 Mars 2010

• #3

Re : Insertion de lignes

Effectivement une petite boulette de ma part.
32 corriger

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mars 2010

• #4

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 :

Code:

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+

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 29 Mars 2010

• #5

Re : Insertion de lignes

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mars 2010

• #6

Re : Insertion de lignes

Re,

chrisdu73 à dit:

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

Cliquez pour agrandir...

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

Alors on peut écrire plus simplement :

Code:

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+

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 29 Mars 2010

• #7

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

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 30 Mars 2010

• #8

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:

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 30 Mars 2010

• #9

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 😕

 

Vote positif 0 Vote négatif