Discussion :

[tremens]

Bonjour,

j'arrive à la fin de ma macro, et comme toujours, je rajoute des améliorations.
Je veux faire une sélection dans une plage de données par rapport à une liste pour renseigner une liste de choix dans mon userform. Est-ce possible?

Je m'explique:

j'ai un tableau de données qui contient des températures avec pression ou pH ou masse introduite et/ou %.
Dans mon useform j'ai créé des combobox (4) pour choisir les séries que je veux mettre en Y secondaires :
la pression, pH, masse et aussi % bien que celle-ci peut-être avec les températures.

Seulement voilà, dans mes combobox, j'ai toutes les séries de mon tableau :

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
 
Private Sub UserForm_Initialize()
 
CommandButton5 = False
 
Dim PlageDonnees As Range, cmpt As Long, MaFeuille As Worksheet
Dim ligne As Long, ncol As Integer, nomfichier As String
 
'récupération nom du fichier excel actif
nomfichier = ActiveWorkbook.Name
 
'permet de faire reference a la feuille sans avoir a tout taper
Set MaFeuille = Workbooks(nomfichier).Worksheets("Feuil1")
 
'detection nombre lignes & colonnes
ncol = MaFeuille.Cells(13, "F").End(xlToRight).Column
 
ligne = MaFeuille.Cells(Rows.Count, "F").End(xlUp).Row
 
Set PlageDonnees = MaFeuille.Range("g13", MaFeuille.Cells(ligne, ncol))
 
Me.ComboBox17.Style = fmStyleDropDownList
Me.ComboBox16.Style = fmStyleDropDownList
Me.ComboBox19.Style = fmStyleDropDownList
Me.ComboBox18.Style = fmStyleDropDownList
 
 
'rempli les zones de la liste avec les noms des series
For cmpt = 1 To PlageDonnees.Columns.Count
Me.ComboBox17.AddItem PlageDonnees.Cells(cmpt).Value
Me.ComboBox16.AddItem PlageDonnees.Cells(cmpt).Value
Me.ComboBox19.AddItem PlageDonnees.Cells(cmpt).Value
Me.ComboBox18.AddItem PlageDonnees.Cells(cmpt).Value
Next cmpt
 
 
 
'bloque la zone d'option tant que chekbox3 (légendes) n'est pas cochée
Me.Frame2.Enabled = False
 
End Sub

ensuite pour le tracé

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 'ajoute la 1ère serie en axe Y secondaire
   If UserForm4.ComboBox17.Text <> "" Then
    For Each MaSerie In MonGraphe.SeriesCollection
    MaSerie.FormulaR1C1Local = Replace(MaSerie.FormulaR1C1Local, "L13C", "L14C")
    If InStr(1, MaSerie.Name, UserForm4.ComboBox17.Text, vbTextCompare) > 0 Then
    MaSerie.AxisGroup = xlSecondary
        End If
    Next MaSerie
    End If

Est-il possible de ne choisir que la ou les séries pression, pH, masse et aussi % quand elle font partie du tableau?

Merci

Tremens

[tremens]

personne pour m'aider

Tremens