listbox à plusieurs colonnes

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value = Me.ListBox4.List(ListBox4.ListIndex, 0)
activesheet.cells(16,11).value = Me.ListBox4.List(ListBox4.ListIndex, 1)
activesheet.cells(16,12).value = Me.ListBox4.List(ListBox4.ListIndex, 2)
activesheet.cells(18,13).value = Me.ListBox4.List(ListBox4.ListIndex, 3)
activesheet.cells(18,14).value = Me.ListBox4.List(ListBox4.ListIndex, 4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une listbox par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré, vu le peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) =
activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) =
activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) =
activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) =
activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le champ 1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16, le champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne sais
comment faire. Si quelqu'un pouvait me donner un petit coup de pouce...
Je vous remercie d'avance de votre aide.
Rémi

Bonjour Poulpor,
je te remercie, ça fonctionne à merveille, petite indication, quand tu
emploie activesheet.cells(16,10), le 10 signifie la 10ème lettre je suppose,
mais peut-on mettre activesheet.cells(J16)
Merci encore
Rémi


"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: 8F9F84A3-38F6-47DA-8B7C-514D92D7EED1@microsoft.com...

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value = Me.ListBox4.List(ListBox4.ListIndex, 0)
activesheet.cells(16,11).value = Me.ListBox4.List(ListBox4.ListIndex, 1)
activesheet.cells(16,12).value = Me.ListBox4.List(ListBox4.ListIndex, 2)
activesheet.cells(18,13).value = Me.ListBox4.List(ListBox4.ListIndex, 3)
activesheet.cells(18,14).value = Me.ListBox4.List(ListBox4.ListIndex, 4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une listbox par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré, vu le
peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) > activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) > activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) > activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) > activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le champ
1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16, le
champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne sais
comment faire. Si quelqu'un pouvait me donner un petit coup de pouce...
Je vous remercie d'avance de votre aide.
Rémi

bonjour
poulpor fait sa sieste et je mimimisce
non, il te faut dire alors
ActiveSheet.Range("J16")
jps
PS j'ai cru même comprendre que le Value est superfétatoire

"Rémi" <direction.technique@finzi-usines.com> a écrit dans le message de
news: %232PTQWqyGHA.4024@TK2MSFTNGP02.phx.gbl...

Bonjour Poulpor,
je te remercie, ça fonctionne à merveille, petite indication, quand tu
emploie activesheet.cells(16,10), le 10 signifie la 10ème lettre je
suppose, mais peut-on mettre activesheet.cells(J16)
Merci encore
Rémi


"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: 8F9F84A3-38F6-47DA-8B7C-514D92D7EED1@microsoft.com...

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value = Me.ListBox4.List(ListBox4.ListIndex, 0)
activesheet.cells(16,11).value = Me.ListBox4.List(ListBox4.ListIndex, 1)
activesheet.cells(16,12).value = Me.ListBox4.List(ListBox4.ListIndex, 2)
activesheet.cells(18,13).value = Me.ListBox4.List(ListBox4.ListIndex, 3)
activesheet.cells(18,14).value = Me.ListBox4.List(ListBox4.ListIndex, 4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une listbox par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré, vu le
peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) >> activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) >> activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) >> activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) >> activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le champ
1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16, le
champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne sais
comment faire. Si quelqu'un pouvait me donner un petit coup de pouce...
Je vous remercie d'avance de votre aide.
Rémi

Oula JPS, c'est lundi et j'ai bien déjeuné, ceci expliquerait ma sieste :-)

Pour activesheet.cells(16,10).value, c'est

activesheet.cells('indice ligne','indice colonne').value

cells(1,1) c'est la cellule A1

Je trouve facile de travailler comme ca plutot qu'avec des Range (ca c'est
vraiment une opinion personnel). Par exemple, il est facile de faire un :

For i = 1 to 10
Activesheet.cells(16,i).value= i
Next

Avec Range, il n'est pas évident d'incrémenter la lettre signifiant la
colonne, possible, mais plus pénible à mon goût.

Poulpor

bonjour
poulpor fait sa sieste et je mimimisce
non, il te faut dire alors
ActiveSheet.Range("J16")
jps
PS j'ai cru même comprendre que le Value est superfétatoire

"Rémi" <direction.technique@finzi-usines.com> a écrit dans le message de
news: %232PTQWqyGHA.4024@TK2MSFTNGP02.phx.gbl...

Bonjour Poulpor,
je te remercie, ça fonctionne à merveille, petite indication, quand tu
emploie activesheet.cells(16,10), le 10 signifie la 10ème lettre je
suppose, mais peut-on mettre activesheet.cells(J16)
Merci encore
Rémi


"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: 8F9F84A3-38F6-47DA-8B7C-514D92D7EED1@microsoft.com...

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value = Me.ListBox4.List(ListBox4.ListIndex, 0)
activesheet.cells(16,11).value = Me.ListBox4.List(ListBox4.ListIndex, 1)
activesheet.cells(16,12).value = Me.ListBox4.List(ListBox4.ListIndex, 2)
activesheet.cells(18,13).value = Me.ListBox4.List(ListBox4.ListIndex, 3)
activesheet.cells(18,14).value = Me.ListBox4.List(ListBox4.ListIndex, 4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une listbox par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré, vu le
peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) > >> activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) > >> activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) > >> activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) > >> activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le champ
1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16, le
champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne sais
comment faire. Si quelqu'un pouvait me donner un petit coup de pouce...
Je vous remercie d'avance de votre aide.
Rémi

teuss, teuss, teuss, poulpor
moi, je ne faisais que répondre à la question de rémi qui ne s'est pas
manifesté depuis, semble-t-il....
quant à la sieste, je ne peux que te conseiller la lecture du bouquin en 12
tomes co-écrit par laurent daurès et JièL, l'autre marseillais inside,
traitant de la sieste à travers les âges
jps

"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: ADA6CFC7-836A-4A63-A581-AC6226614C26@microsoft.com...

Oula JPS, c'est lundi et j'ai bien déjeuné, ceci expliquerait ma sieste
:-)

Pour activesheet.cells(16,10).value, c'est

activesheet.cells('indice ligne','indice colonne').value

cells(1,1) c'est la cellule A1

Je trouve facile de travailler comme ca plutot qu'avec des Range (ca c'est
vraiment une opinion personnel). Par exemple, il est facile de faire un :

For i = 1 to 10
Activesheet.cells(16,i).value= i
Next

Avec Range, il n'est pas évident d'incrémenter la lettre signifiant la
colonne, possible, mais plus pénible à mon goût.

Poulpor

bonjour
poulpor fait sa sieste et je mimimisce
non, il te faut dire alors
ActiveSheet.Range("J16")
jps
PS j'ai cru même comprendre que le Value est superfétatoire

"Rémi" <direction.technique@finzi-usines.com> a écrit dans le message de
news: %232PTQWqyGHA.4024@TK2MSFTNGP02.phx.gbl...

Bonjour Poulpor,
je te remercie, ça fonctionne à merveille, petite indication, quand tu
emploie activesheet.cells(16,10), le 10 signifie la 10ème lettre je
suppose, mais peut-on mettre activesheet.cells(J16)
Merci encore
Rémi


"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message
de
news: 8F9F84A3-38F6-47DA-8B7C-514D92D7EED1@microsoft.com...

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value = Me.ListBox4.List(ListBox4.ListIndex,
0)
activesheet.cells(16,11).value = Me.ListBox4.List(ListBox4.ListIndex,
1)
activesheet.cells(16,12).value = Me.ListBox4.List(ListBox4.ListIndex,
2)
activesheet.cells(18,13).value = Me.ListBox4.List(ListBox4.ListIndex,
3)
activesheet.cells(18,14).value = Me.ListBox4.List(ListBox4.ListIndex,
4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une listbox
par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré, vu
le
peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) >> >> activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) >> >> activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) >> >> activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) >> >> activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le
champ
1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16,
le
champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne sais
comment faire. Si quelqu'un pouvait me donner un petit coup de
pouce...
Je vous remercie d'avance de votre aide.
Rémi

bonjour vous deux,
je ne me suis pas manisfester, c'est normal, je faisais la sieste...
en tout cas, merci pour vos réponses communes
Rémi


"jps" <vaderetrosp@mas> a écrit dans le message de news:
ui6sRRsyGHA.4368@TK2MSFTNGP02.phx.gbl...

teuss, teuss, teuss, poulpor
moi, je ne faisais que répondre à la question de rémi qui ne s'est pas
manifesté depuis, semble-t-il....
quant à la sieste, je ne peux que te conseiller la lecture du bouquin en
12 tomes co-écrit par laurent daurès et JièL, l'autre marseillais inside,
traitant de la sieste à travers les âges
jps

"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: ADA6CFC7-836A-4A63-A581-AC6226614C26@microsoft.com...

Oula JPS, c'est lundi et j'ai bien déjeuné, ceci expliquerait ma sieste
:-)

Pour activesheet.cells(16,10).value, c'est

activesheet.cells('indice ligne','indice colonne').value

cells(1,1) c'est la cellule A1

Je trouve facile de travailler comme ca plutot qu'avec des Range (ca
c'est
vraiment une opinion personnel). Par exemple, il est facile de faire un :

For i = 1 to 10
Activesheet.cells(16,i).value= i
Next

Avec Range, il n'est pas évident d'incrémenter la lettre signifiant la
colonne, possible, mais plus pénible à mon goût.

Poulpor

bonjour
poulpor fait sa sieste et je mimimisce
non, il te faut dire alors
ActiveSheet.Range("J16")
jps
PS j'ai cru même comprendre que le Value est superfétatoire

"Rémi" <direction.technique@finzi-usines.com> a écrit dans le message de
news: %232PTQWqyGHA.4024@TK2MSFTNGP02.phx.gbl...

Bonjour Poulpor,
je te remercie, ça fonctionne à merveille, petite indication, quand tu
emploie activesheet.cells(16,10), le 10 signifie la 10ème lettre je
suppose, mais peut-on mettre activesheet.cells(J16)
Merci encore
Rémi


"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message
de
news: 8F9F84A3-38F6-47DA-8B7C-514D92D7EED1@microsoft.com...

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value = Me.ListBox4.List(ListBox4.ListIndex,
0)
activesheet.cells(16,11).value = Me.ListBox4.List(ListBox4.ListIndex,
1)
activesheet.cells(16,12).value = Me.ListBox4.List(ListBox4.ListIndex,
2)
activesheet.cells(18,13).value = Me.ListBox4.List(ListBox4.ListIndex,
3)
activesheet.cells(18,14).value = Me.ListBox4.List(ListBox4.ListIndex,
4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une listbox
par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré, vu
le
peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) >>> >> activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) >>> >> activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) >>> >> activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) >>> >> activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le
champ
1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16,
le
champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne
sais
comment faire. Si quelqu'un pouvait me donner un petit coup de
pouce...
Je vous remercie d'avance de votre aide.
Rémi

z'en prie
jps

"Rémi" <direction.technique@finzi-usines.com> a écrit dans le message de
news: OdFujC1yGHA.4092@TK2MSFTNGP04.phx.gbl...

bonjour vous deux,
je ne me suis pas manisfester, c'est normal, je faisais la sieste...
en tout cas, merci pour vos réponses communes
Rémi


"jps" <vaderetrosp@mas> a écrit dans le message de news:
ui6sRRsyGHA.4368@TK2MSFTNGP02.phx.gbl...

teuss, teuss, teuss, poulpor
moi, je ne faisais que répondre à la question de rémi qui ne s'est pas
manifesté depuis, semble-t-il....
quant à la sieste, je ne peux que te conseiller la lecture du bouquin en
12 tomes co-écrit par laurent daurès et JièL, l'autre marseillais inside,
traitant de la sieste à travers les âges
jps

"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message de
news: ADA6CFC7-836A-4A63-A581-AC6226614C26@microsoft.com...

Oula JPS, c'est lundi et j'ai bien déjeuné, ceci expliquerait ma sieste
:-)

Pour activesheet.cells(16,10).value, c'est

activesheet.cells('indice ligne','indice colonne').value

cells(1,1) c'est la cellule A1

Je trouve facile de travailler comme ca plutot qu'avec des Range (ca
c'est
vraiment une opinion personnel). Par exemple, il est facile de faire un
:

For i = 1 to 10
Activesheet.cells(16,i).value= i
Next

Avec Range, il n'est pas évident d'incrémenter la lettre signifiant la
colonne, possible, mais plus pénible à mon goût.

Poulpor

bonjour
poulpor fait sa sieste et je mimimisce
non, il te faut dire alors
ActiveSheet.Range("J16")
jps
PS j'ai cru même comprendre que le Value est superfétatoire

"Rémi" <direction.technique@finzi-usines.com> a écrit dans le message
de
news: %232PTQWqyGHA.4024@TK2MSFTNGP02.phx.gbl...

Bonjour Poulpor,
je te remercie, ça fonctionne à merveille, petite indication, quand
tu
emploie activesheet.cells(16,10), le 10 signifie la 10ème lettre je
suppose, mais peut-on mettre activesheet.cells(J16)
Merci encore
Rémi


"Poulpor" <Poulpor@discussions.microsoft.com> a écrit dans le message
de
news: 8F9F84A3-38F6-47DA-8B7C-514D92D7EED1@microsoft.com...

Bonjour Remi,

Ca devrait faire un truc du genre :

activesheet.cells(16,10).value =
Me.ListBox4.List(ListBox4.ListIndex, 0)
activesheet.cells(16,11).value =
Me.ListBox4.List(ListBox4.ListIndex, 1)
activesheet.cells(16,12).value =
Me.ListBox4.List(ListBox4.ListIndex, 2)
activesheet.cells(18,13).value =
Me.ListBox4.List(ListBox4.ListIndex, 3)
activesheet.cells(18,14).value =
Me.ListBox4.List(ListBox4.ListIndex, 4)

(attention, ca commence à zéro !)

Et je te donne aussi la manip inverse, si tu veux nourrir une
listbox par
ces cellules, car c'est encore moins intuitif et j'ai bien galéré,
vu le
peu
d'exemple trouvé :

Me.ListBox4.AddItem activesheet.cells(16,10).value
Me.ListBox2.List(ListBox2.ListCount - 1, 1) >>>> >> activesheet.cells(16,11).value
Me.ListBox2.List(ListBox2.ListCount - 1, 2) >>>> >> activesheet.cells(16,12).value
Me.ListBox2.List(ListBox2.ListCount - 1, 3) >>>> >> activesheet.cells(18,13).value
Me.ListBox2.List(ListBox2.ListCount - 1, 4) >>>> >> activesheet.cells(18,14).value

Pas évident, le premier enregistrement crée en même temps la ligne !

poulpor

Bonjour tout le monde,
J'ai un problème avec une list box à 5 colonnes. J'aimerais que le
champ
1
se recopie dans la cellule J16 de la feuille1, le champ 2 dans K16,
le
champ
3 dans L16, le champ 4 dans M18, le champ 5 dans O18, mais je ne
sais
comment faire. Si quelqu'un pouvait me donner un petit coup de
pouce...
Je vous remercie d'avance de votre aide.
Rémi