recherche valeurs manquantes

K

kjin

XLDnaute Barbatruc

• 24 Mars 2009

• #2

Re : recherche valeurs manquantes

Bonsoir,
Si les nombres sont dans la colonneA

Code:

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

 

Pièces jointes

• Brutor.xls

  23.5 KB · Affichages: 194

Dernière édition: 24 Mars 2009

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 24 Mars 2009

• #3

Re : recherche valeurs manquantes

Bonsoir,

Code:

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

 

Vote positif 0 Vote négatif

B

brutor2

XLDnaute Junior

• 24 Mars 2009

• #4

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 25 Mars 2009

• #5

Re : recherche valeurs manquantes

Bonjour,

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

 

Pièces jointes

• ValeursManquantesBrutor.zip

  3 KB · Affichages: 218

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Mars 2009

• #6

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

 

Pièces jointes

• MaComplement.xls

  32.5 KB · Affichages: 191

Dernière édition: 27 Mars 2009

Vote positif 0 Vote négatif

B

brutor2

XLDnaute Junior

• 25 Mars 2009

• #7

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

 

Vote positif 0 Vote négatif