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

 

[Hasco]

Bonsoir

Je souhaiterai pouvoir remplacer (]With Sheets("Bilan") par le nom de la feuille active

With ActiveSheet
....
End With

Mais ActiveSheet la feuille active n'est pas forcément celle qu'on attend.

 

[Electron24]

Bonsoir Hasco

Qu'entends tu par

Mais ActiveSheet la feuille active n'est pas forcément celle qu'on attend.

 

[Hasco]

Re,

Et bien que ActiveSheet peut changer à un instant T, peut-être d'un autre classeur ouvert etc...
puisque vous mettez l'année en B1 alors testez cette valeur sur initialisation du userform. exemple :

Private Sub UserForm_Initialize()

    If Range("B1").Value < 2007 Or Range("B1") > 2030 Then
        MsgBox "Opération annulée : feuille non autorisée" & vbCrLf & _
               "Sélectionnez une feuille de 2007 à 2030 et recommencez.", vbExclamation, "Titre"
        Unload Me

    Else
       
        Lab_An.Caption = ActiveSheet.Name 'Lab_An conservera le nom de la feuille active à ce moment là

        List_Moyen.RowSource = "Bilan!" & Sheets("Bilan").Range("Tab_Moyens[Moyen]").Address
    End If
End Sub

Pour vous faciliter le code et puisque vous utilisez les tableaux structurés, servez-vous de leur avantages.
J'ai fait de votre liste de moyens un tableau structuré nommé 'Tab_Moyens'.

cordialement

P.S. je vais raccroché pour ce soir.

 

[Electron24]

Le souhait est que je puisse filtrer le tableau de la feuille active (ici soit 2007 ou 2008)

 

[Hasco]

Bonjour,
Une fois que vous vous êtes assuré que vous êtes sur la bonne feuille Lab_An.Caption contient son nom.
Vous pouvez donc écrire :

With ThisworkBook.Sheets(Lab_An.Caption)
' filtrer ici
End With

Ou utiliser vos tableaux :

With Range("Tab_" & Lab_An.Caption)
End With

Cordialement

 

[Hasco]

Re bonjour,

Si je peux me permettre, GRANDE.VALEUR(A:A;1) me semble surdimensionnée comme fonction pour simplement avoir le nombre d'opérations. La première Grande.Valeur d'une série est égale à la valeur maximale de cette série. MAX(A:A) serait encore trop, car il est déconseillé de référencer des colonnes entières.
Vous avez des tableaux structurés, servez-vous en :
nb opération 2007 =MAX(Tab_2007[N°:];1) => valeur maximale de la colonne N°
ou éventuellement =LIGNES(Tab_2007) vous donnant le nombre de lignes du tableaux.

Pour vos sommes :
Dépenses =SOMME(Tab_2007[Débit])
Recettes =SOMME(Tab_2007[Crédit])

cordialement

 

[Electron24]

Bonjour Hasco,

Je reprends la suite ce matin et l'utilisation du Witch avec le nom des tableaux me convient parfaitement

 

[Electron24]

Re,

Merci beaucoup pour ces méthodes, grâce à toi, j'en apprends un peu plus. J'utilise les tableaux croisés dynamique depuis peu et tous les conseils sont les bien venus.
Le but de ce fil est pour moi, l'utilisation d'un tableau général reprenant tous mes dépenses et recettes depuis l'ouverture de mon compte bancaire en 2007

 

[Hasco]

Re,

J'utilise les tableaux croisés dynamique

Ce sont des tableaux Structurés, pas des tableaux croisés dynamiques qui eux sont des tableaux de statistiques.

Voir les tableaux croisés dynamiques sur la feuille 'Nombre opérations par moyen' du fichier joint


et pour les tableaux Structurés :

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

cordialement

 

[Electron24]

Justement, j'ai vu sur le net un tuto en rapport et on disait de créer des tableaux structurés pour ensuite en faire un tableau croisé dynamique.

EXCEL - LIER PLUSIEURS TABLEAUX DE DONNÉES DANS UN TABLEAU CROISÉ DYNAMIQUE ​

Dont voici le lien :

​

 

[Electron24]

Splendide travail j'en reste bouche B

 

[Hasco]

Re,

Je pensais à votre fichier et me disais, que faire une feuille par année est peut-être superflue.
Concevez vos données indépendamment de leur présentation, sous forme d'une table.
Avec les outils , Filtres, Filtres avancés, Power query, Graphiques, TCD vous pourrez présenter ces données par année ou mois, quinzaine, semaine ou unité de temps que vous voudrez.

J'ai ainsi un fichier de comptes personnels de 52572 lignes (commencé sous multiplan en 1983) qui est toujours ma base de données au jour le jour.

Cordialement

 

[Electron24]

Re, En essayant de retrans crire votre TCD sur mon classeur, j'arrive à créer le champ Nombre de moyen mais j'ai comme résultat 0 sur toutes les lignes. Il doit y avoir quelque chose que je n'ai pas compris. Mais quoi?
Oups, j'ai loupé votre message, C'est en principe un peu mon idée de départ, mais vu la non compréhension à mon niveau des TCD, je patauge.

 

[Hasco]

Il doit y avoir quelque chose que je n'ai pas compris. Mais quoi?

Je ne peux pas le savoir sans l'exemple sous les yeux.

Bonne soirée