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

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

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