Microsoft 365 Filtrer un tableau dans une feuille

Electron24 · 15 Juin 2022

Bonjour le Forum,

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

VB:

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 · 16 Juin 2022

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

Hasco · 15 Juin 2022

Bonsoir

Electron24 à dit:
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 · 15 Juin 2022

Bonsoir Hasco

Qu'entends tu par

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

Hasco · 15 Juin 2022

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 :

VB:

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 · 15 Juin 2022

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

Hasco · 16 Juin 2022

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 :

VB:

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

Ou utiliser vos tableaux :

VB:

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

Cordialement

Hasco · 16 Juin 2022

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 · 16 Juin 2022

Bonjour Hasco,

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

Electron24 · 16 Juin 2022

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 · 16 Juin 2022

Re,

Electron24 à dit:
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 · 16 Juin 2022

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 · 16 Juin 2022

Splendide travail j'en reste bouche B

Hasco · 16 Juin 2022

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 · 16 Juin 2022

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 · 16 Juin 2022

Electron24 à dit:
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

Microsoft 365 Filtrer un tableau dans une feuille

Electron24

XLDnaute Occasionnel

Pièces jointes

Hasco

Hasco

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Pièces jointes

Electron24

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Electron24

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Tableaux structurés Excel

Pièces jointes

Electron24

XLDnaute Occasionnel

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

Dont voici le lien :

Electron24

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Filtrer un tableau dans une feuille

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

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

Dont voici le lien : ​

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

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

Dont voici le lien :