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

J'ai bidouillé en intervertissant les deux colonnes et en changeant le "5" par le "4" dans ma commande.

J ai reussi pour on option de faire apparaitre dans les nouvelles lignes les numeros 706100 et 4457151 (voir fin de mon post). Sur une nouvelle macro j'ai saisie et deux fois les commandes suivantes:

Sub CopieAvecTrous()

Ecart = 3

ActiveCell.Copy

ActiveCell.Offset(Ecart, 0).Select

While UCase(ActiveCell.Value) <> "FINN"

  ActiveSheet.Paste

  ActiveCell.Offset(Ecart, 0).Select

Wend

End Sub

Mais maintenant je dois faire une autre commande qui me permettrait de copier et de coller la cellule

G4 en F4

h4 en f5

i4 en f6

Et ainsi de suite c'est à dire sur les lignes d'apres

G7 en F7

h7 en f8

i7 en f9

Jusqu à la fin de mon tableur saisie.

Est ce que qqn pourrait m'aider??