Multipage et combobox

Version imprimable

04/12/2015, 12h05
Stéphanie57

Multipage et combobox

Bonjour,

Je souhaites à l'aide d'une liste dans un combobox activer un onglet de multipage dans un userform.

Exemple : si je sélectionne le mot "Alimentation semaine" dans mon combobox, j'aimerai qu'il active automatiquement l'onglet Repas qui se trouve dans mon Userform

merci les amis

bonjour,

Code:

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Click()
Me.MultiPage1.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "0;100"
Me.ComboBox1.AddItem "0" : Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = "toto"
Me.ComboBox1.AddItem "1" : Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = "titi"
End Sub

04/12/2015, 13h23
r.morel
Salut,
Tu dois utiliser l’événement Click de ta combobox : https://msdn.microsoft.com/en-us/lib...=vs.60%29.aspx

Exemple :
Code:

1 2 3 4 5 6 Private Sub Combo1_Click () If Combo1.Text = "Chardonnay" Then Text1.Text = "Chardonnay is a medium-bodied _ white wine." End If End Sub
Ensuite tu dois tu dois activer ton onglet :

Code:

TabControl1.SelectedIndex = numero_de_longlet
04/12/2015, 13h23
Gado2600

Bonjour,

Pour afficher une page en particulier, il faut utiliser :

Code:

Me.MultiPage1.Value = 1

La valeur numérique correspond au numéro de la page (en commençant par 0)

Dans ta combobox, je te conseille de mettre dans une colonne à l'intérieur, le numéro de ta page en question.
Ainsi, sur un événement de mise à jour de la valeur, tu liras :

Code:

me.combobox.list(me.combobox.listindex, x)

listindex te retourne la position de ta valeur dans ta combobox (ligne) et x est la colonne que tu souhaites récupérer.

Cordialement,
07/12/2015, 10h04
Stéphanie57

1 pièce(s) jointe(s)

FICHIER EN PIECE JOINTE

Effectivement ce n'est pas facile sans le fichier joint, j'ai tout de même essayé d'adapter vos modules à mon problème et malheureusement je n'ai pas réussi.

Si vous pouviez m'aider à régler ce problème, je vous remercie par avance
07/12/2015, 10h28
Invité

Bonjour,
ta colonne G représentent tes compte d'imputation, mais on ne peut pas définir de rubrique, modifies ta feuille pour prendre en compte cette rubrique!

G H

Compte d'Imputation Onglet

REMBOURSEMENT REPAS REPAS

AUTRES TIERS PAYANTS(REPAS) REPAS

ainsi on connait le compte et l'onglet! et ce que je t'ai donné plus haut est valide!

Suite

C'est bien de l'onglet BDD dont tu me parles ?

  A           B              C             D                        E                            F                       G                         H
SITE        VIDE          JOURNAL         VIDE                   VENTILATION                    VIDE            COMPTE D'IMPUTATION              VIDE            ETC...

07/12/2015, 10h56
Invité

Dans ton onglet BDD, il y a les compte d'imputation mais comment fait on le lien avec le multipages?

rajoute une colonnes pour identifier l'onglet du multipage!

en [G] on trouve compte d'imputation
en [H] la rubrique d'imputation (Onglet MultiPages)
07/12/2015, 11h04
Stéphanie57

J'ai modifiée mon tableau dans l'onglet BDD en mettant à côté de la colonne compte d'imputation Onglet, puis j'ai copiée ta macro en modifiant bien sur le nom de la combobox aux bons endroits, et il se passe la chose suivante :

Ma liste initial des comptes d'imputation ne s'affiche plus et rien ne se passe...

Je dois la nommer comment la colonne qui est à côté de la colonne compte d'imputation ?

Onlget ou multipage1 pour qu'il puisse la reconnaître ?

Je suis désolée d'être insistante et surtout de ne pas comprendre, je suis persuadée que c'est pas compliqué :(

Code:

1
2
3
4
5
6
7
8
Me.CB_Compte_Debit_1.Clear
 
    Me.CB_Compte_Debit_1.ColumnCount = 2
    Me.CB_Compte_Debit_1.ColumnWidths = "0;100"
 
    For J = 3 To .Range("G" & .Rows.Count).End(xlUp).Row
         Me.CB_Compte_Debit_1.AddItem .Range("H" & J): Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListCount - 1, 1) = .Range("G" & J)
    Next J

Code:

1
2
3
4
5
6
Private Sub CB_Compte_Credit_1_Click()
Dim i As Integer
For i = 0 To Me.MultiPage1.Pages.Count - 1
    If Me.CB_Compte_Credit_1.List(Me.CB_Compte_Credit_1.ListIndex, 0) = Me.MultiPage1.Pages(i).Caption Then Me.MultiPage1.Value = i: Exit For
Next
End Sub

07/12/2015, 11h37
Stéphanie57

1 pièce(s) jointe(s)

Je viens de copier le nouveau module et rien ne se passe.

Est-ce que les test vous les faites sur le fichier ? parceque chez moi, rien ne se passe. Je crois que je vais jeter l'éponge, en tout les cas merci beaucoup pour votre soutien et votre patience surtout.

Cordialement

Voilà ce que cela me donne, il n'y a plus rien dans la combobox

Ce que je souhaite avoir exactement, c'est uniquement que lorsque je tape dans la combobox le compte "ALIMENTATION SEMAINE" qu'excel me redirige AUTOMATIQUEMENT vers l'ONGLET de l'USF REPAS.
07/12/2015, 11h48
Stéphanie57

1 pièce(s) jointe(s)

Reussi MAIS

J'ai enfin réussi à bien structurer le code mais lorsque je sélectionne le compte "'ALIMENTATION SEMAINE" un message d'erreur apparaît :

Voilà la capture d'écran
07/12/2015, 12h00
Invité

j'ai mis en nom d'onglet du multipage la cellule Me.CB_Compte_Debit_1.AddItem .Range("H" & J) mais je ne sais pas si c'est bien la colonne H chez toi!

en tous les cas la CB_Compte_Debit_1 sur l'onglet crédit du multipage contient bien les valeur?
07/12/2015, 12h34
Stéphanie57

Je vous confirme bien que les listes des comptes que ça soit dans l'onglet debit ou dans l'onglet crédit de 'luserform, les listes sont bien affichés, mais lorsque je sélectionne "ALIMENTATION SEMAINE" j'ai ce message d'erreur "ERREUR DE COMPILATION" d'une part, et d'autres part je confirme bien que ma colonne H est réservée au mot REPAS qui lui va permettre d'activer l'onglet REPAS de l'USF.

Je pense sincèrement avoir suivi à la lettre vos recommandations, mais le plus simple ça ne serait pas de me renvoyer votre fichier ? vu que ça marche très bien chez vous

Je commence à me poser la question suivante, si ma demande est-elle possible avec vba ?

reprenons

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Init_Combobox()
 Me.CB_Compte_Debit_1.Clear
 
    Me.CB_Compte_Debit_1.ColumnCount = 2
    Me.CB_Compte_Debit_1.ColumnWidths = "0;100"
 
    For J = 3 To .Range("G" & .Rows.Count).End(xlUp).Row
         Me.CB_Compte_Debit_1.AddItem "REPAS": Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListCount - 1, 1) = .Range("G" & J)
    Next J
 
 Me.CB_Compte_Credit_1.Clear
    Me.CB_Compte_Credit_1.ColumnCount = 2
    Me.CB_Compte_Credit_1.ColumnWidths = "0;100"
 
    For J = 3 To .Range("G" & .Rows.Count).End(xlUp).Row
         Me.CB_Compte_Credit_1.AddItem "REPAS": CB_Compte_Credit_1.List(Me.CB_Compte_Credit_1.ListCount - 1, 1) = .Range("G" & J)
    Next J

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CB_Compte_Debit_1_Change()
Dim i As Integer
For i = 0 To Me.MultiPage1.Pages.Count - 1
    If Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListIndex, 0) = Trim(Me.MultiPage1.Pages(i).Caption) Then Me.MultiPage1.Value = i: Exit For
Next
End Sub
 
Private Sub CB_Compte_Credit_1_Click()
 
Dim i As Integer
For i = 0 To Me.MultiPage1.Pages.Count - 1
    If Me.CB_Compte_Credit_1.List(Me.CB_Compte_Credit_1.ListIndex, 0) = Trim(Me.MultiPage1.Pages(i).Caption) Then Me.MultiPage1.Value = i: Exit For
Next
End Sub

Citation:

Envoyé par Stéphanie57

Je commence à me poser la question suivante, si ma demande est-elle possible avec vba ?

chez moi ça marche sens problème

07/12/2015, 13h30
Stéphanie57

Suite

Oui je suis d'accord, j'aimerai vraiment reprendre pour bien comprendre. Je dois finaliser avant jeudi, j'ai une réunion importante et je veux vraiment maitriser cet aspect des multipages.

J'ai donc copier coller vos codes, je n'ai plus de message d'erreur, parfait. Mais le code ne fait pas ce que je veux au final, rappellez-vous, que lorsque je sélectionne le compte "ALIMENTATION SEMAINE" dans le combobox dans l'userform Débit, je souhaite qu'il aille automatiquement dans l'onglet REPAS de l'userform. Je sélectionne le compte, et hop il va dans l'onglet Repas pour que je puisse remplir d'autres informations.

Lorsque vous me dites que chez vous ça marche, qu'est ce qu'il se passe lorsque vous sélectionner le compte 'ALIMENTATION SEMAINE" ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Me.CB_Compte_Debit_1.Clear
 
    Me.CB_Compte_Debit_1.ColumnCount =' ici je aille mon combo sur 2 colonne
    Me.CB_Compte_Debit_1.ColumnWidths = "30;100" 'ici je défini la largeur de mes colonne précédemment    "0;100" pour que la première colonne soit invisible
 
    For J = 3 To .Range("G" & .Rows.Count).End(xlUp).Row
         'Me.CB_Compte_Debit_1.AddItem la colonne H: Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListCount - 1, 1) = .Range("G" & J)
         Me.CB_Compte_Debit_1.AddItem "REPAS": Me.CB_Compte_Debit_1.List(Me.CB_Compte_Debit_1.ListCount - 1, 1) = .Range("G" & J)
    Next J
 
 Me.CB_Compte_Credit_1.Clear
    Me.CB_Compte_Credit_1.ColumnCount = 2
    Me.CB_Compte_Credit_1.ColumnWidths = "30;100"

maintenant si tu test tu voie dans ta liste les 2 valeurs REPAS | AUTRES TIERS PAYANTS(REPAS)

07/12/2015, 13h57
Stéphanie57

Je suis désolé, je viens de remplacer le Init_Combobox par celui de ci-dessus, et rien ne se passe comme vous le dites...Il ne se passe rien.

Je pense que je comprendrai mieux avec votre fichier...

Je pense avoir louper une action ou mettre trompée dans un des modules...Franchement depuis ce matin j'essaye de comprendre, je me sens vraiment nul
07/12/2015, 14h16
Stéphanie57

rdurupt

Merci encore pour ton aide rdurupt, et ta patience.

On vient de m'aider sur un autre site.

Cordialement
07/12/2015, 14h46
Stéphanie57

Suite

Je viens de re-tester ton code et effectivement il fonctionne aussi, il fallait simplement mettre dans la colonne H, les numéros de pages, chose que je n'avais pas compris tout de suite...

Merci encore

G	H
Compte d'Imputation	Onglet
REMBOURSEMENT REPAS	REPAS
AUTRES TIERS PAYANTS(REPAS)	REPAS