XL 2021 Formule avec recherche

djidji59430

XLDnaute Barbatruc

• 3 Août 2023

• #2

Bonjour à tous,

Une proposition :

 

Pièces jointes

• Classeur1(1).xlsx

  13.2 KB · Affichages: 7

Vote positif 0 Vote négatif

M

Mouchette

XLDnaute Occasionnel

• 3 Août 2023

• #3

djidji59430 à dit:

Bonjour à tous,

Une proposition :

Cliquez pour agrandir...

Bonjour
Merci beaucoup, c'est tout ce qu'il me faut,
Pouvez-vous m'expliquer comment vous avez fait, pour que je puisse le refaire,
Merci

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 3 Août 2023

• #4

T'as pas lu la formule en a1

en gros , c'est la bdd filtrée (fonction filtre() sur la colonne nom ="toto")

Bdd mise en tableau structuré pour que tu puisses ajouter tout ce que tu veux.
Crdlmt

 

Vote positif 0 Vote négatif

M

Mouchette

XLDnaute Occasionnel

• 4 Août 2023

• #5

djidji59430 à dit:

T'as pas lu la formule en a1

en gros , c'est la bdd filtrée (fonction filtre() sur la colonne nom ="toto")

Bdd mise en tableau structuré pour que tu puisses ajouter tout ce que tu veux.
Crdlmt

Cliquez pour agrandir...

Bonjour
Oui j’ai vu mais il faut mettre un nom au tableau comme BdD. Car je dois le faire à plusieurs tableaux
En tout cas je tiens à vous remercier pour cette aide

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 4 Août 2023

• #6

le nom du tableau est facultatif, parceque bdd=tableau1, sauf que bdd, c'est plus parlant !

Crdlmt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2023

• #7

Bonjour Mouchette, djidji59430,

Deux remarques :

1) Si les noms des feuilles peuvent être modifiés il vaut mieux cette formule :

Code:

=FILTRE(BdD;BdD[nom]=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32))

Mais chez moi sur Excel 2019 la fonction FILTRE n'existe pas.

2) Une solution VBA classique consiste à utiliser le filtre automatique, la macro dans ThisWorkbook :

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("BaseDeDonnées")
    If Sh.Name = .Name Then Exit Sub
    With .[A1].CurrentRegion
        .AutoFilter 1, Sh.Name 'filtre automatique
        .Copy [A1] 'copier-coller
        .AutoFilter 'ôte le filtre
    End With
    Rows(2 + Application.CountIf(Columns(1), Sh.Name) & ":" & Rows.Count).Delete 'RAZ en dessous
End With
End Sub

A+

 

Pièces jointes

• Filtre VBA(1).xlsm

  19.4 KB · Affichages: 6

Dernière édition: 4 Août 2023

Vote positif 0 Vote négatif

M

Mouchette

XLDnaute Occasionnel

• 8 Août 2023

• #8

Bonjour,

Votre méthode fonctionne très bien, mais encore une petite chose,
Est ce que c'est possible de modifier le filtre ?
Car je dois ajouter des lignes et ajouter des choses, mais je n'y arrive pas
Merci pour votre retour

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 8 Août 2023

• #9

ajouter des datas dans la BDD, pas de problemes, la BDD est un tableau stucturé. ==>aucune incidence sur les formules
des choses, je ne sais pas, Ça depend des choses ......

Crdlmt

 

Vote positif 0 Vote négatif