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

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Mars 2019

• #2

Bonjour,

Remplacer Private Sub ComboBox2_click() ' alimentation ListBox.

VB:

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

 

Pièces jointes

• Copie de RechercheIntuitiveBDChoixCol-1.xls

  104 KB · Affichages: 11

Vote positif 0 Vote négatif

M

mcishf

XLDnaute Nouveau

• 20 Mars 2019

• #3

Mr Boisgontier, vous êtes formidable !

 

Vote positif 0 Vote négatif

M

mcishf

XLDnaute Nouveau

• 20 Mars 2019

• #4

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é ?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Mars 2019

• #5

Bonjour,

Version avec modification des enregistrements.

Boisgontier

 

Pièces jointes

• RechercheIntuitiveBDChoixColModif.xls

  157.5 KB · Affichages: 4

Vote positif 0 Vote négatif

M

mcishf

XLDnaute Nouveau

• 21 Mars 2019

• #6

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.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Mars 2019

• #7

cf PJ

Boisgontier

 

Pièces jointes

• Copie de RechercheIntuitiveBDChoixColModif.xls

  198 KB · Affichages: 8

Vote positif 0 Vote négatif

M

mcishf

XLDnaute Nouveau

• 21 Mars 2019

• #8

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) ???

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Mars 2019

• #9

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

 

Pièces jointes

• Copie de RechercheIntuitiveBDChoixColModif.xls

  164 KB · Affichages: 9

Dernière édition: 21 Mars 2019

Vote positif 0 Vote négatif

M

mcishf

XLDnaute Nouveau

• 21 Mars 2019

• #10

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

 

Vote positif 0 Vote négatif

M

mcishf

XLDnaute Nouveau

• 28 Mars 2019

• #11

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

 

Pièces jointes

• 276.9 profession libérale romane 2019.xls

  302 KB · Affichages: 9

Vote positif 0 Vote négatif