[VBA-E] Problème Select case

Version imprimable

10/04/2007, 14h06
jamelie

[VBA-E] Problème Select case

Bonjour,
j'ai recherché dans les tutos et dans les formus une aide à mon problème mais je n'ai pas trouvé comment le résoudre.
Je m'explique. je dispose d'une userform dans laquelle j ai placé un objet multipage au sein duquel j ai placé un autre objet multipage. Je sais que si je fait select case base.SelectedItem.name et case "page1" ... je peux renvoyer les données entrées dans mon interface dans une feuille excel. Mais la il faut que je selectionne un onglet puis que je fasse case "petit onglet" etc..
Est il possible de faire deux select case à la suite(j'ai essayé et ca ne fonctionne pas mais l'erreur vient surement de moi) ou y a t'il une solution pour que les données entrées dans la userform soient renvoyées sur ma feuille excel?
J'espère avoir été claire. Si ce n'est pas le cas et que vous voulez plus de détails dites le moi.
Merci.:P
10/04/2007, 14h11
ouskel'n'or

Citation:

Envoyé par jamelie

J'espère avoir été claire. Si ce n'est pas le cas et que vous voulez plus de détails dites le moi.

Tu serais encore plus claire si tu mettais ton bout de code concernant tes essais. A s'rait 'âchement plus facile pour nous de voir, voire corriger, ton erreur ;) On ne serait pas obliger d'inventer des noms de feuilles, d'onglets et autres variables :lol:
A+

voici un bout de mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub base_change()
 
If Controle_Donnees(CurrentPanelNo) = False Then Exit Sub
If Not (PremiereOuverture) Then Sauvegarde (CurrentPanelNo) Else PremiereOuverture = False
 
CurrentPanelNo = base.SelectedItem.Index
 
With BDD1
' BDD1 est ma feuille excel ou sont renvoyées les données
Select Case base.SelectedItem.Name
    Case "page1":
    Select Case MultiPage2.SelectedItem.Name
        Case "Page4":
            PRE100.Text = .Cells(Date1Row, 4)
            PRE101.Text = .Cells(Date1Row, 7)
            PRE102.Text = .Cells(Date1Row, 10)
            PRE103.Text = .Cells(Date1Row, 13)
            ...
    End Select
End Select
End With
End Sub

En espérant que ca aidera.

je me suis trompée de code. j'ai envoyé celui qui sert à faire réapparaitre les données lors du lancement. le bon code c'est celui-ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Sauvegarde(PanelIndex As Integer) With BDD1 Select Case base(PanelIndex).Name Case "page1": Select Case MultiPage2(PanelIndex).Name Case "Page4": .Cells(Date1Row, 4) = PRE100.Text .Cells(Date1Row, 7) = PRE101.Text .Cells(Date1Row, 10) = PRE102.Text ... End select End Select End with End sub
Ca revient presque au même mais c'est l'inverse du code de tout à l'heure.
Sorry

ca fonctionne si je mets ca:
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Sauvegarde(PanelIndex As Integer) With BDD1 For Each ctrl In Me.base(PanelIndex).Controls If TypeName(ctrl) = "TextBox" Then Select Case MultiPage2(PanelIndex).Name Case "Page4": .Cells(Date1Row, 4) = PRE100.Text ...
le problème c'est que ca me prend plus d'une minute pour enregistrer et ca me fait bugger l'ordi. en plus j'ai 200TextBox dans ma userform. Y a t'il un moyen d'éviter ca?
Merci encore

salut
j'ai une bonne nouvelle, j'ai trouvé pourquoi ton code ne fonctionne pas bien qu'il soit bien écris. j'ai fais ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Private Sub CommandButton1_Click() With BDD1 Select Case base(panelindex).SelectedItem ' MsgBox Case base(panelindex).SelectedItem Case "printemps": Select Case MultiPage2(panelindex).Name Case "avril": MsgBox "au printemps , en avril, c'est la sainte thérèse des angoisses" Case "mars" MsgBox " au printemps en mars , c'est à alsimbad qu'il faut souhaiter un bon anniversaire" Case "mai" MsgBox " au printemps en mai fais ce qu'il te plait" End Select Case "hiver" Select Case MultiPage5(panelindex).Name Case "decembre": MsgBox "bientot noel" Case "janvier" MsgBox " je me met au régime" Case "fevrier" MsgBox " 2 jours de moins a bosser" End Select End Select End With End Sub
je pense que le premier probleme de ton code c'est

Citation:

je dispose d'une userform dans laquelle j ai placé un objet multipage (appelons le A)au sein duquel j ai placé un autre objet multipage. (appelons le B)

ells ont beau se ressembler, la multipage B que tu a placé sur le premier onglet du multipage A ne peut pas porter le même nom que celle que tu as placer sur le deuxieme, donc ta boucle qui l'appelle muticase2 ne vas pas le trouvé
Code:

1 2 3 4 Select Case base(PanelIndex).Name Case "page1": Select Case MultiPage2(PanelIndex).Name Case "Page4":
mais en plus, ta boucle comme la mienne lui demande d'agir selon le cas du nom de l'onglet, mais rien ne lui dis que c'est l'onglet selectionné et donc a chaque fois, il analyse le premier onglet même si ce n'est pas celui sur lequel tu te trouve.
par contre , mauvaise nouvelle, je n'ai pas trouvé la solution. du moins, j'ai dégrossi le sujet, je vois coment ça devrais marcher mais je ne capte pas le pourquoi ça ne marche pas. dans l'aide j'ai trouvé ça
Citation:
SelectedItem, propriété, TabStrip, contrôle, Tab, objet, Tabs, collection, exemple
L'exemple suivant accède de plusieurs façons à un onglet d'un contrôle TabStrip à l'aide :
de la collection Tabs et d'un index numérique,
de la collection Tabs et d'un index de chaîne,
de la collection Tabs et de la méthode Item,
du nom d'un contrôle Tab individuel,
de la propriété SelectedItem.
Pour utiliser cet exemple, copiez le code suivant dans la partie Déclarations d'une feuille et vérifiez que celle-ci contient un contrôle TabStrip nommé TabStrip1.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Private Sub UserForm_Initialize() Dim TabName As String For i = 0 To TabStrip1.Count - 1 'Using index (numeric or string) MsgBox "TabStrip1.Tabs(i).Caption = " _ & TabStrip1.Tabs(i).Caption MsgBox "TabStrip1.Tabs.Item(i).Caption = " _ & TabStrip1.Tabs.Item(i).Caption TabName = TabStrip1.Tabs(i).Name MsgBox "TabName = " & TabName MsgBox "TabStrip1.Tabs(TabName).Caption = " _ & TabStrip1.Tabs(TabName).Caption MsgBox "TabStrip1.Tabs.Item(TabName)_ .Caption = " _ & TabStrip1.Tabs.Item(TabName).Caption 'Use Tab object without referring to Tabs 'collection If i = 0 Then MsgBox "TabStrip1.Tab1.Caption = " _ & TabStrip1.Tab1.Caption ElseIf i = 1 Then MsgBox "TabStrip1.Tab2.Caption = " _ & TabStrip1.Tab2.Caption EndIf 'Use SelectedItem Property TabStrip1.Value = i MsgBox "TabStrip1.SelectedItem.Caption = " _ & TabStrip1.SelectedItem.Caption Next i End Sub
et le probleme c'est que tabs(i) provoque une erreur 438, methode ou propriété non géré par cet objet, et que du coup, je ne vois pas comment aller plus loin.

Bon, le probleme est ardu, mais je crois que je l'ai eu. en fait tabs c'est index en français
alors, comme je pouvais pas refaire ton code, j'ai inventé mais c'est la même chose, imagine
une usf, une premiere multipage nommée saisons avec 4 feuille printemps hiver été automne
dans chaque page une multipage nommée moiété, moiprintemps,moihiver et moiautomne contenant chacune trois feuille mars avril mai pour le printemps etc etc .. donc ça donnerais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 Private Sub CommandButton1_Click() MsgBox saisons.SelectedItem.Index Select Case saisons.SelectedItem.Index Case 0 Select Case Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Index Case 0 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 1 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 2 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 3 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name End Select Case 1 Select Case Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Index Case 0 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 1 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 2 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 3 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name End Select Case 3 Select Case Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Index Case 0 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 1 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 2 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 3 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name End Select Case 4 Select Case Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Index Case 0 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 1 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 2 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name Case 3 MsgBox Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name End Select End Select End Sub
bien sur, j'ai mis des msgbox pour contrôler mais c'est la que tu rempli tes cellules bien sur
:D :D :D :yaisse2:
mais je pense que tu serais bien avec un code plus simple, je te fais montrer
pour ce code , j'ai ajouté 3 textbox par feuille dont le nom est en fonction des index des multipages
textbox02A : 0 est l'index de la premiere multipage la saison
2 est l'index de la multipage de cette saison ou tu a selectionné le mois
A sert a identifier tes textbox quand tu les crée. si tu en fais trois : ABC
si tu en fais 4 ABCD
pour les besoins de la cause, je n'ai fais que deux feuilles, c'est été, juillet
et hiver, décembre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton2_Click() MsgBox saisons.SelectedItem.Name & Chr(10) & Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Name MsgBox saisons.SelectedItem.Index & Chr(10) & Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Index u = saisons.SelectedItem.Index v = Controls("moi" & saisons.SelectedItem.Name).SelectedItem.Index w = u & v MsgBox w Date1Row = 1 Sheets(1).Cells(Date1Row, 4) = Controls("textbox" & w & "a") Sheets(1).Cells(Date1Row, 7) = Controls("textbox" & w & "b") Sheets(1).Cells(Date1Row, 10) = Controls("textbox" & w & "c") End Sub
je te joins le fichier pour que ce soit plus clair
pour les besoins de la cause, je n'ai fais que deux feuilles, c'est été, juillet
et hiver, décembre

voila voila, avec ça tu devrais t'en sortir

11/04/2007, 10h34
jamelie

Bonjour,
je joins un bout de mon fichier. J'ai essayé d'appliquer ton programme mais ca me met erreur objet requis dans la phase de chargement de ma USF. Je prefererais garder ton programme car il est plus court et doit mettre moins de temps à se lancer que le mien.
Merci beaucoup de l'aide que vous m'apportez

salut jamellie
il va falloir que tu prenne le temps de corriger deux erreurs et ça devrais aller
la premiere
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_initialize() Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _ "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF PremiereOuverture = True base.Value = 0 base_change End Sub
tu envoie le code ver la macro qui regarde quel sont les onglets selectionné avant de laisser la main a l'utilisateur pour selectionner un onglet. il vaut mieux que tu assoscie ce calcul au bouton enregistrer, ou a un autre que tu appellerai valider par exemple.
ensuite, tu t'es trompé dans le nom des textbox
dans une multipage, le premier onglet porte l'index 0, ce qui fait que la textbox qui se trouve sur l'onglet A dans la feuille X s'appelle
PRE000 et non PRE100 et la suivante s'appelle PRE 001 et non PRE101
feuille A feuilleX = 00
FeuilleA feuilleY = 01
FeuilleB feuilleX = 10
feuilleB feuileY = 11
feuilleB feuilleZ = 12
je regarde un peu ton code en attendant, envoie moi le fichier dés que tu a corrigé ça

11/04/2007, 18h33
alsimbad

jamelie, j'oubliais et c'est important
tu a plus que 9 textbox dans chaque page, donc si tu choisis de prendre un chiffre comme dernier identifiant plutot que ABCD comme j'avais fais, tu ne dois pas te tromper
apres 109, ce n'est pas 110 mais 1010
10 9 correspond a feuille B feuille X 9eme textbox
10 10 correspond a feuille B feuille X 10 eme textbox
11 0 correspond a feuille B feuille Y 0 ieme textbox
12/04/2007, 09h27
jamelie

bonjour,
le base_change il faut que je l'enlève de l'initialisation de la USF? C'est ca que tu veux dire.
J'ai renommé toutes mes textbox comme tu m'as dit de le faire. Je réecris le code comme tu me l'as indiqué et je te dis ce que ca donne.
Merci beaucoup de ton aide.
Amélie

Par contre petit probleme quand je lance la USF ca fonctionne mais quand j'enregistre ca bug: j'ai les msgbox qui apparaissent sans s'arreter même en cliquant sur ok à chaque fois elles reviennent. Le programme m'oblige à fermer excel avec ctrl+alt+suppr.
Code:

1 2 3 4 5 6 7 8 9 With BDD1 CurrentPanelNo = base.SelectedItem.Index v = Controls("moi" & base.SelectedItem.Name).SelectedItem.Index w = CurrentPanelNo & v MsgBox w Controls("PR" & w & "0") = .Cells(Date1Row, 4) Controls("PR" & w & "1") = .Cells(Date1Row, 7) Controls("PR" & w & "2") = .Cells(Date1Row, 10)
Est ce que ce serait mieux de faire une boucle for en disant que pour currentPanelNo = 0 et pour v = 0 les données vont se classer à tel ou tel endroit, etc. Car en plus les données s'écrivent les unes par dessus les autres quelque soit la valeur du w.
Amelie

C'est bon en utilisant ton programme et en faisant un if par dessus tout fonctionne et rapidement.
Voici le code pour sauvegarder si ca peut aider quelqun.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Sauvegarde(PanelIndex As Integer)
With BDD1
MsgBox base.SelectedItem.Name & Chr(10) & Controls("moi" & base.SelectedItem.Name).SelectedItem.Name
MsgBox base.SelectedItem.Index & Chr(10) & Controls("moi" & base.SelectedItem.Name).SelectedItem.Index
CurrentPanelNo = base.SelectedItem.Index
v = Controls("moi" & base.SelectedItem.Name).SelectedItem.Index
'w = CurrentPanelNo & v
'MsgBox w
If CurrentPanelNo = 0 Then
    If v = 0 Then
 
        .Cells(Date1Row, 4) = Controls("PR" & CurrentPanelNo & v & "0")
        .Cells(Date1Row, 7) = Controls("PR" & CurrentPanelNo & v & "1")
        .Cells(Date1Row, 10) = Controls("PR" & CurrentPanelNo & v & "2")
        .......
    End If
End If
End with
End sub

et le code de modif de la USF

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub base_change()
If Controle_Donnees(CurrentPanelNo) = False Then Exit Sub
If Not (PremiereOuverture) Then Sauvegarde (CurrentPanelNo) Else PremiereOuverture = False
CurrentPanelNo = base.SelectedItem.Index
 
With BDD1
CurrentPanelNo = base.SelectedItem.Index
v = Controls("moi" & base.SelectedItem.Name).SelectedItem.Index
'w = CurrentPanelNo & v
'MsgBox w
If CurrentPanelNo = 0 Then
    If v = 0 Then
 
        Controls("PR" & CurrentPanelNo & v & "0") = .Cells(Date1Row, 4)
        Controls("PR" & CurrentPanelNo & v & "1") = .Cells(Date1Row, 7)
        Controls("PR" & CurrentPanelNo & v & "2") = .Cells(Date1Row, 10)
    End If
End If
End with
End sub

Merci beaucoup de m'avoir aidé

Amélie

12/04/2007, 12h21
alsimbad

Bon, ben c'est bien tout ça. si tu es satisfaite, marques résolu.
tu peux aussi enlever les deux msgbox, ils n'étaient la que pour la comprehention
bonne journée