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

Bug lors de l'execution de ma première macro VBA

Créer une discussion

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

Gustavo Fring

XLDnaute Nouveau
Bonjour à toutes et à tous,

Je suis en train de taper ma première macro et j'ai un petit soucis.

Je souhaite afficher ou cacher un bouton (BT_CREA_SAISIE) en fonction d'une liste déroulante (CHOIX4) et ce, dès l'ouverture de mon classeur Excel.

Les choix possibles sur cette liste déroulante sont les suivants : - Vide (vraiment vide 🙂)
- B
- C
- D

Et voici mon code VBA :

------------------------------------

Private Sub Workbook_Open()

Select Case CHOIX4 'liste déroulant choix4

Case "Outillage unique"
BT_CREA_CLE.Visible = True

Case "Outillage appartenant à un ensemble"
BT_CREA_CLE.Visible = False

Case "Outillage pouvant remplacer un autre outillage"
BT_CREA_CLE.Visible = False

Case ""
BT_CREA_CLE.Visible = False

End Select

End Sub

------------------------------------

Lorsque je lance le débogueur, celui-ci me renvoie l'information suivante :

------------------------------------

Erreur d'execution '424' :

Objet requis

------------------------------------

Je ne connais absolument pas le VBA (mais ce n'est qu'une question de temps, je commence juste ^^). C'est pour celà que je ne sais pas comment faire pour déboguer ma petite macro.

Je demande donc votre aide 😀

En vous remerciant.
 
Trier par date Trier par votes
Re : Bug lors de l'execution de ma première macro VBA

Bonjour,

avec une pièce jointe cela aurait été plus clair.

identifier le bouton par l'onglet qui le contient Sheets("ONglet").BT_CREA_CLE.Visible = False

Si CHOIX4 est le nom de la cellule qui contient la valeur à tester il faut écrire select case Range("CHOIX4")
 
Vote positif 0 Vote négatif
Re : Bug lors de l'execution de ma première macro VBA

Bonjour Gustavo, Bonjour GIBI 🙂,

Peut-être, dans un module

Code: 
Sub AffichMasq()
    Select Case Sheets("Saisie").Range("CHOIX4").Value                                             'Liste deroulante : choix4
       Case "", "B"
            Sheets("Saisie").Shapes("BT_CREA_CLE").Visible = False
            
       Case "A", "C"
            Sheets("Saisie").Shapes("BT_CREA_CLE").Visible = True
    End Select
End Sub

Dans ThisWorkbook

Code: 
Private Sub Workbook_Open()
    Call AffichMasq
End Sub

Dans le code de la feuille Saisie :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("CHOIX4").Address Then
        Call AffichMasq
    End If
End Sub

Edit : Correction de Worksheet_change, marchait pas bien
 
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

Discussions similaires

M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
243
ManuEven
M
T
  • Question Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
745
ThierryP
T
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
712
Zonmé
Z
E
  • Question Question
XL 2013 Création d'un arbre de décision sous VBA
Réponses
3
Affichages
2 K
el_sbe
E
  • Question Question
XL 2019 Activer une deuxième macro à partir de la première.
Réponses
12
Affichages
723
BALANCIE
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
968
Gégé-45550
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
796
olivier388
O
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
B
  • Résolu(e)
XL 2019 Erreur d'exécution '424': Objet requis
Réponses
4
Affichages
857
Barbo14
B
P
  • Question Question
XL 2019 VBA moteur de recherche
2
Réponses
21
Affichages
2 K
philgood54000
P
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
932
MONTREAL2020
M
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
1 K
AnjyD
A
C
  • Résolu(e)
Microsoft 365 Macro pour afficher/masquer lignes qui ne s'exécute plus :-/
Réponses
14
Affichages
1 K
Cinelles
C
N
  • Résolu(e)
XL 2010 intégrer une liste de donnée à la suite (1ère case vide)
Réponses
14
Affichages
1 K
sousou
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
M
  • Résolu(e)
XL 2016 Pb avec code VBA
Réponses
10
Affichages
1 K
MickaeL_D
M
R
  • Question Question
Microsoft 365 Ma macro créé une copie au lieu de modifier le document cible
Réponses
1
Affichages
616
Deadpool_CC
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…