XL 2016 Somme colonne Listbox

[Scorpio]

Salut à tous,
J'ai dans mon classeur un Formulaire et une listbox, j'aimerais car les codes VBA et moi, c'est pas terrible, faire la somme dans le Textbox1, de la colonne CA, mais après la sélection faite avec le combobox.
Voilà, si il y avais, s'il vous plaît, un membre pour me donner un petit coup de pouce.
Merci, a +++++

 

[youky(BJ)]

Bonjour Scorpio,
Bien expliqué alors voici.
Code du combobox
Bruno

Private Sub ComboBox1_click()
  ColRecherche = 1
  clé = Me.ComboBox1: n = 0
  Dim Tbl()
  For I = 1 To UBound(TblBD)
    If TblBD(I, ColRecherche) Like cl? Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
        For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(I, k): Next k
        tx = tx + Tbl(3, n)
     End If
  Next I
  TextBox1 = tx
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub

Edit je viens de modifier

 

[Scorpio]

Bonjour youky BJ
Merci de votre aide, super,
J'ai juste un souci, j'ai bien enfin je pense, changé le code dans le combobox, mais, je n'ai plus rien qui s'affiche dans la listbox, voici le classeur.

 

[Scorpio]

Re bonjour Bruno,
Erreur de ma par, dans cette ligne:
If TblBD(I, ColRecherche) Like cl? Then
Figure un point d'interrogation, et en ayant regardé un peux mieux votre code, il se trouve que c'est le mot "clé"
Tous fonctionne, un grand merci beaucoup de votre aide.
A bientôt, A+++++

 

[BOISGONTIER]

Bonjour,

cf PJ

Boisgontier

 

[Scorpio]

Bonjour JB,
Super, un grande merci pour votre aide.
Pour le classeur trouvé sur votre site, enfin je suis arriver à l'ouvrir, mais j'ai ce message d'erreur; Pourquoi, sais pas….
A++++, merci beaucoup

 

[Scorpio]

J'ai oublié de mentionner le nom du classeur:
RechercheIntuitiveBDChoixCol (1)-1(1).xls

 

[BOISGONTIER]

La version d'Excel est indiquée en A5

http://boisgontierjacques.free.fr/fichiers/Formulaire/RechercheIntuitiveBDChoixCol.xls

Boisgontier

 

[Scorpio]

Bonsoir BJ,
Mais, comment avez-vous fait ??
Cette fois ca fonctionne, oui, c'est la version 16.0 chez moi aussi.
C'est très gentil à vous, car avec un autre membre, nous avons cherché toute la journée sans succès.
Est-ce que vous auriez un conseil pour ouvrir d'autres classeur dans votre site, qui me font le même problème ??
A+++ et mille merci