Userform avec deux combobox

Version imprimable

19/01/2015, 21h26
dubdub87

2 pièce(s) jointe(s)

Userform avec deux combobox

bonjour

j'ai une form ou une combobox (date) avec en rowsource janvier, février, ect qui doit sélectionnées une feuil selon le mois :

ex : feuil1 janvier
feuil2 février

j'ai fouillait partout sur Internet mais j'ai rien trouver.

et dans la même form une combobox (catégorie) doit sélectionnées dans un des tableau de janvier par exemple soit dans recette divers ou ventes tableaux ou employé etc

pouvez vous m'aider svp

Pièce jointe 166642

Pièce jointe 166643

Bonjour,
La propriété RowSource est une chaîne de caractères qui doit contenir au minimum le nom de la feuille suivi du point d'exclamation et l'adresse de la plage.
Exemple :

Code:

Rowsource = "Janvier!$A$2:$A$500"

ou encore
Code:

1 2 3 4 With Me.cboMember .RowSource = rng.Address(external:=True) .ListIndex = 0 ' Force la sélection du premier enregistrement End With
Dans ce code cboMember est le nom du ComboBox, rng est la variable objet représentant la plage de données et qui est obtenu par cette procédure.
Code:

1 2 3 4 5 6 Set rng = shtMember.Range("A1").CurrentRegion ' Redimensionnement de l'objet rng pour garder la partie Data (à partir de la deuxième ligne) Set rng = shtMember.Range("A1").CurrentRegion With rng Set rng = .Offset(1).Resize(.Rows.Count - 1) End With
Dans cet exemple, shtMember est la propriété CodeName de la feuille

19/01/2015, 21h46
dubdub87

précision

merci de votre attention mais pour que je comprene bien combobox qui se nomme cmdMois doit sélectionnées une feuille et non une colonne
19/01/2015, 23h36
Philippe Tulliez

Bonjour,

Je ne pense pas avoir évoqué une colonne mais bien une plage de données mais il est vrai que mon exemple pouvait prêter à confusion.

Code:

Rowsource = "Janvier!$A$2:$A$500"

Pourrait parfaitement être

Code:

Rowsource = "Janvier!$A$2:$L$500"

La propriété RowSource des contrôles Combobox et ListBox permet d'afficher une liste de données constituées en général de lignes et colonnes donc une plage de cellules et pas une feuille.

1 pièce(s) jointe(s)

Citation:

Envoyé par dubdub87

merci de votre attention mais pour que je comprene bien combobox qui se nomme cmdMois doit sélectionnées une feuille et non une colonne

bonsoir,

je fais un exemple de sélection de mois :
je cree une feuille par mois et aussi une feuille "donnees" qui recois les données du formulaire.
A chaque changement de donnée dans la feuille on active la feuille corespondante :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target Case Feuil4.Range("D2") Worksheets(Feuil4.Range("D2").value).Activate 'case ... 'case ... en fonction de la saisie du formulaire End Select End Sub
que j'installe dans la feuille "donnees"

On peut initialiser les rowsource et controlsource dans les propriétés du combobox ou dans l'initialisation du "userform" :
Code:

1 2 3 4 Private Sub UserForm_Initialize() Me.ComboBox1.ControlSource = "donnees!D2" Me.ComboBox1.RowSource = "donnees!A1:A4" End Sub
Pièce jointe 166668

a vous...

geogeo70

20/01/2015, 07h16
dubdub87

1 pièce(s) jointe(s)

bonjour

je suis vraiment dslé je vous ai mis le fichier pour que vous puissiez me faire un exemple plus concret se fichier n'est pas le définitive c'est un brouillon

merci encore de votre aide.

Pièce jointe 166673
20/01/2015, 09h19
Philippe Tulliez

Bonjour,

Plutôt que placer un fichier à télécharger, il serait préférable que tu expliques ce qui ne va pas et que tu affiches ici la procédure VBA qui te pose un problème .
As-tu un message d'erreur ?
Si oui, quel est le message que tu reçois et quel est son numéro et bien entendu il faut que l'on visualise le code où a lieu cette erreur.

2 pièce(s) jointe(s)

userform...

bonsoir,

voici quelques modif que je ferai, utilisation de votre feuille combo pour mettre les données courantes du formulaire, utiliser les "controlsource" de vos box et " rowsource". il faudra faire les contrôles de saisie sinon... Quand vous choisissez le mois la feuille se sélectionne, elle est initialisée à janvier. Vous aviez mis un espace sur janvier !!! attention il faut les mêmes valeurs de titre...

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
50
51
52
53
54
55
56
Private Sub cmbvalider_Click()
 
Dim ws As Worksheet
Dim newRow As Integer
 
Set ws = ActiveWorkbook.Worksheets(Feuil2.Range("B18").Value)
 
Select Case Me.ComboBox4.Value
Case "RECETTES divers"
    newRow = 2
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
 
    ws.Cells(newRow, 1) = DateSerial(2015, Feuil2.Range("D18").Value, Me.ComboBox3.Value) 'date construite
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    ws.Cells(newRow, 2) = Feuil2.Cells(19, 2).Value
    '.....
    'suite des affectations de données
 
Case "Ventes de Tableaux"
    newRow = 10
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, Feuil2.Range("D18").Value, Me.ComboBox3.Value)
    '.....
    'suite des affectations de données
 
'Case....   les autres cas
 
End Select
 
'ws.Cells(newRow, 2).Value = Me.TextBox4.Value 'objet
'ws.Cells(newRow, 6).Value = Me.TxtSommes.Value
'ws.Cells(newRow, 1).Value = Me.ComboBox3.Value 'jours
End Sub
 
 
Private Sub cmdFermer_Click()
 
Me.Hide
 
End Sub
 
Private Sub ComboBox2_Change()
Worksheets(Me.ComboBox2.Text).Activate
End Sub
 
Private Sub UserForm_Initialize()
ComboBox2.Text = "janvier"
Worksheets(Me.ComboBox2.Text).Activate
'Me.cmdmois.ControlSource = "donnees!D2"
'Me.cmdmois.RowSource = "donnees!A1:A4"
 
End Sub

Pièce jointe 166806

Le fichier :

Pièce jointe 166807

geogeo70

21/01/2015, 07h48
dubdub87

réponses
bonjour

merci pour ton aide, mais sur cette partie du code y a un souci j'ai copier collé dans mon projet pour comprendre :
Code:

1 2 3 4 5 6 7 8 9 Private Sub cmdFermer_Click() Me.Hide End Sub Private Sub ComboBox2_Change() Worksheets(Me.ComboBox2.Text).Activate End Sub
il me met ce qu'il et souligné en jaune "erreur execution : 9"

et là je tourne en rond
21/01/2015, 13h39
geogeo70

bonjour,

le texte du combobox correspond à la feuille sélectionnée donc vérifier si combobox2 est bien initialisé (mettre controlsource et rowsource aux bonnes valeurs) et vérifier si les feuilles demandées existent avec la même orthographe et sans espaces! pour éviter de mauvais choix il faudrait contrôler les saisies...

Dans la feuille combo j'ai ajouté les données du formulaire en cours pour ne pas les affecter directement avant validation (en colonne c les noms en b les valeurs courantes des box et en D18 la conversion des mois en nombre)

De toute façon l'erreur vient du texte donné comme mois... dans combobox2

bon courage!

geogeo70
21/01/2015, 14h48
dubdub87

rep

merci par contre j'ai un souci pour télécharge ce que tu partages userform.xlsm il me met un lien html
22/01/2015, 08h10
dubdub87

1 pièce(s) jointe(s)

bonjours,
Désolé de vous embêter il y a deux erreurs que je ne comprends pas dans le dossier final je vous le fais passer pour que vous puissiez m'expliquer le problème pour le reste je finirais la suite en espérant ne pas vous embêter merci d'avance !!!Pièce jointe 166937

erreur 9

bonjour,

j'ai besoin d'un petit coup de main dans code suivant ce qui est souligné et là je bugs merci du coup de main

erreur 9

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Private Sub cmbvalider_Click()

Dim ws As Worksheet
Dim newRow As Integer

Set ws = ActiveWorkbook.Worksheets(Feuil2.Range("B18").Value)

Select Case Me.ComboBox4.Value
Case "RECETTES divers"
    newRow = 2
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""

    ws.Cells(newRow, 1) = DateSerial(2015, Feuil2.Range("D18").Value, Me.ComboBox3.Value) 'date construite
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    ws.Cells(newRow, 2) = Feuil2.Cells(19, 2).Value
    '.....
    'suite des affectations de données
    
Case "Ventes de Tableaux"
    newRow = 10
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, Feuil2.Range("D18").Value, Me.ComboBox3.Value)
    ws.Cells(newRow, 2) = Feuil2.Cells(19, 2).Value
    ws.Cells(newRow, 3) = Feuil2.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil2.Cells(22, 2).Value
    ws.Cells(newRow, 2) = Feuil2.Cells(23, 2).Value
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    
    '.....
    'suite des affectations de données

Case "Employer"
    newRow = 18
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, Feuil2.Range("D18").Value, Me.ComboBox3.Value)
    ws.Cells(newRow, 2) = Feuil2.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil2.Cells(21, 2).Value
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    ws.Cells(newRow, 5) = Feuil2.Cells(25, 2).Value

    
    'Case....   les autres cas

End Select
'ws.Cells(newRow, 1).Value = Me.ComboBox1.Value
'ws.Cells(newRow, 2).Value = Me.TextBox4.Value 'objet
'ws.Cells(newRow, 6).Value = Me.TxtSommes.Value
'ws.Cells(newRow, 1).Value = Me.ComboBox3.Value 'jours
End Sub


Private Sub cmdFermer_Click()

Me.Hide

End Sub

Private Sub ComboBox2_Change()
Worksheets(Me.ComboBox2.Text).Activate
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm1_Initialize()
ComboBox2.Text = "janvier "
Worksheets(Me.ComboBox2.Text).Activate
'Me.cmdmois.ControlSource = "donnees!D2"
'Me.cmdmois.RowSource = "donnees!A1:A4"

End Sub

22/01/2015, 21h54
clementmarcotte
Bonjour,
Citation:
Envoyé par dubdub87

bonjour,

Code:

1 2 3 4 Private Sub cmbvalider_Click() Dim ws As Worksheet Set ws = ActiveWorkbook.Worksheets(Feuil2.Range("B18").Value)
Tu déclares que ws est un objet Worksheet et tu essaies de l'affecter à un objet Range.

Cela devrait te prendre quelque chose du genre. (Non testé)
Code:

1 2 3 4 dim ws as worksheet set ws = activeworkbook.sheets("Feuil2") dim donnée as double 'à adapter donnée = ws.range("B18").Value
P.S., les règles du forum proscrivent l'utilisation des "normes" de l'écriture des SMS.
22/01/2015, 21h59
SfJ5Rpw8

bonsoir,

vérifie que tu as bien un nom de feuille dans ta cellule b18 rajoute avant ta ligne en erreur :

Code:

msgbox Feuil2.Range("B18").Value

et dis nous si tu as un message d'erreur ou bien un msgbox affichant le nom de ta feuille ...;
23/01/2015, 07h41
dubdub87

1 pièce(s) jointe(s)

Bonjours,

je comprends ce que vous dites mais j'ai essayé de corriger mais là je bogue j'ai essayé une bonne partie de la nuit ça se trouve c'est tous bête mais je n'ai pas trouvé le dossier. Vous pouvez le trouver dans la conversation un peu plus haut il s'intitule 2014.xlsm je vous remercie de votre aide

Pièce jointe 167042
23/01/2015, 17h03
geogeo70

1 pièce(s) jointe(s)
bonjour,
En relisant les propositions et ton fichier, je vois quelques erreurs :

1) Non dubdub87, dans Set ws = ActiveWorkbook.Worksheets(Feuil2.Range("B18").Value) je pointe bien sur une feuille , c'est le nom de la feuille qui est en Feuil2.Range("B18").Value, controlsource du Combobox2.

2) C'est pour cela qu'il y a des erreurs comme je te l'avais dit plus haut, Beaucoup de noms de feuilles n'étaient pas écrits comme dans la feuille Combo (des espaces, accents, Majuscules...). ça aurait été plus simple en indexant les feuilles...

2) Dans le bouton "ajouter" ce n'est pas le caption mais le nom qu'il faut utiliser : saisie...
Code:

1 2 3 4 5 Sub Ajouter_cliquer() Feuil2.Activate Feuil15.Range("B18").Value = "Janvier" Saisie.Show End Sub
3) J'initialise le combobox2 (mois) dans le bouton "ajouter" avant le saisie.show ainsi la page "Janvier" apparaît en même temps...

Je te joins un fichier qui fonctionne pour les mois je n'ai pas testé le reste. Je pense qu'il faudrait rendre invisible les données en fonction de la catégorie choisie initialement ne laisser que catégorie, mois et jour. A la saisie de la catégorie afficher les box liées à cette catégorie.

Bonne continuation...

geogeo70

le fichier :Pièce jointe 167096