Microsoft 365 VBA supprimer filtre bdd

Marec

XLDnaute Occasionnel
Bonjour a tous et a toutes,

Est il possible de supprimer des tri dans une Bdd dès lors que l'on fait appel au formulaire en relation avec cette Bdd??
Est que quelqu'un aurait une solution
Au besoin je vous joins un fichier allegé.

D'avance merci pour pour votre aide
 

Marec

XLDnaute Occasionnel
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

Marec

XLDnaute Occasionnel
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
De mon coté ca ne fonctionne pas. Les tries restent.
Faux, les filtres sont bien supprimée avec mon hypothèse :
Les filtres sont supprimés à l'ouverture du fichier.
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

Marec

XLDnaute Occasionnel
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 .....🙄🙄
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Adapter ce fichier pour toute taille d'écran
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.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :

1718176216666.png
 

Discussions similaires

Statistiques des forums

Discussions
312 961
Messages
2 093 969
Membres
105 902
dernier inscrit
LPH