Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Choix multiple avec CheckBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chanu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

chanu

Guest
Bonjour,
je débute sur VBA et j'ai un petit soucis à propos de mes checkbox. En effet, chaque checkbox à une macro d'attribuée et un j'ai un bouton de commande qui me permet de lancer les macros en fonctions des checkbox cochées.
Mais le souci c'est que lorsque je coche plusieurs checkbox le bouton de commande me lance uniquement la macro de ma checkbox cochée en première.

Est-ce que quelqu'un aurait une idée?


Merci d'avance.
 
Trier par date Trier par votes
Re : Choix multiple avec CheckBox

Voici le début de mon code :
If btAcier = True Then
Workbooks.Open Filename:= _
"........xls"
chantier.Hide
Worksheets(2).Select

If CheckAcier = True Then
Call Filtre_Chantiers_Aciers
End If


ElseIf btAutresMtx = True Then
Workbooks.Open Filename:= _
"..........xls"
chantier.Hide
Worksheets(1).Select
Call Filtre_Chantiers_AutresMtx
If CheckFonte.Value = True Then
Call Assainissement_Fonte

ElseIf CheckPVC.Value = True Then
Call Assainissement_PVC

ElseIf CheckBois.Value = True Then
Call Bois
....
End If
End If

Voilà si ça peut vous aider
 
Vote positif 0 Vote négatif
Re : Choix multiple avec CheckBox

Chaque macro active un filtre horizontal en gros ça affiche par ex L10 à L80 pour Assainissement_Fonte

Peut-être que le fait de combiner ces filtres ne marchent pas mais dans ce cas je sais pas comment faire ;(
 
Vote positif 0 Vote négatif
Re : Choix multiple avec CheckBox

Bonjour, tu peux essayer ceci:

Code: 
Public Sub CHK(ByRef Uform As UserForm)
    Dim Ctrl As Control
    For Each Ctrl In Uform.Controls
        If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Name = "btAcier" And Ctrl.Value = True Then
       [COLOR="DarkRed"]"Ton action"[/COLOR]
ElseIf Ctrl.Name = "..........." Then
      [COLOR="DarkRed"]"Ton action"[/COLOR]
       Etc...
End If
   Next Ctrl
   Set Ctrl = Nothing
End Sub

Cordialement Gilbert
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Retour à la case A1
2 3
Réponses
43
Affichages
905
TooFatBoy
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
656
Staple1600
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
746
jeff1494
  • Question Question
Microsoft 365 Résolu : ListView avec Checkbox
2
Réponses
27
Affichages
1 K
Angus HEYERDAHL
  • Question Question
Microsoft 365 Utilisation d'un module VBA en tâche de fond
Réponses
5
Affichages
179
aspect
S
  • Question Question
Autres Document non enregistré
Réponses
4
Affichages
562
TooFatBoy
W
  • Résolu(e)
XL 2016 Lignes vba "Saut de page" qui empêchent l'ouverture des Userform sur toutes les feuilles
Réponses
8
Affichages
192
Webperegrino
W
N
  • Question Question
XL 2021 numérotation CheckBox
5 6 7
Réponses
90
Affichages
7 K
nano33320
N
  • Résolu(e)
XL 2021 Excel/vba et vb.net: Propriété de type OBJECT "ingérable"
2
Réponses
29
Affichages
706
p'tit vieux
J
  • Question Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
868
Jingxi
J
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
222
Titof06
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
639
dadaze
D
F
  • Résolu(e)
XL 2019 Probleme de Checkbox et OptionBoutton.
2 3
Réponses
30
Affichages
2 K
Flnte
F
T
  • Résolu(e)
XL 2019 Module de classe et checkbox
2
Réponses
18
Affichages
2 K
ThierryP
T
A
  • Question Question
XL 2021 Fichier Excel VBA mis en quarantaine par l'antivirus
2
Réponses
19
Affichages
1 K
fanch55
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
258
SPARKLETOF
S
M
  • Question Question
XL 2021 boucle sur checkbox
Réponses
3
Affichages
454
meldja
M
S
  • Question Question
XL 2021 LISTVIEW alimenté avec OptionButton + CheckBox
Réponses
3
Affichages
704
ChTi160
T
  • Question Question
Microsoft 365 Cocher automatiquement des checkbox avec des conditions
2
Réponses
24
Affichages
2 K
TCHIS
T
M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
550
macseb
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…