VB sous EXCEL: quadrillage Excel dans Listbox

**edwg** · 16/01/2006, 10h37

Bonjour tout le monde !
Dans mon module VB sous EXCEL, je copie une feuille (via un bouton), contenant une Listbox. "Tout" semble marcher: l'alimentation de la Listbox, ses sélections, ... par contre, chaque fois que ma nouvelle feuille s'affiche, la Listbox contient du "quadrillage" de cellules Excel !?... Si je déroule ma feuille jusqu'à ne plus voir la Listbox, et que je remonte, elle affiche correctement les propositions, et si je sélectionne une ligne alors qu'elle affiche ce quadrillage, les cellules devant contenir la sélection sont correctement alimentées, alors que je ne vois pas la sélection ...
Bref, tout marche, mais le 1° affichage de ma Listbox n'est pas "joli"...
(Je fais bien un Clear de ma listbox, j'ai essayé un Refresh... )
On dirait qu c'est "mon Excel" qui ne foncitonne pas bien, mais je n'arrive pas à détourner le pb...

Merci pour votre aide

**ouskel'n'or** · 16/01/2006, 10h42

Bref, tout marche, mais le 1° affichage de ma Listbox n'est pas "joli"...

Faut avouer que je ne connaissais pas...
As-tu essayé, avant de rafraichir ta listbox de faire .visible = false et .visible = true après rafraichissement ?
Juste une idée bête... mais si elle avait la bonne idée de marcher...

A+

**edwg** · 16/01/2006, 10h45

Oui, Oui, je le mets systématiquement, et j'avais même essayé d'en insérer juste avant et après le "CLEAR"...

**ouskel'n'or** · 16/01/2006, 11h05

Donc, une autre idée bête... As-tu essayé de sélectionner par soft un indice de ton listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listbox.List(0) = true

Syntaxe non garantie, inspirée d'une réponse de bbil la semaine dernière.
(si ça ne marche pas, j'assure qu'il n'y est pour rien...)

A+

**edwg** · 16/01/2006, 11h35

Non, je n'ai pas essayé, d'ailleurs, je ne sais pas du tout de quoi il s'agit, ni comment faire ?...

**ouskel'n'or** · 16/01/2006, 11h49

Il s'agit de sélectionner par défaut un élément de ta liste.

Comment faire ? Comme indiqué...

Mais sans garantie pisk je n'avais jamais vu ça.

A+

**jmfmarques** · 16/01/2006, 11h55

pour sélectionner dans un listbox c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click() 
  List1.Selected(0) = True 
End Sub

**ouskel'n'or** · 16/01/2006, 12h07

Merci jmfmarques, maintenant je m'en souviendrai...

Ça règle ton pb, edwg ?

A+

**edwg** · 16/01/2006, 14h20

Vous allez me taper sur les doigts...
En fait, en tournant mon code un peu dans tous les sens, j'avais fermé mon fichier CLIENT avant l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

J'ai reécrit ma fermeture APRES le ScreenUpdating, et tout va bien...
Je suis désolée, ce n'était pas un problème justifiable, mais vous m'avez bien aidé quand-même, MERCI