Erreur 438

Résolu
Le Boulé -  
 Le Boulé -
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:

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

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Si Affiche_Cache_Ligne est bien le nom du bouton

Private Sub Affiche_Cache_Ligne_Click()
...
End Sub
0
Le Boulé
 
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()

ou
If Bouton 7.Value = True Then


Voila, voila.
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
Le Boulé
 
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.
0