recherche valeurs manquantes

[brutor2]

[Résolu] recherche valeurs manquantes

Bonsoir à tous,

Malgré de multiples recherches sur le forum, je ne trouve pas la réponse à mon problème...
J'espère être assez clair dans ma demande

J'ai dans une colonne A une série de nombre non identiques et je voudrai faire apparaître dans la colonne B les nombres manquants.
Comment récupérer automatiquement ces valeurs ?

Exemple

Col A ColB
1 2
3 5
4 10
6 12
7
8
9
11
13
etc.. (les chiffres peuvent aller jusqu'à 100)

Merci de votre aide.

Brutor2

 

[kjin]

Re : recherche valeurs manquantes

Bonsoir,
Si les nombres sont dans la colonneA

Sub Nombre()
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending
derlign = Range("A65000").End(xlUp).Row
A = 1
B = 1
i = 1
Do
    Do
        If Cells(A, 1) > i Then
            Cells(B, 2) = i
            B = B + 1
        End If
        i = i + 1
    Loop Until Cells(A, 1) = i - 1
    A = A + 1
Loop Until A = derlign + 1

End Sub

A+
kjin

 

[BOISGONTIER]

Re : recherche valeurs manquantes

Bonsoir,

Sub Manque()
  mini = Application.Min([A:A])
  maxi = Application.Max([A:A])
  k = 1
  For i = mini To maxi
    If IsError(Application.Match(i, [A:A], 0)) Then
      Cells(k, 2) = i
      k = k + 1
    End If
  Next i
End Sub

JB

 

[brutor2]

Re : recherche valeurs manquantes

Bonsoir kjin, bonsoir BOISGONTIER, bonsoir le forum,

Merci à tous les deux pour vos réponses qui fonctionnent super bien et me donne le résultat escompté.

Mais je voudrais abuser de vos connaissances existe-t-il une formule qui donne le même résultat ?

Merci de votre attention et bonne soirée.

Brutor2

 

[Monique]

Re : recherche valeurs manquantes

Bonjour,

Un essai par formule
Formule matricielle, à valider par ctrl, maj et entrée

 

[BOISGONTIER]

Re : recherche valeurs manquantes

Bonjour,

Voir PJ

-Sélectionner C2:C7
=PETITE.VALEUR(SI(ESTNA(EQUIV(LIGNE(INDIRECT(MIN(Liste)&":"&MAX(Liste)));Liste;0));LIGNE(INDIRECT(MIN(Liste)&":"&MAX(Liste))));LIGNE(INDIRECT("1:"&LIGNES(LIGNE(INDIRECT(MIN(Liste)&":"&MAX(Liste)))))))

Valider avec Maj+trl+entrée

http://boisgontierjacques.free.fr/fichiers/Matriciel/MatComplement.xls

JB
Formation Excel VBA JB

 

[brutor2]

Re : recherche valeurs manquantes

Bonjour Monique, BOISGONTIER et le forum,

Une seule chose à dire, vous êtes tout simplement géniaux...

Merci encore à tous de votre attention et de votre aide.

Bonne journée

Brutor