[E-03] DialogSheet Problèmes

Version imprimable

22/01/2009, 08h51
asterpc

[E-03] DialogSheet Problèmes
Bonjour,
1) Je dois modifier une dialogsheet. J'ai créé une liste déroulante et j'aimerais qu'elle soit à blanc à l'ouverture de la boite. Comment faire ?

Code:

' DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption")

...?

2) Comment mettre le focus dans une zone d'edition toujours sur une dialogsheet?
Code:

1 2 3 4 Case Else DialogSheets("BDMutEtab").Labels("LibAge").Locked = False DialogSheets("BDMutEtab").Labels("LibAge").Enabled = True DialogSheets("BDMutEtab").[MutEtbAge].Enabled = True
Merci!

1) Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
    Set lst = DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption")
    If lst.ListCount > 0 Then
        For i = lst.ListCount To 1 Step -1
            lst.RemoveItem i
        Next i
    End If
 
' ou plus rapide
 
    DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption").RemoveAllItems

2) Il faut définir l'ordre de tabulation de ton Dialogsheet. Tu cliques-droit sur ta Dialogsheet, et tu cliques sur "ordre de tabulation"
Sinon pour info, pour ton Editbox, tu peux l'appeler par :

Code:

1
2
3
DialogSheets("BDMutEtab").Shapes("MutEtbAge")
'ou
DialogSheets("BDMutEtab").Editboxes("MutEtbAge")

1) Je me suis mal exprimé désolé ; je voudrais que ma liste déroulante pointe à l'ouverture de la boite sur un item en particulier (item à blanc)

Comment faire ?

2) j'ai essayé le EditBoxes après avoir redéfini les ordres de tabulations sur la dialogsheet sans succès :
Le principe est le suivant : à la selection d'un item de la liste déroulante, activation de la zone de saisie MutEtbAge et activation du curseur dedans..rien que du classique!
Code:

1 2 3 4 DialogSheets("BDMutEtab").Labels("LibAge").Locked = False DialogSheets("BDMutEtab").Labels("LibAge").Enabled = True DialogSheets("BDMutEtab").[MutEtbAge].Enabled = True DialogSheets("BDMutEtab").EditBoxes ("MutEtbAge")
merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub initialize_dialogsheet()
    Set lst = DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption")
    lst.RemoveAllItems
    ' ajoute des entrées
    lst.AddItem "salut"
    lst.AddItem "hello"
    ' ajoute un item "vide" (en fait un espace) en 1ere position de la liste
    lst.AddItem " ", 1
    'ou : lst.Selected(1) = True ' définit que le 1er item est sélectionné (car on peut aussi selectionner plusieurs lignes si MultiSelect = True
 
    ' selectionne le 1er item dans la liste
    lst.ListIndex = 1
 
    DialogSheets("BDMutEtab").Show
End Sub

Code:

1
2
3
4
5
6
7
8
9
 
Sub Clic_sur_listbox()
    Set lst = DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption")
    Set edb = DialogSheets("BDMutEtab").EditBoxes("MutEtbAge")
    If Trim(lst.List(lst.ListIndex)) <> "" Then
        edb.Text = lst.List(lst.ListIndex) 'recupere le texte de la listbox
        DialogSheets("BDMutEtab").Focus = edb.Name ' donne le focus a l'editbox
    End If
End Sub

1) la procedure ne marchait pas

Code:

DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption")

n'est pas reconnu

voici ce que j'ai trouvé et qui fonctionne :

Code:

1
2
3
4
5
Sub BDMutEtb_QuandAffichage()
 
  DialogSheets("BDMutEtab").DropDowns("MutEtbDCOption") = 1
 
End Sub

2) ne fonctionne pas également

Code:

1
2
3
4
5
6
7
8
Sub Clic_sur_listbox()
    Set lst = DialogSheets("BDMutEtab").ListBoxes("MutEtbDCOption")
    Set edb = DialogSheets("BDMutEtab").EditBoxes("MutEtbAge")
    If Trim(lst.List(lst.ListIndex)) <> "" Then
        edb.Text = lst.List(lst.ListIndex) 'recupere le texte de la listbox
        DialogSheets("BDMutEtab").Focus = edb.Name ' donne le focus a l'editbox
    End If
End Sub

-------------- je bloque là dessus

Code:

1
2
3
4
5
6
7
8
9
10
Case 1: verouillage de la zone MutEtbAge
DialogSheets("BDMutEtab").Labels("LibAge").Enabled = False
DialogSheets("BDMutEtab").[MutEtbAge].Enabled = False
DialogSheets("BDMutEtab").EditBoxes("MutEtbAge").Text = ""
 
Case Else ' déverouillage de la zone MutEtbAge
DialogSheets("BDMutEtab").Labels("LibAge").Locked = False
DialogSheets("BDMutEtab").Labels("LibAge").Enabled = True
DialogSheets("BDMutEtab").[MutEtbAge].Enabled = True
' comment placer le focus dedans ??

merci

26/01/2009, 10h55
dadavyvy

Mais qu'est-ce qui ne fonctionnait pas?

Code:

DialogSheets("BDMutEtab").Focus = "MutEtbAge"
26/01/2009, 14h35
asterpc

Citation:

Envoyé par dadavyvy

Mais qu'est-ce qui ne fonctionnait pas?

Code:

DialogSheets("BDMutEtab").Focus = "MutEtbAge"

j'ai réessayé et ça fonctionne !

Je pense que le problème venait peut etre de l'appel à Listboxes
L'objet que j'utilise sur le dialogsheets est une "zone de liste déroulante" et non une "zone combinée modifiable".

J'avais comme erreur "La méthode listboxes de la classe dialogsheets a échoué"

En tout cas merci infiniment pour ton aide