OVH Cloud OVH Cloud

Effacement Listbox

6 réponses
Avatar
anonymousA
Bonjour,

Faisant un essai sur la propriété Visible des objets shapes et sachant
que les controles Active X sur une feuille appartiennent aussi à la
collection de ces objets, j'ai tenté de masquer par la propriété visible
des controles de cette nature sur une feuille.
J'obtiens en utilisant la proc suivante des résultats probants pour tous
les controles Active X sauf Listbox que je suis obligé de cacher par
l'instruction sh.OLEFormat.Object.Visible = false

'proc de masquage

For Each s In ActiveSheet.Shapes

s.Visible = 0 'ou false , c'est comme on veut

Next

Reproduisez-vous le même phénomène ? Si oui, , l'un d'entre vous
aurait-il une idée d'explication sur le comportement étrange et
solitaire de ListBox ?

Merci d'avance.

A+

6 réponses

Avatar
Hervé
Salut,
J'ai le même phénomène mais avec la proc ci-dessous pas besoin de boucle,
seul problème, le dessin des contrôles doit être forcé par scrollage sauf
pour la ListBox ??? bisarre non ?

Sub AfficherCacher()
With ActiveSheet.OLEObjects
.Visible = Not .Visible
End With
'force le dessin
With ActiveWindow
.ScrollRow = 100
.ScrollRow = 1
End With
End Sub

Hervé

"anonymousA" a écrit dans le message news:
4218dfa7$0$807$
Bonjour,

Faisant un essai sur la propriété Visible des objets shapes et sachant
que les controles Active X sur une feuille appartiennent aussi à la
collection de ces objets, j'ai tenté de masquer par la propriété visible
des controles de cette nature sur une feuille.
J'obtiens en utilisant la proc suivante des résultats probants pour tous
les controles Active X sauf Listbox que je suis obligé de cacher par
l'instruction sh.OLEFormat.Object.Visible = false

'proc de masquage

For Each s In ActiveSheet.Shapes

s.Visible = 0 'ou false , c'est comme on veut

Next

Reproduisez-vous le même phénomène ? Si oui, , l'un d'entre vous
aurait-il une idée d'explication sur le comportement étrange et
solitaire de ListBox ?

Merci d'avance.

A+


Avatar
MichDenis
Bonjour ,

J'observe le même phénomène avec Excel 2003 pour un contrôle ListBox issu de la boîte à outils "Contrôle".

Cependant pour une raison que j'ignore, si je place plusieurs types de contrôles émanant de cette boîte d'outils, Tous
les contrôles deviennent masquées (invisibles) y compris le "ListBox"

Phénomène étrange... je n'ai pas d'explication ...!


Salutations!




"anonymousA" a écrit dans le message de news: 4218dfa7$0$807$
Bonjour,

Faisant un essai sur la propriété Visible des objets shapes et sachant
que les controles Active X sur une feuille appartiennent aussi à la
collection de ces objets, j'ai tenté de masquer par la propriété visible
des controles de cette nature sur une feuille.
J'obtiens en utilisant la proc suivante des résultats probants pour tous
les controles Active X sauf Listbox que je suis obligé de cacher par
l'instruction sh.OLEFormat.Object.Visible = false

'proc de masquage

For Each s In ActiveSheet.Shapes

s.Visible = 0 'ou false , c'est comme on veut

Next

Reproduisez-vous le même phénomène ? Si oui, , l'un d'entre vous
aurait-il une idée d'explication sur le comportement étrange et
solitaire de ListBox ?

Merci d'avance.

A+
Avatar
anonymousA
bonsoir,

merci de ton essai. J'ai Xcel 2000 et par contre moi, même si j'ai
d'autres controles , il ne rend pas les listbox invisibles.

A+

Bonjour ,

J'observe le même phénomène avec Excel 2003 pour un contrôle ListBox issu de la boîte à outils "Contrôle".

Cependant pour une raison que j'ignore, si je place plusieurs types de contrôles émanant de cette boîte d'outils, Tous
les contrôles deviennent masquées (invisibles) y compris le "ListBox"

Phénomène étrange... je n'ai pas d'explication ...!


Salutations!




"anonymousA" a écrit dans le message de news: 4218dfa7$0$807$
Bonjour,

Faisant un essai sur la propriété Visible des objets shapes et sachant
que les controles Active X sur une feuille appartiennent aussi à la
collection de ces objets, j'ai tenté de masquer par la propriété visible
des controles de cette nature sur une feuille.
J'obtiens en utilisant la proc suivante des résultats probants pour tous
les controles Active X sauf Listbox que je suis obligé de cacher par
l'instruction sh.OLEFormat.Object.Visible = false

'proc de masquage

For Each s In ActiveSheet.Shapes

s.Visible = 0 'ou false , c'est comme on veut

Next

Reproduisez-vous le même phénomène ? Si oui, , l'un d'entre vous
aurait-il une idée d'explication sur le comportement étrange et
solitaire de ListBox ?

Merci d'avance.

A+




Avatar
anonymousA
bonsoir,

merci pour ton essai. ouais, c'est décidément étonnant mais semble
confirmer que le listbox a une attitude bizarre.

A+

Salut,
J'ai le même phénomène mais avec la proc ci-dessous pas besoin de boucle,
seul problème, le dessin des contrôles doit être forcé par scrollage sauf
pour la ListBox ??? bisarre non ?

Sub AfficherCacher()
With ActiveSheet.OLEObjects
.Visible = Not .Visible
End With
'force le dessin
With ActiveWindow
.ScrollRow = 100
.ScrollRow = 1
End With
End Sub

Hervé

"anonymousA" a écrit dans le message news:
4218dfa7$0$807$

Bonjour,

Faisant un essai sur la propriété Visible des objets shapes et sachant
que les controles Active X sur une feuille appartiennent aussi à la
collection de ces objets, j'ai tenté de masquer par la propriété visible
des controles de cette nature sur une feuille.
J'obtiens en utilisant la proc suivante des résultats probants pour tous
les controles Active X sauf Listbox que je suis obligé de cacher par
l'instruction sh.OLEFormat.Object.Visible = false

'proc de masquage

For Each s In ActiveSheet.Shapes

s.Visible = 0 'ou false , c'est comme on veut

Next

Reproduisez-vous le même phénomène ? Si oui, , l'un d'entre vous
aurait-il une idée d'explication sur le comportement étrange et
solitaire de ListBox ?

Merci d'avance.

A+







Avatar
AV
Pas d'explication à l'exception (bug ..) mais avec les "vieux objets" pas de
soucis

ActiveSheet.DrawingObjects

AV
Avatar
anomymousA
bonjour,

merci de ta réponse, mais en l'occurence, il ne s'agit d'un vieil objet
puisque c'es le listbox de la BO controles.

A+


Pas d'explication à l'exception (bug ..) mais avec les "vieux objets" pas de
soucis

ActiveSheet.DrawingObjects

AV