Salut @Xtof@, re le Fil, le Forum
bravo @Xtof@
Je ne sais pas du tout si çà va servir à Ti-Juju, mais tu t'es bien amusé sur ce truc là !!
Remarques à la Volée :
(-) Je ne sais pas si tu as vu mais tu laisses la validation de saisi acceptable pour l'Ajout Série d'une valeur inférieur en TextBox1 à celle de la TextBox2, ce qui me semble anormal puisque on peut avour un "Start" à 500 et un "End" à 1... (enfin je ne sais pas ce que veut Ti-Juju... mais)
(-) Les CommandButtons "CmdSerialAdd" (par exemple) pourraient être Default = True pour le confort d'utilisation.
(-) Lorque l'on commence à nommer les Controls, ils faut essayer de tous les nommer...
Mais ce n'est vraiment pas bien grave tout çà, tu as bien trouvé de très bonnes astuces :
(+) C = .Range("A1:AC1").Find(What:=ComboBox1.Value, LookAt:=xlWhole).Column
et définir ta dernière ligne ensuite avec ce C...
(+) Check = Evaluate("sumproduct((" & .Range(Cells(3, C), Cells(L, C)).Address & "<=" & _
TextBox1 & ")*(" & .Range(Cells(3, C + 1), Cells(L, C + 1)).Address & ">=" & TextBox1 & "))")... Pas mal du tout !
Pour le Pass, je sais où tu as trouvé çà... Héhéhé
Enfin voilà, bravo @Xtof@ que de chemin depuis certains Fils où tu n'avais pas encore mis de arobases à ton nom !
Bonne Continuation
@+Thierry