Cherche macro insertion de ligne + copie

[assniok]

bonjour a tous,

je cherche a faire une macro qui serait capable d'inserer une ligne sur deux, en copiant la ligne precedente et en modifiant une cellule (toujours la meme) avec un mot qui sera toujours le meme...

pas simple a expliquer, c'est pourquoi je joint un exemple comprenant 2 onglets, l'onglet 1 qui correspond au fichier de depart, et l'onglet 2 correspond au resultat de la macro que je cherche a faire...

une idée ?

 

[Guest]

Re : Cherche macro insertion de ligne + copie

Hello Assniok,

Dans tes fichiers essaie également de joindre tes tentatives de macros.

A+

 

[assniok]

Re : Cherche macro insertion de ligne + copie

disons que pour cet exemple, je n'arrive a rien... la seule macro que j'ai reussi a faire c'est d'inserer une ligne seulement ^^

Sub insertion_ligne_copie()
'
' insertion_ligne_copie Macro
'

'
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("A2:L2").Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Range("E3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "test"
    Range("E4").Select
End Sub

mais ça ne fonctionne pas....

 

[assniok]

Re : Cherche macro insertion de ligne + copie

faudrait que je puisse faire tourner ce code en boucle en le faisant passer une ligne a chaque fois... mais je ne vois pas comment faire 🙁

 

[Guest]

Re : Cherche macro insertion de ligne + copie

Re Bonjour,

Essaye ceci:

Sub Test()
Dim Derligne As Long, ligne As Long
With Sheets("1")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    
    For ligne = Derligne To 2 Step -1
    
        With .Range("A" & ligne & ":L" & ligne)
            .Copy
            .Insert xlShiftDown
            .Cells(1, 5) = "Mot arrivée"
        End With
    Next ligne
End With
Application.CutCopyMode=False
End Sub

A+

 

[assniok]

Re : Cherche macro insertion de ligne + copie

merci ça fonctionne parfaitement (comme d'habitude...)

mais comment connaissez vous toutes ces fonctions que je ne trouve jamais facilement ??