Discussion :

[jamelie]

Bonjour,
je dispose d'une userform sur laquelle ul y a un objet multipage dans lequel il y a un autre objet multipage. jusque la j'espère que je suis claire.les données que je rentre dans ma userform sont renvoyées dans une feuille excel nommée bdd1. ces données sont chargée dans ma userform quand on l'ouvre. le problème c'est que ma userform ne charge que les données du premier onglet et du premier sous onglet des multipages.
Je mets un bout de code pour que ce soit un peu plus clair

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
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 ' le problème est ici
With BDD1
CurrentPanelNo = base.SelectedItem.Index
v = Controls("moi" & base.SelectedItem.Name).SelectedItem.Index
j = v
If CurrentPanelNo = 0 Then
    If v = 0 Then
        Controls("PR" & CurrentPanelNo & v & "0") = .Cells(Date1Row, 4 + j)
        Controls("PR" & CurrentPanelNo & v & "1") = .Cells(Date1Row, 7 + j)
        Controls("PR" & CurrentPanelNo & v & "2") = .Cells(Date1Row, 10 + j)
...

Comment faire en sorte que tous les onglets soient selectionnées et pas seulement le premier.
Si vous avez des questions y a pas de problème.
Merci beaucoup
Amélie


Petite précision : dans ma userform il y a 3 onglets. chaque onglet a lui même 3 onglets et dans chacun d'entre eux il y a environ 30 textBox à renseigner

[alsimbad]

bonjour amélie
ton probleme est la ou tu dis, mais juste parce que tu l'as mis là

Code :

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

1
2
3
If Controle_Donnees(CurrentPanelNo) = False Then Exit Sub
If Not (PremiereOuverture) Then Sauvegarde (CurrentPanelNo) Else PremiereOuverture = False
CurrentPanelNo = base.SelectedItem.Index ' le problème est ici

tu le teste avant de le définir
essaye plutot

Code :

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

1
2
3
CurrentPanelNo = base.SelectedItem.Index
If Controle_Donnees(CurrentPanelNo) = False Then Exit Sub
If Not (PremiereOuverture) Then Sauvegarde (CurrentPanelNo) Else PremiereOuverture = False

[jamelie]

j'ai fait ce que tu m'as dit. pour ce qui est d'envoyer les données dans ma feuille tout va bien. mais, il y a toujours un mais ca devient enervant, quand je relance ma userform les données du premier onglet apparaissent mais pas ceux du 2ème.

[alsimbad]

oui, mais là, je commence a avoir du mal a te suivre.

les données du premier onglet apparaissent mais pas ceux du 2ème

je ne vois pas de quelle données tu parles. j'ai bien ton fichier, mais a aucun moment tu n'envoie de données vers la userform. ou alors joint la derniere mouture de ton fichier

[jamelie]

Voici la dernière version du fichier.
Pièce jointe 11963
Ce que je voulais dire c'est que s'il y a des données préalablement enregistrées dans la feuille excel quand je lance la userform les données du premier onglet apparaissent et quand je clique sur le deuxième onglet il n'y en a aucune.
Merci de ton aide.
Amélie

[jamelie]

Re-bonjour

J'ai essayé avec les select case comme tu me l'avais montré Alsimbad mais le problème est toujours le même. J'ai testé mon code pas à pas avec F8 et en fait il passe sur toutes les lignes de case "X" et ensuite ca va directement à End Select sans passer par les autres lignes:

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
 
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
Select Case base.SelectedItem.Index
    Case 0
    Select Case moiA.SelectedItem.Name
        Case "X":
        j = 0
        v = 0
        Controls("PR" & CurrentPanelNo & v & "0") = .Cells(Date1Row, 4 + j)
        Controls("PR" & CurrentPanelNo & v & "1") = .Cells(Date1Row, 7 + j)
        .....
 
        Case "Y":
        j = 1
        v = 1
       Controls("PR" & CurrentPanelNo & v & "0") = .Cells(Date1Row, 4 + j)
        Controls("PR" & CurrentPanelNo & v & "1") = .Cells(Date1Row, 7 + j)
        .....
   End Select
....

J'arrive pas à trouver d'ou ca peut bloquer. Si quelqu'un y voit plus clair que moi n'hésitez pas.

Amélie