Microsoft 365 Filtrer un tableau dans une feuille

[Electron24]

Bonjour le Forum,

Je désire filtrer le tableau de la feuille sélectionnée par la colonne C (Moyen CB, Ch, DAB...)

Private Sub List_Moyen_Change()

Dim valeur As String
Dim i As Byte

ComboBox2.Clear
valeur = ComboBox1.Value


With Sheets("Bilan")

    For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
        If Left(.Range("B" & i), 3) = Left(ComboBox1.Value, 3) Then ComboBox2.AddItem .Range("B" & i)

    Next i

End With
End Sub

Voici ci dessus le code de la liste déroulante (List_Moyen) du formulaire (Frm_Filtre)
Dans mon formulaire, il y a un Label qui reprend le nom de la feuille visible (Lab_Nom.Caption=Range("B1").Value
Je souhaiterai pouvoir remplacer (]With Sheets("Bilan") par le nom de la feuille active
En effet, j'ai dans chaque feuille un bouton qui m'ouvre le formulaire et de ce fait cette ligne
J'ai plusieurs feuilles nommées 2007, 2008, 2009 etc jusque 2030
Ci joint un extrait du classeur
Merci d'avance pour votre aide

 

[Electron24]

Voici une capture

 

[Hasco]

Euh... une image... que voulez-vous que j'en fasse ?

 

[Electron24]

Voici le fichier

 

[Deadpool_CC]

Bonsoir

Pour contourner j'ai compter le nombre de N°

 

[Hasco]

Re,

Vous aviez ajouté un champs calculé nommé 'Nbr moyen' dont la formule était "= 0" pas étonnant que votre colonne ne contenait que des zéro.

Pour avoir le nombre de moyen, pas utile de créer un champ calculé.
Faites simplement glisser le champs 'moyen' dans la colonne des valeurs sous 'total des crédits'
Cliquez sur la flèche à droite du bouton créé ainsi puis vérifiez que 'Nombre' est sélectionné dans la liste des opérations possibles.

Cordialement

 

[Electron24]

Ok ça marche Merci encore pour votre aide.
Guy