Erreur 438
Résolu
Bonjour,
Je n parvient pas à éliminer cette erreur malgré mes recherche sur internet.
Pour un bouton sur une feuille je test le texte dans le bouton.
Pour le code suivant:
J'ai l'erreur 438 alors que cette méthode existe bien et malgré plein d'autres essaye...
La je bloque...
Je n parvient pas à éliminer cette erreur malgré mes recherche sur internet.
Pour un bouton sur une feuille je test le texte dans le bouton.
Pour le code suivant:
Sub Affiche_cache_Ligne()
If ActiveSheet.Affiche_cache_Ligne.Caption = "Cacher" Then
UserForm1.Show
Else
Sheets("Accueil").Select
End If
End Sub
J'ai l'erreur 438 alors que cette méthode existe bien et malgré plein d'autres essaye...
La je bloque...
4 réponses
-
Bonjour
Si Affiche_Cache_Ligne est bien le nom du bouton
Private Sub Affiche_Cache_Ligne_Click()
...
End Sub -
Ok j'ai compris Affiche_Cache_Ligne est la Macros de mon bouton.
Son nom est Bouton 7. Par contre l'espace entre Bouton et 7 me pose problème.
J'ai problème de compilation si j'écris:Private Sub Bouton 7_Click()
ouIf Bouton 7.Value = True Then
Voila, voila. -
Pas d'espace dans le nom d'un objet, donc son nom est peut être Bouton_7 ou CommandButton7 si tu ne lui a affecté aucun nom toi même.
Vois la propriété Name de ton bouton pour récupérer son nom (quand tu es en mode création, clic droit sur le bouton)
Sub Nom_du_bouton_Click() est la procédure qui réagit à l'évènement clic sur le bouton
Cdlmnt -
Bonjour,
J'utilise un contrôle de formulaire et donc impossible d'avoir les propriétés.
Donc du coup j'ai remplace ce bouton par un ActiveX. Problème Résolu.
Merci pour l'aide CCM81, bonne journée.
