inserer une ligne comprenant un texte en boucle

ricoharpe · 5 Janvier 2014

bonsoir
je cherche a ajouter 3 cases a chaques lignes comportant " dans chaque cases, apres recherche j'en suis arrivé la
j'arrive a ajouter une ligne comme je veut mais pas a y coller mon texte

voila ce que j'ai fait
je trouve pas mon erreur
merci

Sub aaajouterligne()

Dim x As Integer
derniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = 939 To 3 Step -1

Range("BM7:BO7").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-3
Rows(x).Selection.Insert Shift:=xlDown

Cells(x + 0, 1) = Cells(x + 1, 1)
Cells(x + 1, 1) = Cells(x + 1, 1)

Next

End Sub

Isab · 5 Janvier 2014

Re : inserer une ligne comprenant un texte en boucle

Bonsoir

comme ceci peut-être:

Code:

Sub aaajouterligne()

Dim x As Integer
derniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = 939 To 3 Step -1

Range("BM7:BO7").Copy
ActiveWindow.LargeScroll ToRight:=-3
Rows(x).Insert Shift:=xlDown

Cells(x + 0, 1) = Cells(x + 1, 1)
Cells(x + 1, 1) = Cells(x + 1, 1)


Next

End Sub

ricoharpe · 6 Janvier 2014

Re : inserer une ligne comprenant un texte en boucle

je viens d'essayer mais erreur 1004
probleme de taille de la zone de collage quin ecorrespond pas a celle de copiage

Isab · 6 Janvier 2014

Re : inserer une ligne comprenant un texte en boucle

Re

Mets ton fichier je comprendrai mieux ce que tu souhaites faire..
sur une feuille montre à la main sur quelques lignes le résultat attendu

merci

chez moi ta macro ne bug pas !!!

ricoharpe · 6 Janvier 2014

Re : inserer une ligne comprenant un texte en boucle

merci de ton aide
j'ai finalement reussi

Sub aaajouterligne()
Sheets("TRAVAIL").Select

Dim x As Integer
derniereLigne = ActiveSheet.UsedRange.Rows.Count
For x = 939 To 3 Step -1
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Rows(x).Select
Selection.Insert Shift:=xlDown

Cells(x + 0, 1) = Cells(x + 1, 1)
Cells(x + 1, 1) = Cells(x + 1, 1)

Next

End Sub

Isab · 6 Janvier 2014

Re : inserer une ligne comprenant un texte en boucle

Re _

contente pour toi.. mais peut-être que tu peux simplifier ton code ainsi ( il faut éviter les select etc...):

'il faut adapter le nom de la feuille

Code:

Sub cop()
Dim x As Long
For x = 939 To 3 Step -1
Sheets("Feuil3").Rows("1:1").Copy Destination:=Worksheets("Feuil3").Cells(x, 1)
Next
End Sub

bonne continuation

ricoharpe · 7 Janvier 2014

Re : inserer une ligne comprenant un texte en boucle

c'est vrai que c'est bien moins lourd, surtout que ca va faire parti d'une longue serie de macro succecive
merci

inserer une ligne comprenant un texte en boucle

ricoharpe

XLDnaute Nouveau

Isab

XLDnaute Occasionnel

ricoharpe

XLDnaute Nouveau

Isab

XLDnaute Occasionnel

ricoharpe

XLDnaute Nouveau

Isab

XLDnaute Occasionnel

ricoharpe

XLDnaute Nouveau

Discussions similaires