Discussion :

[stéphanie123]

bonjour,

j'ai réalisé une base de donnée avec plusieur donnée numérique
j'ai utilisé l'enregistreur de macro pour faire ce graphique, jusque là tout vas bien!!!
Ensuite j'ai introduit dans une boite de dialogue le code généré par l'enregistreur,
le petit souci et que quand je filtre avec mes deux combobox cela ne fait rien et me lance donc les donnée numérique de toute ma base de donnée.

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
Private Sub Valider_Click()
 
 If ComboBox1 = "" Then
   MsgBox "veuillez sélectionner une conditions à la case secteur!"
    Exit Sub
   End If
   If ComboBox2 = "" Then
   MsgBox "veuillez sélectionner une conditions à la case unité!"
    Exit Sub
   End If
 
    Dim Valx, i As Integer
    Valx = Me.ComboBox2.Value
      With Sheets("Feuil4")
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 2) = Valx Then
        Module3.Niv_Clic
        Exit Sub
        End If
 
        Next i
  End With
Unload Me
End Sub

Module3.Niv_Clic correspond à mon code enregistrer

je n'arrive pas à l'adapter à mes combobox, quelqu'un pourrait il m'aider

[marsupilami34]

Bonjour,

As tu essayé de voir ce que ca donnait avec le debogger ?

[ouskel'n'or]

Tu sais ? F8

[stéphanie123]

Bonjour,

As tu essayé de voir ce que ca donnait avec le debogger ?

non je connais pas , pourrais tu m'en dire un peu plus....

Tu sais ? F8

non, pas du tout , à quel moment on l'utilise?

[Montor]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
     With Sheets("Feuil4")
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 2) = Valx Then
        Module3.Niv_Clic
        Exit Sub
        End If
 
        Next i
  End With

Parceque vous ne valider rien avec votre dialogue !!!

[zazaraignée]

Bonjour,

As tu essayé de voir ce que ca donnait avec le debogger ?

la commande Debug.Print nomDeLaVariableOuDeLaPropriété permet d'afficher dans le fenêtre Exécution le contenu de ce que tu veux tester.

Tu sais ? F8

Tu mets un point d'arrêt sur la commande où tu veux débuter le test (débogage) et tu démarre (F5). Quand l'exécution s'arrête (sur ton point d'arrêt), tu appuie sur F8 pour exécuter une commande à la fois (donc, F8, et encore F8, et encore F8...). Tu peux passer le curseur de la souris au dessus des variables et des propriétés et une info bulle affiche son contenu.

[JackOuYA]

Bonjour,

Il y as quoi dans votre code enregistré .. :

Code :

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

1
2
 
    Module3.Niv_Clic

Jacques.

[Montor]

Bonjour
J'insiste sur ce que j'ai dis

Code :

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

1
2
3
4
5
6
7
8
9
     With Sheets("Feuil4")
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 2) = Valx Then
'ici il faut une validation avant de passer au Module3        Module3.Niv_Clic
        Exit Sub
        End If
                
        Next i
  End With

[stéphanie123]

bonjour,

j'ai saisi la portée de mon pb

dans mon programme "valider ok", je n'indique en aucun moment la condition qui fait que le programme va se lancer à partir de la condition déterminer dans le combobox2.
Et aussi je n'ai pas de lien avec la macro enregistré se trouvant dans le modul3-clic.

Je pensais qu'avec ce code la condition va être prix en compte:

Code :

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

 Valx = Me.ComboBox2.Value

Faut-il que j'indique dans la macro enregistré les conditions du combobox2?

J'ai utilisée le débogeur, mais ici dans ce que je veux faire il ne m'a pas été d'une grande utilité.

[stéphanie123]

J'ai du mal à expliquer ce que je veux vraiment faire
voici donc un petit programme qui décrit ce que je veux...

[Montor]

jn'ai pas vu le fichier
Il faut passer quelque chose au macro Niv_Clic soit la valeur de Valx ou de combobox2
Voici deux exemples pour passer la valeur de Valx au macro Niv_Clic
C'est un simple filtre automatique pour tester tu mets quelque valeur dans la colonne A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Public Valx As Integer
 
Sub Niv_Clic() 
Columns("A:A").AutoFilter Field:=1, Criteria1:=Str(Valx)
End Sub
 
Private Sub CommandButton1_Click()  'uerform1
Valx = 100  'pour filtrer 
Module3.Niv_Clic
End Sub

deuxeme

Code :

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

1
2
3
4
5
6
7
8
9
Sub Niv_Clic(data As Integer)
Columns("A:A").AutoFilter Field:=1, Criteria1:=Str(data)
End Sub
 
Private Sub CommandButton1_Click()  'uerform1
Dim Valx As Integer
Valx = 100 'pour filtrer 
Module3.Niv_Clic (Valx)
End Sub

[Montor]

Voici ce que j'ai pu le faire

[stéphanie123]

Voici ce que j'ai pu le faire

je te remercie pour ton aide,

[Montor]

Bonjour
Tu as resolu le proleme de vitesse voici une fonction plus rapide que j'ai trouvé sur le Faqvba avec qulque modif votre nouvelle fonction AjouterItem deviens
Elle traite 30000 mots en 0.7 s

Code :

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

1
2
3
4
5
Sub AjouterItem(ByRef oCollection As Collection, ByVal strItem As String)
On Error Resume Next
oCollection.Add Item:=strItem, key:=CStr(strItem)
Err.Clear
End Sub

Aussi pour gagner quelque temps tu vas changer ce code

Code :

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

1
2
3
4
 
     For i = 1 To oCollection.Count
        ComboBox1.AddItem oCollection.Item(i)
   Next i

par

Code :

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

1
2
3
4
5
6
7
 
  If oCollection.Count > 0 Then
  ReDim ss(oCollection.Count - 1, 0): j = 0
  For Each elem In oCollection
  ss(j, 0) = elem: j = j + 1
  Next: ComboBox1.List = ss
  End If

Voir le fichier !!!!!!!!!!!

[stéphanie123]

salut,

je n'arrive toujours pas à résoudre ce petit pb,
que j'avais un peux délaissé, j'ai regardée dans la faq les tutoriels et les pb résolu des internautes. mais je ne trouve rien de semblable,

je voudrais compté des valeur et les placé dans un graphique,
cela marche bien quand j'appuie sur le bouton valider,
mais le petit souci et que cela ne prend pas en compte la condition du combobox unité



voici un essai