Je voudrais Insérer des lignes en fonction des valeurs se trouvant dans la colonne H ; La Macro ci après est celle que j'essaie sans succès . Pourriez vous me porter un pti coup d'aide
Merci
La Macro
Sub insererLig()
Dim lig As Long
Application.ScreenUpdating = False
For lig = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(lig, "B") <> Cells(lig + 1, "B") And Cells(lig, "H") > 0 Then
Rows(lig + 1).Resize(Cells(lig, "H")).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(lig + 1, 2).Resize(Cells(lig, "H"), 1) = Cells(lig, "B")
End If
Next lig
Application.ScreenUpdating = True
End Sub
Merci
La Macro
Sub insererLig()
Dim lig As Long
Application.ScreenUpdating = False
For lig = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(lig, "B") <> Cells(lig + 1, "B") And Cells(lig, "H") > 0 Then
Rows(lig + 1).Resize(Cells(lig, "H")).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(lig + 1, 2).Resize(Cells(lig, "H"), 1) = Cells(lig, "B")
End If
Next lig
Application.ScreenUpdating = True
End Sub