Discussion :

[dubdub87]

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

[Philippe Tulliez]

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 :

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

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

ou encore

Code :

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

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 :

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

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

[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

[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 :

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

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

Pourrait parfaitement être

Code :

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

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.

[geogeo70]

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 :

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

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 :

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

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

a vous...

geogeo70

[dubdub87]

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.

essais.xlsm

[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.

[geogeo70]

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 :

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
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

Le fichier :

userform.xlsm

geogeo70

[dubdub87]

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 :

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

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

[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

[dubdub87]

merci par contre j'ai un souci pour télécharge ce que tu partages userform.xlsm il me met un lien html

[dubdub87]

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 !!!2014.xlsm

[dubdub87]

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 :

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
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

[clementmarcotte]

Bonjour,

bonjour,

Code :

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

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 :

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

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.

[SfJ5Rpw8]

bonsoir,

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

Code :

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

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 ...;

[dubdub87]

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

[geogeo70]

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 :

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

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 :2014 - Copie.xlsm