Recherche intuitive Combobox - Impossible de définir la propriété Column quand on sélectionne une date ou un montant

[mcishf]

Bonjour,
J'utilise le fichier RechercheIntuitiveBDChoixCol.xls de Mr Boisgontier Jacques et quand on veut choisir de filtrer sur une date ou un montant, on a une erreur.
Une idée ?
Le reste semble fonctionner.
Merci.
C.Michaux

 

[BOISGONTIER]

Bonjour,

Remplacer Private Sub ComboBox2_click() ' alimentation ListBox.

Private Sub ComboBox2_click()  ' alimentation ListBox
   If IsNumeric(Me.ComboBox2) Then
      clé2 = CDbl(Me.ComboBox2)
    Else
      If IsDate(Me.ComboBox2) Then
        clé2 = CDate(Me.ComboBox2)
      Else
        clé2 = Me.ComboBox2
      End If
    End If
   Me.ListBox1.Column = FiltreMultiColTransp(bd, clé2, colClé)
End Sub

Boisgontier

 

[mcishf]

Mr Boisgontier, vous êtes formidable !

 

[mcishf]

autre petite question, est-il possible d'afficher le total des colonnes quand on a appliqué les filtres ? et aussi de permettre une modification sur une ligne dans le cas où l'on ce serait trompé ?

 

[BOISGONTIER]

Bonjour,

Version avec modification des enregistrements.

Boisgontier

 

[mcishf]

Bonjour,
Woauh !! C'est super...
Je suis embêtant mais y a-t-il moyen de faire le total des valeurs affichées dans la Listbox (ex. Baleux Mariette : 188,56+222,84+74,28 : 434,63 €) directement en dessous de la Listbox (j'ai vu votre onglet résultat)
Merci.

 

[BOISGONTIER]

cf PJ

Boisgontier

 

[mcishf]

merci.
ok je vois que vous additionnez les montants filtrés de chaque colonne dans la feuille Résultats...
donc pas moyen d'afficher cela directement en-dessous de la listbox (sauf via des Textbox ou Label qui iraient chercher les totaux dans la feuille Résultats) ???

 

[BOISGONTIER]

cf PJ

C'est un programme générique. Pour une autre BD, il faut adapter:

Set Rng = f.Range("A2:V" & f.[A65000].End(xlUp).Row) ' 1 colonne de plus

Boisgontier

 

[mcishf]

un génie ! y a pas d'autres mots !
MERCI

 

[mcishf]

encore moi...
j'ai analysé vos modifications et je me demandais si ce ne serait pas mieux avec une Listview (entête de colonne, grille, etc...)
est-ce possible ? peut-on aussi avoir le total en dessous de la listview ?
en annexe, mon fichier avec vos modifications et remarques