Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel listbox affecte de variable ??

listbox affecte de variable ??

2 réponses
Avatar
jessi
j'ai 24 listbox allant de listbox1 =E0 listbox24
et 24 variable NOM allant de ChoixNOM1 =E0 ChoixNOM24
JE SUIS OBLIGE D'ECRIRE 24 FOIS LE MEME CODE INCREMENTE DE=20
1 A 24 CHAQUE FOIS EX:

LstNOM1 =3D Range("B2").End(xlDown).Address=20
ListBox1.RowSource =3D "B2:" & LstNOM1
ListBox1.ListIndex =3D 0
........
ListBox24.RowSource =3D "B2:" & LstNOM1
ListBox24.ListIndex =3D 0

Range("F8").select
Index1 =3D ListBox1.ListIndex

ChoixNOM1 =3D ListBox1.List(Index1)
ActiveCell =3D ChoixNOM1 'variable NOM

ActiveCell.Offset(ROWOFFSET:=3D1, columnoffset:=3D0).Activate
.......
Index24 =3D ListBox24.ListIndex
ChoixNOM24 =3D ListBox24.List(Index24)
ActiveCell =3D ChoixNOM24
.

****************************

est-il possible en faisant une boucle FOR I=3D1 TO=20
24 .....NEXT I
d'affecter "I" par incrementation =E0
LstNOM, ListBox, Index, ChoixNOM
sous la forme
********
FOR I=3D1 TO 24

LstNOM & I =3D Range("B2").End(xlDown).Address=20
ListBox & I.RowSource =3D "B2:" & LstNOM & I
ListBox & I.ListIndex =3D 0
........
LstNOM & I.RowSource =3D "B2:" & LstNOM & I
ListBox & I.ListIndex =3D 0

Range("F8").select
Index & I =3D ListBox & I.ListIndex
ChoixNOM & I =3D ListBox & I.List(Index1)
ActiveCell =3D ChoixNOM & I 'variable NOM

ActiveCell.Offset(ROWOFFSET:=3D1, columnoffset:=3D0).Activate
.......
Index & I =3D ListBox & I.ListIndex
ChoixNOM & I =3D ListBox & I.List(Index1)
ActiveCell =3D ChoixNOM & I 'variable NOM

NEXT I

J'AI TOUT ESSAYE MAIS RIEN NE MARCHE=20
QUELQU'UN A T'IL UNE SOLUTION. MERCI
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Misange
--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour


"jessi" a écrit dans le message de
news:02f401c3900d$ebec91b0$
j'ai 24 listbox allant de listbox1 à listbox24
et 24 variable NOM allant de ChoixNOM1 à ChoixNOM24
JE SUIS OBLIGE D'ECRIRE 24 FOIS LE MEME CODE INCREMENTE DE
1 A 24 CHAQUE FOIS EX:

LstNOM1 = Range("B2").End(xlDown).Address
ListBox1.RowSource = "B2:" & LstNOM1
ListBox1.ListIndex = 0
........
ListBox24.RowSource = "B2:" & LstNOM1
ListBox24.ListIndex = 0

Range("F8").select
Index1 = ListBox1.ListIndex

ChoixNOM1 = ListBox1.List(Index1)
ActiveCell = ChoixNOM1 'variable NOM

ActiveCell.Offset(ROWOFFSET:=1, columnoffset:=0).Activate
.......
Index24 = ListBox24.ListIndex
ChoixNOM24 = ListBox24.List(Index24)
ActiveCell = ChoixNOM24
.

****************************

est-il possible en faisant une boucle FOR I=1 TO
24 .....NEXT I
d'affecter "I" par incrementation à
LstNOM, ListBox, Index, ChoixNOM
sous la forme
********
FOR I=1 TO 24

LstNOM & I = Range("B2").End(xlDown).Address
ListBox & I.RowSource = "B2:" & LstNOM & I
ListBox & I.ListIndex = 0
........
LstNOM & I.RowSource = "B2:" & LstNOM & I
ListBox & I.ListIndex = 0

Range("F8").select
Index & I = ListBox & I.ListIndex
ChoixNOM & I = ListBox & I.List(Index1)
ActiveCell = ChoixNOM & I 'variable NOM

ActiveCell.Offset(ROWOFFSET:=1, columnoffset:=0).Activate
.......
Index & I = ListBox & I.ListIndex
ChoixNOM & I = ListBox & I.List(Index1)
ActiveCell = ChoixNOM & I 'variable NOM

NEXT I

J'AI TOUT ESSAYE MAIS RIEN NE MARCHE
QUELQU'UN A T'IL UNE SOLUTION. MERCI
Avatar
Misange
Bonjour
http://www.excelabo.net/xl/controles.htm#bouclecontrole
for i= 1 to 24
Controls("listbox" & i).rowsource = gnagnagna...
Next i

PS on n'écrit pas en majuscules sur un forum à moins d'avoir envie de hurler
sur les lecteurs...

--
Misange http://www.excelabo.net
Attention disciplus a déménagé ! mettez vos favoris à jour


"jessi" a écrit dans le message de
news:02f401c3900d$ebec91b0$
j'ai 24 listbox allant de listbox1 à listbox24
et 24 variable NOM allant de ChoixNOM1 à ChoixNOM24
JE SUIS OBLIGE D'ECRIRE 24 FOIS LE MEME CODE INCREMENTE DE
1 A 24 CHAQUE FOIS EX:

LstNOM1 = Range("B2").End(xlDown).Address
ListBox1.RowSource = "B2:" & LstNOM1
ListBox1.ListIndex = 0
........
ListBox24.RowSource = "B2:" & LstNOM1
ListBox24.ListIndex = 0

Range("F8").select
Index1 = ListBox1.ListIndex

ChoixNOM1 = ListBox1.List(Index1)
ActiveCell = ChoixNOM1 'variable NOM

ActiveCell.Offset(ROWOFFSET:=1, columnoffset:=0).Activate
.......
Index24 = ListBox24.ListIndex
ChoixNOM24 = ListBox24.List(Index24)
ActiveCell = ChoixNOM24
.

****************************

est-il possible en faisant une boucle FOR I=1 TO
24 .....NEXT I
d'affecter "I" par incrementation à
LstNOM, ListBox, Index, ChoixNOM
sous la forme
********
FOR I=1 TO 24

LstNOM & I = Range("B2").End(xlDown).Address
ListBox & I.RowSource = "B2:" & LstNOM & I
ListBox & I.ListIndex = 0
........
LstNOM & I.RowSource = "B2:" & LstNOM & I
ListBox & I.ListIndex = 0

Range("F8").select
Index & I = ListBox & I.ListIndex
ChoixNOM & I = ListBox & I.List(Index1)
ActiveCell = ChoixNOM & I 'variable NOM

ActiveCell.Offset(ROWOFFSET:=1, columnoffset:=0).Activate
.......
Index & I = ListBox & I.ListIndex
ChoixNOM & I = ListBox & I.List(Index1)
ActiveCell = ChoixNOM & I 'variable NOM

NEXT I

J'AI TOUT ESSAYE MAIS RIEN NE MARCHE
QUELQU'UN A T'IL UNE SOLUTION. MERCI