Discussion :

[Ysae68]

Bonjour à tous,

J’ai une colonne remplie de chiffres allant de 1 à 10600, mais il peut y avoir des nombres manquant. J’aurais besoin de pouvoir lister ces nombres. Par exemple si j’ai 1 2 3 4 8 9, j’aimerais que dans la colonne d’à côté soit listés 5 6 7.

Il y a deux contraintes :

- Il peut y avoir des doublons ou plus dans la liste (par exemple 1 2 2 3 4 5 5 5 6)

- Les plages de nombres manquants peuvent être très variables, ça peut aller de un nombre à une vingtaine.

J’ai déjà trouvé plusieurs macros sur ce forum qui traitent de problème, mais aucune ne fonctionnaient pour mon problème.

Une idée, un début de piste ? Merci d’avance !

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
Dim N As Long, i As Long, j As Long
 
With Worksheets("Feuil1")
    N = Application.Max(.Range("A:A"))
    j = 1
    For i = 2 To N - 1
        If Application.CountIf(.Range("A:A"), i) = 0 Then
            j = j + 1
            .Cells(j, 2) = i
        End If
    Next i
End With
End Sub

[Ysae68]

Parfait ! Merci beaucoup, voila qui va bien me simplifier la tâche

[mercatog]

En fait le i commence à 1

Remplace la ligne par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i=1 to N-1

[Ysae68]

Ok c'est noté, merci !