XL 2019 Numeroter une listbox en partant d'un textbox

[escudo]

Bonjour,tout le monde
J'ai besoin de votre aide .je veux numeroter une listbox en partant d'un textbox qui contient le dernier numero d'une celulle de feuille de calcul + 1 le code que j'utilise numerote la listbox avec le numero affiche dans le textbox qui se repete dans une boucle moi je veux commencer la numerotation a partir du numero dans le textbox
Vous trouverez .

 

[vgendron]

hello

je crois que c'est pourtant clair !!

 

[escudo]

Non ca marche pas votre code.
Merci comme meme

 

[vgendron]

deux riz hein

 

[youky(BJ)]

Bonjour tous,
Peut être comme ceci.
Bruno

Sub ID()
Dim num%,k%
num=Val(TextBox1)' adapter N° textbox
For k= 1 to 10'adapter 10 Nbre lignes
ListBox1.Additem num 'adapter N° listbox
num=num+1
Next

 

[escudo]

Bonjour tous,
Peut être comme ceci.
Bruno

Sub ID()
Dim num%,k%
num=Val(TextBox1)' adapter N° textbox
For k= 1 to 10'adapter 10 Nbre lignes
ListBox1.Additem num 'adapter N° listbox
num=num+1
Next

Ca marche nickel.
Merci bcp.

 

[escudo]

Le code de youky marche tres bien sauf que les numeros de lignes listbox ne changent pas avec le changement de listbox de reference
Sub ID()
Dim num%,k%
num=Val(TextBox1)' adapter N° textbox
For k= 0 to listbox1.listcount-1
ListBox9.Additem num 'adapter N° listbox
num=num+1
Next
si textbox1.value= 6 et la listbox1 contient 5 lignes la numerotation de la listbox9 demare a partir du 6 et se termine avec 10 là c est bien mais lorque la listbox1 contient 10 lignes la numertation de la listbox9 reste la meme càd il commence de 6 à 10
Meme si je met le code dans listbox1-change ca marche pas
Merci d avance pour votre aide

 

[youky(BJ)]

Voici un fichier en essai
Il aurait été bon de le faire vous même cela évite de jouer aux devinettes.
Si c'est pas bon indiquez les résultats attendus car c'est flou.
Bruno

 

[escudo]

Votre fichier a vraiment été une grande aide pour moi.
PROBLEME RESOLU.
MERCI ENCORE.