rechercher chiffres manquants dans liste et inserer ligne blanche

[sri75]

Bonjour, j'ai fait une macro qui recherche une rupture de continuité des chiffres dans une colonne et qui insere une ligne blanche quand elle trouve une rupture ( ex de 4 à 6 ).

je voudrais mettre une variante dans la macro pour quelle insere autant de ligne blanche qu'il y a de rupture :

ex je passe de 4 à 6 une ligne blanche

je passe de 4 à 7 deux lignes blanches etc....

merci pour votre avis, je poste mon fichier avec ma macro

 

[Gorfael]

Re : rechercher chiffres manquants dans liste et inserer ligne blanche

Salut sri75 et le forum
Si tu fais un fichier d'essai, fais qu'il serve à quelque chose !

Sub cherche()
Dim X As Long
Application.ScreenUpdating = False
X = 1
Do
    If Range("A" & X) <> Range("A" & X).Row And Range("A" & X) <> "" Then
            Rows(X).Insert
    End If
    X = X + 1
Loop Until X = Cells(Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = True
End Sub

Fait d'après ce que j'ai compris dans ton explication et de ton code.
A+

 

[sri75]

Re : rechercher chiffres manquants dans liste et inserer ligne blanche

désolé de ne pas avoir répondu plus tot, j'étais à l'étranger.

C'est exactement ce que je recherchais, merci beaucoup et bonne journée