Liste Données Manquantes en VBA

néné06

XLDnaute Accro

• 16 Mars 2012

• #2

Re : Liste Données Manquantes en VBA

Bonjour MJ13

Regardes si cela convient ?

A+

 

Pièces jointes

• Copie de ListeDonnéesManquantes.xls

  60 KB · Affichages: 58
• Copie de ListeDonnéesManquantes.xls

  60 KB · Affichages: 54
• Copie de ListeDonnéesManquantes.xls

  60 KB · Affichages: 57

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 16 Mars 2012

• #3

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é

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 16 Mars 2012

• #4

Re : Liste Données Manquantes en VBA

Bonsoir,

Code:

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

 

Pièces jointes

• Copie de ListeDonnéesManquantes.xls

  79 KB · Affichages: 52
• Copie de ListeDonnéesManquantes.xls

  79 KB · Affichages: 45
• Copie de ListeDonnéesManquantes.xls

  79 KB · Affichages: 51

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 16 Mars 2012

• #5

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 .🙂

 

Vote positif 0 Vote négatif