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.value ?

Listbox.value ?

10 réponses
Avatar
Didier
Bonjour
pourquoi cette syntaxe ne fonctionne pas correctement ?
Merci
Didier

ActiveCell.Offset(0, 1) = ListBox1.Value
Signaler un problème avec ce contenu

10 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
AV
Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV
Avatar
Didier
Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV




Avatar
AV
TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value
lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox


Essaye en précisant le nom de la feuille

AV

Avatar
Pounet95
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV








Avatar
Didier
Bonsoir Pounet95

au départ, je sélectionne dans la listbox un élément.
Après validation, cela envoi dans ma feuille de calcul l'élément.
Lorsque je veux modifier l'élément qui se trouve sur la feuille, dans mon
userform j'ai un initialize qui est censé me remettre les éléments d'origine
Merci
j'espère être clair ?


"Pounet95" a écrit dans le message de news:
%
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV











Avatar
Didier
Bonsoir, je laisse tomber
je mets à la place un combobox
Merci
Didier

"Pounet95" a écrit dans le message de news:
%
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV











Avatar
Pounet95
Re,
Désolé, je ne comprends pas.
Que veux-tu faire exactement en mettant
ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?
Veux-tu que l'élément correspondant de la liste soit sélectionné ?
D'où vient la liste de chacun des ListBox ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:
%
Bonsoir Pounet95

au départ, je sélectionne dans la listbox un élément.
Après validation, cela envoi dans ma feuille de calcul l'élément.
Lorsque je veux modifier l'élément qui se trouve sur la feuille, dans mon
userform j'ai un initialize qui est censé me remettre les éléments
d'origine
Merci
j'espère être clair ?


"Pounet95" a écrit dans le message de news:
%
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV















Avatar
Didier
Bonsoir Pounet95
En fait, je souhaite que lorsque je lance mon userform,
Il y ait dans le 1er listbox Activecell.Offset(0,1).Value
dans le 2ème Activecell.Offset(0,2).Value
j'ai donc mis dans l'initialize cela :

ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?

Veux-tu que l'élément correspondant de la liste soit sélectionné ?
Oui

D'où vient la liste de chacun des ListBox ?
Cette liste provient d'une feuille de calcul :

liste que j'ai mis dans le Rowsource

Merci
Didier

"Pounet95" a écrit dans le message de news:

Re,
Désolé, je ne comprends pas.
Que veux-tu faire exactement en mettant
ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?
Veux-tu que l'élément correspondant de la liste soit sélectionné ?
D'où vient la liste de chacun des ListBox ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:
%
Bonsoir Pounet95

au départ, je sélectionne dans la listbox un élément.
Après validation, cela envoi dans ma feuille de calcul l'élément.
Lorsque je veux modifier l'élément qui se trouve sur la feuille, dans mon
userform j'ai un initialize qui est censé me remettre les éléments
d'origine
Merci
j'espère être clair ?


"Pounet95" a écrit dans le message de news:
%
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans les
listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV


















Avatar
Pounet95
Re,

J'ai testé ceci sur un usf avec 2 listbox.
le listbox1 a la propriété Rowsource égale à Liste
le listbox2 a la propriété Rowsource égale à Liste2
dans la feuille nommée x les plages liste et liste2 sont contigües
liste ¡:A10
liste2±:B10

Private Sub UserForm_Initialize()
Sheets("x").Activate
ListBox1.Value = ActiveCell.Value
ListBox2.Value = ActiveCell.Offset(0, 1).Value
End Sub


Si la cellule sélectionnée est dans liste, l'affectation se fait bien et les
éléments correspondants
sont sélectionnés dans chacune des listes.

Est-cela que tu voulais ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:
%
Bonsoir Pounet95
En fait, je souhaite que lorsque je lance mon userform,
Il y ait dans le 1er listbox Activecell.Offset(0,1).Value
dans le 2ème Activecell.Offset(0,2).Value
j'ai donc mis dans l'initialize cela :

ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?

Veux-tu que l'élément correspondant de la liste soit sélectionné ?
Oui

D'où vient la liste de chacun des ListBox ?
Cette liste provient d'une feuille de calcul :

liste que j'ai mis dans le Rowsource

Merci
Didier

"Pounet95" a écrit dans le message de news:

Re,
Désolé, je ne comprends pas.
Que veux-tu faire exactement en mettant
ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?
Veux-tu que l'élément correspondant de la liste soit sélectionné ?
D'où vient la liste de chacun des ListBox ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:
%
Bonsoir Pounet95

au départ, je sélectionne dans la listbox un élément.
Après validation, cela envoi dans ma feuille de calcul l'élément.
Lorsque je veux modifier l'élément qui se trouve sur la feuille, dans
mon userform j'ai un initialize qui est censé me remettre les éléments
d'origine
Merci
j'espère être clair ?


"Pounet95" a écrit dans le message de news:
%
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans
les listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV






















Avatar
Didier
RE bonsoir Pounet95
Cela fonctionne très bien c'est l'activate qui fait tout
Merci
Didier

"Pounet95" a écrit dans le message de news:
ej$
Re,

J'ai testé ceci sur un usf avec 2 listbox.
le listbox1 a la propriété Rowsource égale à Liste
le listbox2 a la propriété Rowsource égale à Liste2
dans la feuille nommée x les plages liste et liste2 sont contigües
liste ¡:A10
liste2±:B10

Private Sub UserForm_Initialize()
Sheets("x").Activate
ListBox1.Value = ActiveCell.Value
ListBox2.Value = ActiveCell.Offset(0, 1).Value
End Sub


Si la cellule sélectionnée est dans liste, l'affectation se fait bien et
les éléments correspondants
sont sélectionnés dans chacune des listes.

Est-cela que tu voulais ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:
%
Bonsoir Pounet95
En fait, je souhaite que lorsque je lance mon userform,
Il y ait dans le 1er listbox Activecell.Offset(0,1).Value
dans le 2ème Activecell.Offset(0,2).Value
j'ai donc mis dans l'initialize cela :

ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?

Veux-tu que l'élément correspondant de la liste soit sélectionné ?
Oui

D'où vient la liste de chacun des ListBox ?
Cette liste provient d'une feuille de calcul :

liste que j'ai mis dans le Rowsource

Merci
Didier

"Pounet95" a écrit dans le message de news:

Re,
Désolé, je ne comprends pas.
Que veux-tu faire exactement en mettant
ListBox1.Value= Activecell.Offset(0,1).Value ?
ListBox2.Value= Activecell.Offset(0,2).Value ?
Veux-tu que l'élément correspondant de la liste soit sélectionné ?
D'où vient la liste de chacun des ListBox ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:
%
Bonsoir Pounet95

au départ, je sélectionne dans la listbox un élément.
Après validation, cela envoi dans ma feuille de calcul l'élément.
Lorsque je veux modifier l'élément qui se trouve sur la feuille, dans
mon userform j'ai un initialize qui est censé me remettre les éléments
d'origine
Merci
j'espère être clair ?


"Pounet95" a écrit dans le message de news:
%
Bonjour,
J'ai un doute.
Que dois faire le ListBox1.value ?
- sélectionner la valeur dans la liste ?
- remplir la liste ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"Didier" a écrit dans le message de news:

Bonjour AV
et merci pour ta célérité
Je vais expliquer mon pb
dans un userform, j'ai divers éléments
dans l'initialize de celui-ci, j'ai mis cela :

TextBox1 = ActiveCell.Value
ListBox1.Value = ActiveCell.Offset(0, 1).Value
ListBox2.Value = ActiveCell.Offset(0, 2).Value

lorsque je lance le userform, les éléments n'apparraissent pas dans
les listbox
1 fois sur 2 on dirait un pb de focus ?

j'ai créé un bouton "valider" sur le userform

ActiveCell = CDate(TextBox1.Value)
ActiveCell.Offset(0, 1).Value = frm_table.ListBox1.Value
ActiveCell.Offset(0, 2).Value = frm_table.ListBox2.Value

Merci pour ton aide
Didier



"AV" a écrit dans le message de news:

Il manque qque chose...
Ex :
ActiveCell.Offset(0, 1) = Sheets("Feuil1").ListBox1.Value
si la listbox est sur "Feuil1"

AV