XL 2016 Userform

[solgti]

Bonjour, j'ai un Userform simple qui a des valeurs par défaut (case à cocher et bouton option) et qui lance une fonction de filtre à l'ouverture.
lorsque je viens d'ouvrir le fichier le filtre se fait bien selon les cases et options cochées, par contre lorsque je réouvre le userform le filtre ne se fait pas.
Aussi, si lors de l'ouverture je change les cases à cocher et les options et que je ferme l'interface, à la réouverture il a garder mes derniers choix, mais je voudrais qu'il revienne avec les défauts.
Est-ce que vous pouvez me dépanner SVP?
merci

 

[Lone-wolf]

Bonsoir solgti

Il faut enlever la macro dans initialize, et pour le bouton fermer, il ne faut pas ajouter les colonnes.

Private Sub UserForm_Initialize()
BQ1.Value = False
BQ2.Value = False
BQ3.Value = False
P1.Value = False
P2.Value = False
P3.Value = False
Sheets("Feuil1").ListObjects("Tableau_Source").Range.AutoFilter
End Sub


Private Sub Ferme_Click()
Sheets("Feuil1").ListObjects("Tableau_Source").Range.AutoFilter
UserForm1.Hide
End Sub

Si dans la boucle il n'y a pas d'action qui se fait, pourquoi l'ajouter???
For Each a In Worksheets("Feuil2").Range("A1:A" & DernLigne)
Next

Et dans la macro, ajoute ces lignes.

Sub FiltreBanque()
Application.ScreenUpdating = False
Le code
"
"
"
Application.ScreenUpdating = True
End Sub

EDIT: (Comme... pas de réponse) ton fichier en retour avec les modifications.

 

[solgti]

Bonjour, surement que mon explication n'était pas très clair, mais comment puis-je faire pour qu'à l'ouverture du Userform les 3 banques soient sélectionnées, que Pers_1 soit sélectionné et que le filtre du tableau s'exécute et qu'il filtre selon les critères sélectionnés?
Pour la boucle inutile, c'était du code que je commençais et que j'avais oublié de mettre en commentaire.
merci
solgti

 

[Lone-wolf]

Re

dans ce cas

Private Sub UserForm_Initialize()
BQ1.Value = True
BQ2.Value = True
BQ3.Value = True
P1.Value = True
P2.Value = False
P3.Value = False
Call FiltreBanque
End Sub

 

[solgti]

Étrangement c'est comme si la fonction FiltreBanque n'était pas appelée, est-ce que vous pouvez faire le test de votre côté et me dire si ça fonctionne SVP?
merci
solgti

 

[Lone-wolf]

Re
Chez moi ça fonctionne. Sinon essaie comme ceci

Private Sub UserForm_Initialize()
Dim cbk(1 to 3) As Control, opt(1 to 3) As Control

set cbk(1) = BQ1: set cbk(2)= BQ2: set cbk(3) = BQ3
set  opt(1) = P1: set  opt(2)= P2: set  opt(3) = P3

cbk(1).Value = True
cbk(2).Value = True
cbk(3).Value = True

opt(1).Value = True
opt2).Value = False
opt(3).Value = False
Call FiltreBanque
End Sub