Microsoft 365 VBA supprimer filtre bdd

[Marec]

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

 

[sylvanu]

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 :

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

 

[Marec]

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

 

[sylvanu]

Re,
Un essai en PJ avec :

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.

 

[Marec]

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

 

[Marec]

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

 

[Marec]

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]

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 :

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 :

Sub ouvreformulaire()
SuppFiltres
Formulaire.Show 0
End Sub

 

[Marec]

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]

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 :

Application.DisplayFullScreen = True

A mettre dans Workbook_Open.

 

[Marec]

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

 

[sylvanu]

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.

 

[Marec]

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

 

[sylvanu]

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 :