Rapport de message :*
 

suite d'un sujet "inserer et dupliquer des lignes"

Titre du sujet : suite d'un sujet "inserer et dupliquer des lignes"
par titidede74 le 24/07/2013 20:31:22

Bonjour,

J'ai lu et "compris" le sujet suivant :

http://www.mdf-xlpages.com/modules/ne ... iewtopic.php?topic_id=964

J'avais la meme demande à une exception pret, c'est à dire que je ne veux pas que la colonne D soit changée.

 

Sur excel j'ai donc saisie la macro suivante (enfin saisie, surtout copié et collé):

 

[Sub InsertAndCopy()
Dim Ligne As Long

For Ligne = 2 To Cells(Rows.Count, "A").End(xlUp).Row * 3 Step 3
 
  Rows(Ligne & ":" & Ligne + 1).Insert Shift:=xlDown
 
    Range(Cells(Ligne - 1, 1), Cells(Ligne - 1, 5)).AutoFill _
        Destination:=Range(Cells(Ligne - 1, 1), Cells(Ligne + 1, 5)), _
            Type:=xlFillCopy
           
Next Ligne

End Sub]

 

Je pense que ce qu'il faut modifier est dans la ligne RANGE mais je ne sais pas encore comment faire.

Je compte me former un peu dans les macros histoire de me simplifier la vie dans le cabinet d'expert comptable dans lequel je suis.

A noter que les personne avant moi faisait insertion une par une et dans chaque ligne...

 

C'est assez urgent car demain il faudrait que j'ai fini...

 

NB : si l'option est possible je souhaiterai que dans les deux lignes crée, colonne D apparaissent:

ligne 1 crée : 7060100

ligne 2 crée : 4457151