XL 2019 Numeroter une listbox en partant d'un textbox

vgendron

XLDnaute Barbatruc

• 1 Septembre 2023

• #2

hello

je crois que c'est pourtant clair !!

 

Vote positif 0 Vote négatif

E

escudo

XLDnaute Nouveau

• 1 Septembre 2023

• #3

Non ca marche pas votre code.
Merci comme meme

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 1 Septembre 2023

• #4

deux riz hein

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 2 Septembre 2023

• #5

Bonjour tous,
Peut être comme ceci.
Bruno

VB:

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

 

Vote positif 0 Vote négatif

Solution

E

escudo

XLDnaute Nouveau

• 2 Septembre 2023

• #6

youky(BJ) à dit:

Bonjour tous,
Peut être comme ceci.
Bruno

VB:

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

Cliquez pour agrandir...

Ca marche nickel.
Merci bcp.

 

Vote positif 0 Vote négatif

E

escudo

XLDnaute Nouveau

• 2 Septembre 2023

• #7

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Septembre 2023

• #8

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

 

Pièces jointes

• ClasseurEssai.xlsm

  15.3 KB · Affichages: 11

Vote positif 0 Vote négatif

E

escudo

XLDnaute Nouveau

• 4 Septembre 2023

• #9

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

 

Vote positif 0 Vote négatif