Discussion :

[ftcalvados]

Bonjour à tous,

Ca fait longtemps que je n'ai pas poster quelque chose (en général je trouve en lisant le forum - Mais là je tourne en rond)

Mon probléme:
J'ai un tableau excel (Base de donnée)
Un userform dans lequel j'affiche les valeurs de ma BdD
Des combobox dans lesquelles j'affiche le résultat d'un filtre automatique
Des textbox qui affiche la valeur de la ligne en cours

Je voudrais que lorsque je choisit une valeur dans une ComboBox :
- n'afficher plus que cette valeur dans la combobox
- refiltrer les autres combo

Mon gros PROBLEME est que :
si j'utilise l'événement _Click je vide complétement ma combo
si j'utilise l'événement _AfterUpdate il faut que je click ailleur pour activer le déclenchement

Autre problème je voudrais afficher la valeur de mon 1er index dans la combo

J'espère avoir été assez clair

Merci

[Jean-Philippe André]

bonjour,
il me semble que l'évènement :

Code :

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

1
2
3
Private Sub ComboBox_Change()
 
End Sub

répond à ton énoncé, non ?

[ftcalvados]

Non pas plus, j'avais dèja essayer

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
Private Sub ComboBox1_AfterUpdate()
    Selection.AutoFilter Field:=1, Criteria1:=ValueCombo
    'Init_Champs_Liste
    MAJ01
End Sub
 
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 
    ValueCombo = ComboBox1.Value
    Me.ComboBox1.Clear
End Sub
 
 
Private Sub ComboBox2_Change()
 
    Selection.AutoFilter Field:=2, Criteria1:=ComboBox2.Value
    MAJ01
End Sub

Le PB avec _Change ou _Click c'est que la fonction est rappellée lorsque que l'on "clear" la combo

[Jean-Philippe André]

ok,
et si tu évites de mettre un coup afterupdate, un coup before update, et juste mettre le tout dans la fonction change ?

[jfontaine]

Pourquoi ne mets tu pas le

Code :

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

ComboBox1.Clear

dans le code de ta procedure MAJ01 ?

[Bigalo]

Bonsoir,

Le PB avec _Change ou _Click c'est que la fonction est rappellée lorsque que l'on "clear" la combo

Et alors ? Il suffit de lui dire ne ne rien faire quand le combo est vide :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox2_Change()
    If ComboBox2.ListCount > 0 Then
        Selection.AutoFilter Field:=2, Criteria1:=ComboBox2.Value
        MAJ0
    End If
End Sub

Cordialement,

[ftcalvados]

Que de réponses !!!

et si tu évites de mettre un coup afterupdate, un coup before update, et juste mettre le tout dans la fonction change ?

C'était juste pour te montrer les 2 façons d'écrire

Pourquoi ne mets tu pas le "clear"

C'est un essai, mais si je le laisse ça redéclenche l'appel à la fonction _Change

"Bigalo", j'analyse et je teste ta proposition

[ftcalvados]

Et alors ? Il suffit de lui dire ne ne rien faire quand le combo est vide :

Et oui !!! c'est bien la solution

Merci à tous !
(j'ai peut-être encore un autre Pb, mais je ferai un autre post)

[Bigalo]

Les procédures événementielles sont extrêmement pratiques, à condition ne ne pas les subir : il ne faut pas hésiter à choisir dans quelles circonstances elles doivent être exécutées !

Cordialement

[ftcalvados]

Mon deuxième probléme est aussi résolu (affichage du premier élément de la liste dans la combobox)

Idem, j'ai fait une condiftion

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
 
    If ComboBox1.ListCount > 0 Then
        If AffichageValeurCombo = False Then
            Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
            MAJ01
        End If
    End If
End Sub

Merci encore