Bonjour à tous
La combobox CboTblBdd_Sectexploit est activex, elle es alimentée dans ses propriétés par:
ListFilRange LSect_Exploit
Ce code me permet de faire un filtre et de pouvoir le supprimer rapidement.
'PROCEDURE FILTRE SUR SECTEUR EXPLOITATION DEPUIS CHOIX EN "CboTblBdd_Sectexploit" Ds FEUILLE "TABLEAU DE BORD"
Private Sub CboTblBdd_Sectexploit_Change()
If Not CboTblBdd_Sectexploit Is Nothing Then
Range("B8").AutoFilter Field:=1, Criteria1:=CboTblBdd_Sectexploit
End If
End Sub
'PROCEDURE SUPPRESION FILTRE SUR SECTEUR EXPLOITATION Ds "FEUILLE TABLEAU DE BORD"
Private Sub Btn_TbdClFiltB8_Click()
[B8].AutoFilter Field:=1
End Sub
Jusque la cela fonctionne parfaitement.
C'est maintenant que je bloque
J'ai placé ce code:
Private Sub Worksheet_Activate()
CboTblBdd_Sectexploit.Value = "Select Zone" 'Force affichage ds Combobox Secteur exploitation pour affichage "Select Zone"
'B8].AutoFilter Field:=1 'Désactive le filtre
Car pour ce code il m'empêche de faire autre chose.
Je n'ai pas de bug de VBA
Avez vous une idée Svp
Merci de votre aide
Bonne journée
Ledzep