Insertion de ligne dans une liste

Bonjour

j'ai une liste de référence que 'jai besoin de recopier dans SAP, sauf que celui ne prend pas tout car une ligne sur 2 est en gris

Est il possible d'écrire une macro dans excel pour inserer automatiquement une ligne à blanc à toutes les ligne saisies je ne me vois pas passer plus 600 lignes et + une par une pour faire mon insertion de ligne

1002869 MAKC POLY LIDER PRIX 80 A4 L56

1011861 MAKC PAP TECNO COL LAS A4 120G L53

1019991 MAKC POLY RAINBOW 80 A4 L57

1046895 MAKC PAP CALIPAGE EXP.+ECOFL. 80 A4 L56

1073299 MAKC POLY REY HAUTE QUALITE 90 A4 L58

1073313 MAKC POLY REY HAUTEQUALITE 100 A4 L58

ci joint le fichier ou j'ai copié que 50 lignes

je vous remerci d'avance de votre réponse

philippe 87

Bonjour philippe87,

Ouvrez un nouvel onglet et collez y cette formule

=SI(EST.PAIR(LIGNE());INDIRECT("F1.A"&LIGNE()/2;1);"")

Voyez la pièce jointe

11philippe87.xlsx (6.26 Ko)

Bonjour,

Une tentative avec VBA.

Je pense que des personnes plus avisées vont intervenir !?

Cdlt.

Public Sub InsertRows()
Dim tbl, arr() As String, i As Long, k As Long
    tbl = ActiveSheet.Cells(1).CurrentRegion
    ReDim arr(1 To UBound(tbl) * 2, 1 To 2)
    k = 1
    For i = 1 To UBound(tbl)
        arr(k, 1) = tbl(i, 1)
        arr(k, 2) = tbl(i, 2)
        arr(k + 1, 1) = vbNullString
        arr(k + 1, 2) = vbNullString
        k = k + 2
    Next i
    ActiveSheet.Cells(1).Resize(k, 2).Value = arr
End Sub

bonjour

je viens de fairele test dans mon fichier avec le code de Jean Eric, c'est ok pour moi.

meric encore pour votre aide

cordialement

philippe87

Rechercher des sujets similaires à "insertion ligne liste"