inserer des lignes automatiquement

[papy83000]

Bonjour,

Je vais essayer de faire simple :

Un tableau avec 21000 lignes
Numérotées de 3047 à 29960

Constat : il manque des lignes dans la numérotation, en gros je passe de 3075 à 3750 dans la numérotation.

Question : je veux rajouter des lignes pour compléter mon tableau, que ma suite soit complète.
automatiquement bien sur, me taper 21000 lignes et rajouter manuellement dès fois 1 lignes des fois 10 des fois 56 etc...chaud et long

une idée please ...

 

[DoubleZero]

Re : inserer des lignes automatiquement

Bonjour à toutes et à tous,

Bienvenue sur XLD, papy83000.

...une idée please ...

Un fichier exemple, dépourvu de donnée confidentielle, s'il vous plaît...

A bientôt 🙂

 

[mapomme]

Re : inserer des lignes automatiquement

Bonsoir papy83000 et bienvenue sur XLD 🙂 , bonsoir DoubleZero 🙂,


Un essai avec une formule matricielle et des manip. Excel relativement simples. Tout est expliqué dans le fichier.

 

[klin89]

Re : inserer des lignes automatiquement

Bonsoir DoubleZero, mapomme, papy83000, le forum 🙂

En supposant tes données à partir de A1 et déjà triées.

Sub manquants()
Dim debut As Long, fin As Long, i As Long, a, e
    Application.ScreenUpdating = False
    debut = Range("a1").Value
    fin = Range("a" & Rows.Count).End(xlUp).Value
    With CreateObject("Scripting.Dictionary")
        For i = debut To fin
            .Item(i) = Empty
        Next
        a = Range("a1", Range("a" & Rows.Count).End(xlUp)).Value
        For Each e In a
            If .exists(e) Then .Remove e
        Next
        If .Count > 0 Then
            Range("a" & Rows.Count).End(xlUp)(2).Resize(.Count).Value = _
            Application.Transpose(.keys)
        End If
    End With
    With Range("a1").CurrentRegion
        .Sort key1:=Range("a1"), order1:=1, Header:=1
    End With
    Application.ScreenUpdating = True
End Sub

klin89