Discussion :

[jackborogar]

Bonjour à tous,

Par soucis de claireté, je vous ai joint un fichier.
Dedans se trouve deux feuilles.
La première (Achat) regroupe un bouton et une liste de tableau d'usine. La seconde (Couverture) regroupe un tableau récapitulatif de ma couverture ainsi qu'un graphique explicatif.

En appuyant sur le bouton (feuille Achat), on dispose de trois options:

La première étant un ComboBox
La deuxieme est OptionButton affichant le tableau récapitulatif de ma deuxieme feuille Couverture par spreadsheet, et la troisième est également un OptionButton affichant le graphique explicatif.

Ce que j'aimerai et qui me pose maintenant problème est:

- De remplir mon ComboBox avec le nom de chq usine présente sur la feuille (en réalité il y en a beaucoup plus). Il y a toujours 2 lignes qui sépare un tableau d'usine à un autre. Ou sinon il y a + 21 lignes d'un nom à un autre.

- Une fois l'usine sélectionner avec le ComboBox, remplir ma seconde page avec les valeurs de présent tableau .

Attention mon tableau est rempli ici que pour la première usine.

Je vous remercie d'avance de votre aide,

Bien Cordialement,

[jackborogar]

Ok pour compléter mon ComboBox j'ai initialiser mon Userform avec ce bout de code qui fonctionne à merveille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim i 
Dim DValue
 
    DValue = Sheets("Achat").Range("C" & Rows.Count).End(xlUp).Row
 
    For i = 9 To DValue Step 21
 
            ComboBox1.AddItem Sheets("Achat").Cells(i, 3)
 
    Next i
End Sub

Maintenant plus qu'a actualiser mon tableau avec le choix de mon ComboBox pour ainsi avoir les bonnes baleurs

[jackborogar]

Désolé du dérangement, j'ai finalement réussi à effectuer ce que je voulais faire, je glisse mon code pour ceux que sa intéresse.

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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
Public Img As Control
 
 
Private Sub CbExit_Click()
 Unload Me
End Sub
 
Private Sub ComboBox1_Change()
 
Label1.Visible = False
On Error Resume Next
    Me.Controls.Remove (Img.Name)
    On Error GoTo 0
Me.Spreadsheet1.Visible = False
Set Rg = Sheets("Achat").Range("C:C").Find(what:=UserForm1.ComboBox1.Text, lookat:=xlWhole)
 
If UserForm1.ComboBox1 = "" Then
 
Else
 
    If Not Rg Is Nothing Then
 
            strFormule1 = "SUM('Achat'!D" & Rg.Row + 5 & ":D" & Rg.Row + 7 & ")"
            strFormule2 = "SUM('Achat'!D" & Rg.Row + 8 & ":D" & Rg.Row + 10 & ")"
            strFormule3 = "SUM('Achat'!D" & Rg.Row + 11 & ":D" & Rg.Row + 13 & ")"
            strFormule4 = "SUM('Achat'!D" & Rg.Row + 14 & ":D" & Rg.Row + 16 & ")"
            Sheets("Couverture").Range("D14").Formula = "=" & strFormule1
            Sheets("Couverture").Range("D17").Formula = "=" & strFormule2
            Sheets("Couverture").Range("D20").Formula = "=" & strFormule3
            Sheets("Couverture").Range("D23").Formula = "=" & strFormule4
 
            strFormule5 = "SUM('Achat'!F" & Rg.Row + 5 & ":F" & Rg.Row + 7 & ")"
            strFormule6 = "SUM('Achat'!F" & Rg.Row + 8 & ":F" & Rg.Row + 10 & ")"
            strFormule7 = "SUM('Achat'!F" & Rg.Row + 11 & ":F" & Rg.Row + 13 & ")"
            strFormule8 = "SUM('Achat'!F" & Rg.Row + 14 & ":F" & Rg.Row + 16 & ")"
            Sheets("Couverture").Range("E14").Formula = "=" & strFormule5
            Sheets("Couverture").Range("E17").Formula = "=" & strFormule6
            Sheets("Couverture").Range("E20").Formula = "=" & strFormule7
            Sheets("Couverture").Range("E23").Formula = "=" & strFormule8
 
    Else
 
    End If
 
End If
 
Label1_Click
 
End Sub
 
Private Sub Label1_Click()
 
Label1.Caption = ComboBox1.Text
 
End Sub
 
Private Sub OptionButton1_Click()
 
 
    Label1.Visible = True
    Dim Plage As Range
    Dim c As Range
    Dim Ws As OWC11.Worksheet
    Dim Rg As OWC11.Range
 
    Set Plage = Worksheets("Couverture").Range("Budget")
    Set Ws = Spreadsheet1.Worksheets("Feuille1")
 
 
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
 
    With Me.Spreadsheet1
        .Visible = True
 
    For Each c In Plage
        Ws.Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1).Value = c.Value
        Ws.Cells(c.Row - Plage.Row + 1, c.Column - Plage.Column + 1).NumberFormat = c.NumberFormat
    Next c
 
    End With
 
    'On va protéger la feuille
     Ws.Cells.Locked = True
    Spreadsheet1.EnableEvents = True
 
End Sub
 
Private Sub OptionButton2_Click()
 
    Label1.Visible = True
    Me.Spreadsheet1.Visible = False
 
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
    On Error GoTo 0
    Set Img = Me.Controls.Add("forms.Image.1")
    With Img
        .Left = 130
        .Width = 480
        .Height = 300
        .Top = 100
    End With
    With Sheets("Couverture")
    Set g = Sheets("Couverture").ChartObjects(1).Chart
    Fichier = ActiveWorkbook.Path & "\" & "graphe1.gif"
    g.Export Filename:=Fichier, FilterName:="GIF"
    Img.Picture = LoadPicture(Fichier)
 
    End With
End Sub
 
Private Sub UserForm_Initialize()
Dim i
Dim Der_Value
 
    Der_Value = Sheets("Achat").Range("C" & Rows.Count).End(xlUp).Row
 
    For i = 9 To Der_Value Step 21
 
            ComboBox1.AddItem Sheets("Achat").Cells(i, 3)
 
    Next i
    Me.Spreadsheet1.Visible = False
    Label1.Visible = False
End Sub

Cordialement,