Insertion De Lignes

[argon1515]

Bonjour à tous
Je cherche à completer une macro, j'ai un fichier dans lequel il manque pour certains jours :
1, 2 ou 3 produits il faut dans ce cas inserer 1, 2 ou 3 lignes.
Je ne sais pas comment proceder.
Je joins un fichier comme exemple

 

[Hoareau]

Re : Insertion De Lignes

Bonjour

Voila 2 macros pour insérer des lignes, la première est de Gord Dibben MS Excel MVP, la deuxième je ne sais pas. En espérant que cela te serve

Insère une 10 lignes vides après chaque ligne non vide.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 10
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP


>>>>>> 2 ème réponse

Insère une ligne vide toutes les lignes non vides


here is something that might help. paste this code in a standard module and
run it.

Sub InsertRows_2()

Dim r1 As Range
Dim r2 As Range

Range("A6").Select
Set r1 = Range("A6") 'assuming you have a header row
Do While Not IsEmpty(r1)
Set r2 = r1.Offset(4, 0)
ActiveCell.EntireRow.Insert
r1.Offset(4, 0).Select
Set r1 = r2
Loop

End Sub

 

[argon1515]

Re : Insertion De Lignes

Merci pour ces quelques lignes de code qui pourrons me servir mais le probléme posé doit étre ardu car les réponses sont inexistante a part la tienne
🙁
A+