rechercher chiffres manquants dans liste et inserer ligne blanche

sri75

XLDnaute Occasionnel
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
 

Fichiers joints

Gorfael

XLDnaute Barbatruc
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 !
Code:
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

XLDnaute Occasionnel
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas