Liste déroulante multi critère
nanou004
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
platypus69 Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
platypus69 Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je suis en stage dans une entreprise et je suis débutante en VBA,
j'ai un formulaire avec plusieurs listes déroulantes, je voudrais qu'en appuyant sur le bouton de contrôle je puisse filtrer sur les différentes listes.
je ne sais pas si c'est possible de le faire avec un même bouton mais voici le schéma.
je veux filtrer la liste déroulante Famille-produit (cbofp) et filiales(cbosub) avec l'année(cboy) et avoir un formulaire en sorti en cliquant le le bouton.
et avec le même bouton sur le même formulaire je veux filtrer la liste déroulante Group famille de produit(cbopnl) et filiales(cbosub) et année(cboy) pour afficher un autre formulaire.
Merciii
voici le code pour un seule critère.
Je suis en stage dans une entreprise et je suis débutante en VBA,
j'ai un formulaire avec plusieurs listes déroulantes, je voudrais qu'en appuyant sur le bouton de contrôle je puisse filtrer sur les différentes listes.
je ne sais pas si c'est possible de le faire avec un même bouton mais voici le schéma.
je veux filtrer la liste déroulante Famille-produit (cbofp) et filiales(cbosub) avec l'année(cboy) et avoir un formulaire en sorti en cliquant le le bouton.
et avec le même bouton sur le même formulaire je veux filtrer la liste déroulante Group famille de produit(cbopnl) et filiales(cbosub) et année(cboy) pour afficher un autre formulaire.
Merciii
voici le code pour un seule critère.
Option Compare Database
Private Sub cbosub_Exit(Cancel As Integer)
End Sub
Private Sub Commande11_Click()
On Error GoTo Err_Commande11_Click
Dim stDocName As String
stDocName = "RESSAI"
stLinkCriteria = "[Purchasing family - Group registry]=" & "'" & Me![cbopnl] & "'" & "and [Subsidiary-Out]=" & "'" & Me![cbosub] & "'" & "and [Fiscal_year]=" & "'" & Me![cboy] & "'"
' stLinkCriteria = "[Subsidiary-Out]=" & "'" & Me![cbosub] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande11_Click:
Exit Sub
Err_Commande11_Click:
MsgBox Err.Description
Resume Exit_Commande11_Click
End Sub
A voir également:
- Liste déroulante multi critère
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
- Liste code ascii - Guide
- Supprimer liste déroulante excel - Forum Excel