Liste Données Manquantes en VBA

[MJ13]

Bonjour à tous

J'ai un fichier avec une colonne et des valeurs qui ne se suivent pas.

Comment avoir dans la colonne 2 les chiffres qui manquent (voir fichier).

Merci d'avance 🙂.

 

[néné06]

Re : Liste Données Manquantes en VBA

Bonjour MJ13

Regardes si cela convient ?

A+

 

[Modeste geedee]

Re : Liste Données Manquantes en VBA

Bonsour® MJ123

sourire...
sans macro

en cellule B1
=SI(A2=A1+1;"";A1+1&SI(A2-A1>2;" à " &A2-1;""))

recopier vers le bas autant que nécessaire

nb:
le nombre de lignes utilisées reste inchangé

 

[BOISGONTIER]

Re : Liste Données Manquantes en VBA

Bonsoir,

Sub manquants()
  a = Range("A1:A" & [A65000].End(xlUp).Row)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In a
    MonDico1(c) = ""
  Next c
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For i = Application.Min(a) To Application.Max(a)
    If Not MonDico1.exists(i) Then MonDico2(i) = ""
  Next i
  [C1].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub

JB

 

[MJ13]

Re : Liste Données Manquantes en VBA

Bonjour Néné, Modeste, Jacques

Merci beaucoup pour tous ces codes. Ils sont très bien et fonctionnent à merveille 🙂.

Bon Week-end .🙂