Inserer un ligne et copier les valeurs de la cellule du dessus

[chwichwe]

Bonjour (encore moi)

Je ne suis pas sure de mon code :
Je souhaite inserer une ou plusieurs lignes sous des lignes dont la valeur de la cellule A1 contient un caractere special (type ;), ou 2 lignes si il y a 2 caratères ... et 0 si il n'y en a pas

2/ En plus, les lignes devront se dupliquer en copiant la valeur du dessus

merci de votre aide

 

[Minick]

Re : Inserer un ligne et copier les valeurs de la cellule du dessus

Ou qu'il est ton code dont tu n'es pas sure??

Pas certain d'avoir compris ton truc.
Un petit fichier peut etre...

 

[kiki29]

Re : Inserer un ligne et copier les valeurs de la cellule du dessus

Salut, qqch comme ceci , à adapter sans doute

Option Explicit

Sub Tst()
Dim i As Long, LastRow As Long
Dim Nb As Integer, Ar() As String, s As String
    Application.ScreenUpdating = False
    LastRow = ShTest.Range("A" & Rows.Count).End(xlUp).Row
    For i = LastRow To 1 Step -1
        s = ShTest.Range("A" & i)
        Ar = Split(s, ";")
        Nb = UBound(Ar)
        If Nb > 0 Then
            With ShTest
                .Rows(i + 1 & ":" & i + Nb).Insert Shift:=xlDown
                .Range("A" & i).Copy
                .Range("A" & i + 1 & ":A" & i + Nb).PasteSpecial Paste:=xlPasteValues
            End With
        End If
    Next i
    Application.ScreenUpdating = True
End Sub