[VBA-E] Problème Select case

**jamelie** · 10/04/2007, 14h06

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.

**ouskel'n'or** · 10/04/2007, 14h11

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

A+

**jamelie** · 10/04/2007, 14h28

voici un bout de mon code:

Code :

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

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.

**jamelie** · 10/04/2007, 14h34

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 :

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

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

**jamelie** · 10/04/2007, 14h49

ca fonctionne si je mets ca:

Code :

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

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

**alsimbad** · 10/04/2007, 16h22

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 :

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

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

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 :

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

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

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 :

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

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.

**alsimbad** · 10/04/2007, 19h06

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 :

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

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

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 :

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

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

**jamelie** · 11/04/2007, 10h34

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

**alsimbad** · 11/04/2007, 18h17

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

Code :

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

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

**alsimbad** · 11/04/2007, 18h33

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

**jamelie** · 12/04/2007, 09h27

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

**jamelie** · 12/04/2007, 10h50

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 :

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

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

**jamelie** · 12/04/2007, 11h09

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 :

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

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 :

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

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

**alsimbad** · 12/04/2007, 12h21

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

[VBA-E] Problème Select case

Macros et VBA Excel

Discussions similaires

Partager

Partager