XL 2010 Insérer une ligne sous chaque cellules non vide

[ssonap]

Bonjour membres du forum,

Je suis à la recherche d'un programme me permettant d’insérer une ligne à chaque fois qu'une cellule de la colonne F a une valeur.
Je souhaite insérer cette ligne sous cette valeur.

Merci de votre aide.

 

[piga25]

Bonjour,

Un essai avec ceci :

Option Explicit
Sub Test()
Dim i As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    With Worksheets("Feuil1") 'Nom de feuille à adapter
       For i = .Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1
            If .Range("F" & i).Offset(1).Value <> "" And .Range("F" & i).Value <> "" Then
                .Range("A" & i).Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            End If
        Next i
    End With
    Application.Calculation = xlAutomatic
End Sub

 

[ssonap]

Bonjour,

Merci, ça m'a beaucoup aidé !

Cordialement