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
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