Bonjour à tous
J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
sur VBA, mais peut être que certains connaissent le problème (j'ai déjà
un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas :o( )
J'ai une listview sur une multipage, lorsque je clique sur un bouton page
ça envoie des données dans une listview page 3. ça fonctionne, sauf que
l'affichage est catastrophique. Il faut comprendre par la qu'on ne voit
ce qui est écrit dans la listview, je dois cliquer partout pour pouvoir
enfin lire.
Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de trucs,
sans succès ( refresh entre autres, repaint pour le userform)
Merci d'avance pour votre aide, parce que là, je craque :o/
Bonjour à tous
J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
sur VBA, mais peut être que certains connaissent le problème (j'ai déjà
un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas :o( )
J'ai une listview sur une multipage, lorsque je clique sur un bouton page
ça envoie des données dans une listview page 3. ça fonctionne, sauf que
l'affichage est catastrophique. Il faut comprendre par la qu'on ne voit
ce qui est écrit dans la listview, je dois cliquer partout pour pouvoir
enfin lire.
Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de trucs,
sans succès ( refresh entre autres, repaint pour le userform)
Merci d'avance pour votre aide, parce que là, je craque :o/
Bonjour à tous
J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
sur VBA, mais peut être que certains connaissent le problème (j'ai déjà
un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas :o( )
J'ai une listview sur une multipage, lorsque je clique sur un bouton page
ça envoie des données dans une listview page 3. ça fonctionne, sauf que
l'affichage est catastrophique. Il faut comprendre par la qu'on ne voit
ce qui est écrit dans la listview, je dois cliquer partout pour pouvoir
enfin lire.
Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de trucs,
sans succès ( refresh entre autres, repaint pour le userform)
Merci d'avance pour votre aide, parce que là, je craque :o/
Salut!
Peut-on voir la partie de code concernée?
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Ticker" wrote in message
news:
> Bonjour à tous
>
> J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
C'est
> sur VBA, mais peut être que certains connaissent le problème (j'ai déjà
mis
> un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
> J'ai une listview sur une multipage, lorsque je clique sur un bouton
1
> ça envoie des données dans une listview page 3. ça fonctionne, sauf que
> l'affichage est catastrophique. Il faut comprendre par la qu'on ne voit
pas
> ce qui est écrit dans la listview, je dois cliquer partout pour pouvoir
> enfin lire.
> Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
> sans succès ( refresh entre autres, repaint pour le userform)
>
> Merci d'avance pour votre aide, parce que là, je craque :o/
>
>
Salut!
Peut-on voir la partie de code concernée?
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Ticker" <NOSPAM-ticker.alpha@wanadoo.fr> wrote in message
news:uG90ZnIoDHA.2424@TK2MSFTNGP10.phx.gbl...
> Bonjour à tous
>
> J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
C'est
> sur VBA, mais peut être que certains connaissent le problème (j'ai déjà
mis
> un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
> J'ai une listview sur une multipage, lorsque je clique sur un bouton
1
> ça envoie des données dans une listview page 3. ça fonctionne, sauf que
> l'affichage est catastrophique. Il faut comprendre par la qu'on ne voit
pas
> ce qui est écrit dans la listview, je dois cliquer partout pour pouvoir
> enfin lire.
> Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
> sans succès ( refresh entre autres, repaint pour le userform)
>
> Merci d'avance pour votre aide, parce que là, je craque :o/
>
>
Salut!
Peut-on voir la partie de code concernée?
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Ticker" wrote in message
news:
> Bonjour à tous
>
> J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
C'est
> sur VBA, mais peut être que certains connaissent le problème (j'ai déjà
mis
> un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
> J'ai une listview sur une multipage, lorsque je clique sur un bouton
1
> ça envoie des données dans une listview page 3. ça fonctionne, sauf que
> l'affichage est catastrophique. Il faut comprendre par la qu'on ne voit
pas
> ce qui est écrit dans la listview, je dois cliquer partout pour pouvoir
> enfin lire.
> Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
> sans succès ( refresh entre autres, repaint pour le userform)
>
> Merci d'avance pour votre aide, parce que là, je craque :o/
>
>
Bien sûr, le voici (code VBA), c'est le code du test que j'ai fait, mais
problème y est, hélas.
_____________________________________
Private Sub CommandButton1_Click()
Dim Item As ListItem
Set Item = ListView1.ListItems.Add
Item.SubItems(1) = "Item1"
Item.SubItems(2) = "Item2"
End Sub
Private Sub UserForm_Activate()
With ListView1
.FullRowSelect = True
.CheckBoxes = True
.Gridlines = True
.ColumnHeaders.Add , , "Check", 15
.ColumnHeaders.Add , , "Mots à traduire", (ListView1.Width - 15) / 2
.ColumnHeaders.Add , , "Traduction", (ListView1.Width - 15) / 2
End With
End Sub
________________________________________
J'utilise Office XP, avec les 2 service pack. La dernière version de l'OCX
MSCOMCTL.OCX (V:6.1.95.45). Le problème est toujours présent.
Donc, je suppose que le problème est plus profond.
Maintenat, à ce niveau, je suis dépassé.
Voilà, voilà
Merci d'avance à tous ceux qui se pencheront sur la question
"Zoury" a écrit dans le message de news:
> Salut!
>
> Peut-on voir la partie de code concernée?
>
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> "Ticker" wrote in message
> news:
> > Bonjour à tous
> >
> > J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
> C'est
> > sur VBA, mais peut être que certains connaissent le problème (j'ai
> mis
> > un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
:o( )
> > J'ai une listview sur une multipage, lorsque je clique sur un bouton
page
> 1
> > ça envoie des données dans une listview page 3. ça fonctionne, sauf
> > l'affichage est catastrophique. Il faut comprendre par la qu'on ne
> pas
> > ce qui est écrit dans la listview, je dois cliquer partout pour
> > enfin lire.
> > Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
trucs,
> > sans succès ( refresh entre autres, repaint pour le userform)
> >
> > Merci d'avance pour votre aide, parce que là, je craque :o/
> >
> >
>
>
Bien sûr, le voici (code VBA), c'est le code du test que j'ai fait, mais
problème y est, hélas.
_____________________________________
Private Sub CommandButton1_Click()
Dim Item As ListItem
Set Item = ListView1.ListItems.Add
Item.SubItems(1) = "Item1"
Item.SubItems(2) = "Item2"
End Sub
Private Sub UserForm_Activate()
With ListView1
.FullRowSelect = True
.CheckBoxes = True
.Gridlines = True
.ColumnHeaders.Add , , "Check", 15
.ColumnHeaders.Add , , "Mots à traduire", (ListView1.Width - 15) / 2
.ColumnHeaders.Add , , "Traduction", (ListView1.Width - 15) / 2
End With
End Sub
________________________________________
J'utilise Office XP, avec les 2 service pack. La dernière version de l'OCX
MSCOMCTL.OCX (V:6.1.95.45). Le problème est toujours présent.
Donc, je suppose que le problème est plus profond.
Maintenat, à ce niveau, je suis dépassé.
Voilà, voilà
Merci d'avance à tous ceux qui se pencheront sur la question
"Zoury" <yanick_lefebvre@hotmail.com> a écrit dans le message de news:
eX90nQ2oDHA.2512@TK2MSFTNGP09.phx.gbl...
> Salut!
>
> Peut-on voir la partie de code concernée?
>
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> "Ticker" <NOSPAM-ticker.alpha@wanadoo.fr> wrote in message
> news:uG90ZnIoDHA.2424@TK2MSFTNGP10.phx.gbl...
> > Bonjour à tous
> >
> > J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
> C'est
> > sur VBA, mais peut être que certains connaissent le problème (j'ai
> mis
> > un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
:o( )
> > J'ai une listview sur une multipage, lorsque je clique sur un bouton
page
> 1
> > ça envoie des données dans une listview page 3. ça fonctionne, sauf
> > l'affichage est catastrophique. Il faut comprendre par la qu'on ne
> pas
> > ce qui est écrit dans la listview, je dois cliquer partout pour
> > enfin lire.
> > Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
trucs,
> > sans succès ( refresh entre autres, repaint pour le userform)
> >
> > Merci d'avance pour votre aide, parce que là, je craque :o/
> >
> >
>
>
Bien sûr, le voici (code VBA), c'est le code du test que j'ai fait, mais
problème y est, hélas.
_____________________________________
Private Sub CommandButton1_Click()
Dim Item As ListItem
Set Item = ListView1.ListItems.Add
Item.SubItems(1) = "Item1"
Item.SubItems(2) = "Item2"
End Sub
Private Sub UserForm_Activate()
With ListView1
.FullRowSelect = True
.CheckBoxes = True
.Gridlines = True
.ColumnHeaders.Add , , "Check", 15
.ColumnHeaders.Add , , "Mots à traduire", (ListView1.Width - 15) / 2
.ColumnHeaders.Add , , "Traduction", (ListView1.Width - 15) / 2
End With
End Sub
________________________________________
J'utilise Office XP, avec les 2 service pack. La dernière version de l'OCX
MSCOMCTL.OCX (V:6.1.95.45). Le problème est toujours présent.
Donc, je suppose que le problème est plus profond.
Maintenat, à ce niveau, je suis dépassé.
Voilà, voilà
Merci d'avance à tous ceux qui se pencheront sur la question
"Zoury" a écrit dans le message de news:
> Salut!
>
> Peut-on voir la partie de code concernée?
>
>
> --
> Cordialement
> Yanick Lefebvre - MVP pour Visual Basic
> http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> "Ticker" wrote in message
> news:
> > Bonjour à tous
> >
> > J'ai un problème que je n'arrive pas à résoudre depuis quelques temps.
> C'est
> > sur VBA, mais peut être que certains connaissent le problème (j'ai
> mis
> > un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
:o( )
> > J'ai une listview sur une multipage, lorsque je clique sur un bouton
page
> 1
> > ça envoie des données dans une listview page 3. ça fonctionne, sauf
> > l'affichage est catastrophique. Il faut comprendre par la qu'on ne
> pas
> > ce qui est écrit dans la listview, je dois cliquer partout pour
> > enfin lire.
> > Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
trucs,
> > sans succès ( refresh entre autres, repaint pour le userform)
> >
> > Merci d'avance pour votre aide, parce que là, je craque :o/
> >
> >
>
>
Salut Ticker!
Ton code fonctionne bien ici, à condition de mettre la propriété View du
ListView à "3 - lvwReport" et de modifier le nom de l'événement
UserControl_Activate() pour UserControl_Initialize()..
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Ticker" wrote in message
news:%
> Bien sûr, le voici (code VBA), c'est le code du test que j'ai fait, mais
le
> problème y est, hélas.
> _____________________________________
> Private Sub CommandButton1_Click()
>
> Dim Item As ListItem
>
> Set Item = ListView1.ListItems.Add
> Item.SubItems(1) = "Item1"
> Item.SubItems(2) = "Item2"
>
> End Sub
>
>
> Private Sub UserForm_Activate()
>
> With ListView1
> .FullRowSelect = True
> .CheckBoxes = True
> .Gridlines = True
> .ColumnHeaders.Add , , "Check", 15
> .ColumnHeaders.Add , , "Mots à traduire", (ListView1.Width - 15) / 2
> .ColumnHeaders.Add , , "Traduction", (ListView1.Width - 15) / 2
> End With
>
> End Sub
> ________________________________________
>
> J'utilise Office XP, avec les 2 service pack. La dernière version de
> MSCOMCTL.OCX (V:6.1.95.45). Le problème est toujours présent.
> Donc, je suppose que le problème est plus profond.
> Maintenat, à ce niveau, je suis dépassé.
> Voilà, voilà
> Merci d'avance à tous ceux qui se pencheront sur la question
>
>
>
>
> "Zoury" a écrit dans le message de news:
>
> > Salut!
> >
> > Peut-on voir la partie de code concernée?
> >
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> > "Ticker" wrote in message
> > news:
> > > Bonjour à tous
> > >
> > > J'ai un problème que je n'arrive pas à résoudre depuis quelques
> > C'est
> > > sur VBA, mais peut être que certains connaissent le problème (j'ai
déjà
> > mis
> > > un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
> :o( )
> > > J'ai une listview sur une multipage, lorsque je clique sur un bouton
> page
> > 1
> > > ça envoie des données dans une listview page 3. ça fonctionne, sauf
que
> > > l'affichage est catastrophique. Il faut comprendre par la qu'on ne
voit
> > pas
> > > ce qui est écrit dans la listview, je dois cliquer partout pour
pouvoir
> > > enfin lire.
> > > Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
> trucs,
> > > sans succès ( refresh entre autres, repaint pour le userform)
> > >
> > > Merci d'avance pour votre aide, parce que là, je craque :o/
> > >
> > >
> >
> >
>
>
Salut Ticker!
Ton code fonctionne bien ici, à condition de mettre la propriété View du
ListView à "3 - lvwReport" et de modifier le nom de l'événement
UserControl_Activate() pour UserControl_Initialize()..
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Ticker" <NOSPAM-ticker.alpha@wanadoo.fr> wrote in message
news:%23Wc0Fm8oDHA.3024@tk2msftngp13.phx.gbl...
> Bien sûr, le voici (code VBA), c'est le code du test que j'ai fait, mais
le
> problème y est, hélas.
> _____________________________________
> Private Sub CommandButton1_Click()
>
> Dim Item As ListItem
>
> Set Item = ListView1.ListItems.Add
> Item.SubItems(1) = "Item1"
> Item.SubItems(2) = "Item2"
>
> End Sub
>
>
> Private Sub UserForm_Activate()
>
> With ListView1
> .FullRowSelect = True
> .CheckBoxes = True
> .Gridlines = True
> .ColumnHeaders.Add , , "Check", 15
> .ColumnHeaders.Add , , "Mots à traduire", (ListView1.Width - 15) / 2
> .ColumnHeaders.Add , , "Traduction", (ListView1.Width - 15) / 2
> End With
>
> End Sub
> ________________________________________
>
> J'utilise Office XP, avec les 2 service pack. La dernière version de
> MSCOMCTL.OCX (V:6.1.95.45). Le problème est toujours présent.
> Donc, je suppose que le problème est plus profond.
> Maintenat, à ce niveau, je suis dépassé.
> Voilà, voilà
> Merci d'avance à tous ceux qui se pencheront sur la question
>
>
>
>
> "Zoury" <yanick_lefebvre@hotmail.com> a écrit dans le message de news:
> eX90nQ2oDHA.2512@TK2MSFTNGP09.phx.gbl...
> > Salut!
> >
> > Peut-on voir la partie de code concernée?
> >
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> > "Ticker" <NOSPAM-ticker.alpha@wanadoo.fr> wrote in message
> > news:uG90ZnIoDHA.2424@TK2MSFTNGP10.phx.gbl...
> > > Bonjour à tous
> > >
> > > J'ai un problème que je n'arrive pas à résoudre depuis quelques
> > C'est
> > > sur VBA, mais peut être que certains connaissent le problème (j'ai
déjà
> > mis
> > > un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
> :o( )
> > > J'ai une listview sur une multipage, lorsque je clique sur un bouton
> page
> > 1
> > > ça envoie des données dans une listview page 3. ça fonctionne, sauf
que
> > > l'affichage est catastrophique. Il faut comprendre par la qu'on ne
voit
> > pas
> > > ce qui est écrit dans la listview, je dois cliquer partout pour
pouvoir
> > > enfin lire.
> > > Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
> trucs,
> > > sans succès ( refresh entre autres, repaint pour le userform)
> > >
> > > Merci d'avance pour votre aide, parce que là, je craque :o/
> > >
> > >
> >
> >
>
>
Salut Ticker!
Ton code fonctionne bien ici, à condition de mettre la propriété View du
ListView à "3 - lvwReport" et de modifier le nom de l'événement
UserControl_Activate() pour UserControl_Initialize()..
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Ticker" wrote in message
news:%
> Bien sûr, le voici (code VBA), c'est le code du test que j'ai fait, mais
le
> problème y est, hélas.
> _____________________________________
> Private Sub CommandButton1_Click()
>
> Dim Item As ListItem
>
> Set Item = ListView1.ListItems.Add
> Item.SubItems(1) = "Item1"
> Item.SubItems(2) = "Item2"
>
> End Sub
>
>
> Private Sub UserForm_Activate()
>
> With ListView1
> .FullRowSelect = True
> .CheckBoxes = True
> .Gridlines = True
> .ColumnHeaders.Add , , "Check", 15
> .ColumnHeaders.Add , , "Mots à traduire", (ListView1.Width - 15) / 2
> .ColumnHeaders.Add , , "Traduction", (ListView1.Width - 15) / 2
> End With
>
> End Sub
> ________________________________________
>
> J'utilise Office XP, avec les 2 service pack. La dernière version de
> MSCOMCTL.OCX (V:6.1.95.45). Le problème est toujours présent.
> Donc, je suppose que le problème est plus profond.
> Maintenat, à ce niveau, je suis dépassé.
> Voilà, voilà
> Merci d'avance à tous ceux qui se pencheront sur la question
>
>
>
>
> "Zoury" a écrit dans le message de news:
>
> > Salut!
> >
> > Peut-on voir la partie de code concernée?
> >
> >
> > --
> > Cordialement
> > Yanick Lefebvre - MVP pour Visual Basic
> > http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
> > http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
> > "Ticker" wrote in message
> > news:
> > > Bonjour à tous
> > >
> > > J'ai un problème que je n'arrive pas à résoudre depuis quelques
> > C'est
> > > sur VBA, mais peut être que certains connaissent le problème (j'ai
déjà
> > mis
> > > un post sur les newsgroup VBA, mais les listviews, ça n'inspire pas
> :o( )
> > > J'ai une listview sur une multipage, lorsque je clique sur un bouton
> page
> > 1
> > > ça envoie des données dans une listview page 3. ça fonctionne, sauf
que
> > > l'affichage est catastrophique. Il faut comprendre par la qu'on ne
voit
> > pas
> > > ce qui est écrit dans la listview, je dois cliquer partout pour
pouvoir
> > > enfin lire.
> > > Donc voilà, si quelqu'un à des propositions, j'ai essayer pleins de
> trucs,
> > > sans succès ( refresh entre autres, repaint pour le userform)
> > >
> > > Merci d'avance pour votre aide, parce que là, je craque :o/
> > >
> > >
> >
> >
>
>
