Hervé
XLDnaute Barbatruc
hop hop
dans une colonne j'ai des chiffres (jusque là tout va bien)
ces chiffres vont de 1 à 50 maxi (le 1 est sur le 50 peut changer)
ils sont classés dans un ordre aléatoire.
je cherche par formule à trouver le premier nombre qui ne soit pas immédiatement suivie (je sais c'est pas clair mais j'ai pas trouvé mieux)
un exemple ??? mais bien sur
en colonne : 5-9-2-1-8-3-4-7
le premier nombre non suivi est le 5 car le 6 n'est pas dans la liste.
a savoir que le nombre maxi est obligatoirement le dernier chiffre de la liste, dans la liste exemple le chiffre 10 ne peut pas etre le chiffre à trouver car 9 est le maxi
suis-je clair ?
un autre exemple ? c'est ma tourné
en colonne : 1-3-5-4-6
premier nombre =1 car le 2 n'est pas là (ce qui me rend triste d'ailleurs), 7 et suivant ne peuvent pas etre le chiffre à trouver car 6 est le max
auriez vous une formule magique svp ?
pas de vba ca je sais faire a l'aide d'une simple boucle for to du style :
d'avance merci
a plus
dans une colonne j'ai des chiffres (jusque là tout va bien)
ces chiffres vont de 1 à 50 maxi (le 1 est sur le 50 peut changer)
ils sont classés dans un ordre aléatoire.
je cherche par formule à trouver le premier nombre qui ne soit pas immédiatement suivie (je sais c'est pas clair mais j'ai pas trouvé mieux)
un exemple ??? mais bien sur
en colonne : 5-9-2-1-8-3-4-7
le premier nombre non suivi est le 5 car le 6 n'est pas dans la liste.
a savoir que le nombre maxi est obligatoirement le dernier chiffre de la liste, dans la liste exemple le chiffre 10 ne peut pas etre le chiffre à trouver car 9 est le maxi
suis-je clair ?
un autre exemple ? c'est ma tourné
en colonne : 1-3-5-4-6
premier nombre =1 car le 2 n'est pas là (ce qui me rend triste d'ailleurs), 7 et suivant ne peuvent pas etre le chiffre à trouver car 6 est le max
auriez vous une formule magique svp ?
pas de vba ca je sais faire a l'aide d'une simple boucle for to du style :
Code:
Dim pl As Range
Dim i As Byte
Set pl = Range("a1:a7")
For i = 1 To 7: pl(i) = Array(2, 3, 5, 1, 4, 6, 8)(i - 1): Next i
For i = 1 To Application.WorksheetFunction.Max(pl)
If pl.Find(i) Is Nothing Then MsgBox i - 1: Exit Sub
Next i
d'avance merci
a plus