Sujet Précédent Sujet Suivant

Formule excel

Résolu
abn279 Messages postés 20 Statut Membre -  
abn279 Messages postés 20 Statut Membre -
Bonjour à tous!
En colonne A j'ai des nombres compris entre 001 et 999 .Exemple
584
10
592
401
etc.
Pour savoir les nombres qui manquent je dois trier et compter. Par exemple si 1 est suivi de 4 je saurai que c'est 2 et 3 qui manquent; mais cette démarche ne me semble pas pratique et ça me prend beaucoup de temps. Ainsi est ce que je pourrais avoir en colonne B une formule qui me permet d'afficher les nombres manquant en colonne A?
Cordialement.

3 réponses

Réponse 1 / 3
Raymond PENTIER Messages postés 59043 Date d'inscription   Statut Contributeur Dernière intervention   17 467
 
Non ; ce n'est pas évident !
Si tu expliquais le contexte, afin qu'on sache de quoi il s'agit, on pourrait te suggérer d'autres approches ...
0
abn279 Messages postés 20 Statut Membre
 
Bonjour raymond peut-être avec ce fichier joint vous comprendrez le contexte.
https://www.cjoint.com/c/FCewVVoJIlM
0
Réponse 2 / 3
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 319
 
Bonjour

Les numéros de ta colonne A sont ils toujours regroupés et triés dans l'ordre croissant (ou décroissant) ?
Pourquoi commencer par zéro alors que tu demandes entre 1 et 999 ?
 Michel
0
abn279 Messages postés 20 Statut Membre
 
bonjour,
Ils sont triés dans l'ordre croissant ; C'est que je les ai extraites sur une base de donnée. Mais ce sont les no compris entre 001 à 999 qui m’intéresse. Excuse je devais les enlever.
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 319 > abn279 Messages postés 20 Statut Membre
 
avec une macro (durée instantanée): sur 30000 lignes ,bonjour par formules, qui + est apparemment matricielles ! 

Option Explicit
'-----------------------------------
Sub numéros_manquants()
Dim Derlig As Long, T_colA, T_colB, Cpta As Long, Cptb As Integer, Diff As Integer, Inc As Integer

    Application.ScreenUpdating = False
    Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
    T_colA = Application.Transpose(Range("A2:A" & Derlig))
    Range("B2:B1000000").Clear
    ReDim T_colB(1 To UBound(T_colA))
   
    For Cpta = 2 To UBound(T_colA)
        If T_colA(Cpta) - T_colA(Cpta - 1) > 1 Then
                Diff = T_colA(Cpta) - T_colA(Cpta - 1)
                For Inc = 1 To Diff - 1
                    Cptb = Cptb + 1
                    T_colB(Cptb) = T_colA(Cpta - 1) + Inc
                Next
        End If
    Next
    Range("B2").Resize(UBound(T_colB), 1) = Application.Transpose(T_colB)
End Sub


ton classeur en retour
http://www.cjoint.com/c/FChjNxLK2oN
0
abn279 Messages postés 20 Statut Membre > michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention  
 
merci michel-m ça marche même si je ne sais comment car je ne connais pas grand chose en vba.
encore merci !!
0
Réponse 3 / 3
JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
 
Bonsoir à tous,

de ce que j'ai compris :

si tes données sont en $A$3:$A$1500 (je suppose qu'il y a des répétitions donc).
si en $C$2 tu calcules le nombre de valeurs non trouvées avec la formule 
=999-SOMMEPROD(1/NB.SI($A$3:$A$1500;$A$3:$A$1500))


alors, en $B$3 tu saisis : 
=SI(LIGNE()-2<=C$2;PETITE.VALEUR(SI(ESTERREUR(EQUIV(LIGNE($1:$999);$A$3:$A$1500;0));LIGNE($1:$999);9^9);LIGNE()-2);"")
que tu valides par CTRL+MAJ+ENTER.
tu recopies ensuite cette formule jusqu'en $B$1001 (pour le cas où tu aurais 999 valeurs manquantes)

j'ai mis une cellule intermédiaire en $C$2 pour accélérer le calcul.

cordialement
-1
abn279 Messages postés 20 Statut Membre
 
Bonsoir à tous!
je pense que je me suis mal exprimé; je vais envoyé fichier Cjoint comme exemple: https://www.cjoint.com/c/FCewVVoJIlM
Voilà !!
0