Microsoft 365 VBA supprimer filtre bdd

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Juin 2024

• #2

Bonjour Marec,
Sous quelle forme est votre BDD ?
Si elle est directement implémentée dans une feuille avec des filtre sur colonnes, alors essayez :

VB:

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 10 Juin 2024

• #3

Bonjour et merci pour votre aide
L'idée serait de defiltrer des l'ouverture du USF dans la page d'accueil
Quelques filtres sont utilisés en page d'accueil également

 

Pièces jointes

• Demande EPI Vetements.xlsm.xlsx

  84 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Juin 2024

• #4

Re,
Un essai en PJ avec :

VB:

Private Sub Workbook_Open()
Sheets("Accueil").Select
If Sheets("Accueil").FilterMode Then Sheets("Accueil").ShowAllData
If Sheets("BDD1").FilterMode Then Sheets("BDD1").ShowAllData
End Sub

Les filtres sont supprimés à l'ouverture du fichier.

 

Pièces jointes

• Demande EPI Vetements.xlsm

  77.6 KB · Affichages: 3

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 10 Juin 2024

• #5

Je teste ce soir
Je vous informerai
En tout cas merci pour ces réponses rapides

 

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 11 Juin 2024

• #6

Marec à dit:

Je teste ce soir
Je vous informerai
En tout cas merci pour ces réponses rapides

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 11 Juin 2024

• #7

Bonjour Sylavanu,

De mon coté ca ne fonctionne pas. Les tries restent.
Dans le fonctionnement du fichier, les utilisateurs peuvent visionner et trier dans la BDD;
Ce que je souhaiterai, c'est que les tries s'annulent dès que l'on appuie sur le bouton "afficher le formulaire"

merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2024

• #8

Re,

Marec à dit:

De mon coté ca ne fonctionne pas. Les tries restent.

Cliquez pour agrandir...

Faux, les filtres sont bien supprimée avec mon hypothèse :

Les filtres sont supprimés à l'ouverture du fichier.

Cliquez pour agrandir...

En PJ une nouvelle version avec vos hypothèses :

VB:

Sub SuppFiltres()
If Sheets("Accueil").FilterMode Then Sheets("Accueil").ShowAllData
If Sheets("BDD1").FilterMode Then Sheets("BDD1").ShowAllData
End Sub

Et cette macro "SuppFiltres" est implémenté en début de Workbook_open et dans l'userform :

Code:

Sub ouvreformulaire()
SuppFiltres
Formulaire.Show 0
End Sub

 

Pièces jointes

• Demande EPI Vetements V2.xlsm

  78.5 KB · Affichages: 6

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 11 Juin 2024

• #9

oui tout a fait, la première version était fonctionnelle a la fermeture.
Et pour cette seconde version c'est exactement ce dont j'avais besoin.
il ni aura plus d'erreur de saisie avec votre proposition.. Grand merci

en option :Adapter ce fichier pour toute taille d'écran
j'ai tenté des codes mais .....

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2024

• #10

Marec à dit:

Adapter ce fichier pour toute taille d'écran

Cliquez pour agrandir...

Là, vous devriez ouvrir un autre fil car ce point n'a rien à voir avec le titre.
D'autre part, c'est une autre paire de manche. Regardez déjà s'il existe un post qui vous satisfait :
Lien
Ensuite préciser ce que vous voulez. Si vous voulez uniquement un affichage plein écran, quel que soit l'écran, utilisez :

VB:

Application.DisplayFullScreen = True

A mettre dans Workbook_Open.

 

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 11 Juin 2024

• #11

Bonsoir,

J'ai fais quelques recherches déjà et tenté d'intégrer un code ..mais pas réussi à faire fonctionner.
Je vais ouvrir un nouveau fil.
Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2024

• #12

Bonsoir,
Oui mais précisez bien ce que vous voulez.
D'autre part, supprimer le vert de votre post. Ce vert est là pour indiquer au futur lecteur où se trouve la solution, non pas pour indiquer un message qui dit que ça marche.

Addon : Regardez ce post : https://excel-downloads.com/threads/adapter-usf-a-tout-ecran.20083310/
peut être vous sera t_il utile.

 

Vote positif 0 Vote négatif

M

Marec

XLDnaute Occasionnel

• 11 Juin 2024

• #13

Suis pas. La pointe des usages du forum
Je pensais que c'était pour indiquer "résolu" ??

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juin 2024

• #14

En fait lorsque vous mettez en vert un post, cela veut dire résolu, mais plus important, ce post remonte en début de fil.
Donc si le lecteur est intéressé par la solution il lui suffit de cliquer pour aller directement à la solution.
Lorsque le fil à beaucoup de post, et beaucoup de PJ, cette astuce simplifie la vie au futur lecteur :

 

Vote positif 0 Vote négatif