VBA macro Desactivation d'un bouton

Résolu/Fermé
cr1cht0n Messages postés 10 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 9 septembre 2012 - Modifié par cr1cht0n le 7/09/2012 à 11:42
cr1cht0n Messages postés 10 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 9 septembre 2012 - 9 sept. 2012 à 13:02
Bonjour, Je suis actuellement bloqué par ce problème sans arriver à m'en dépêtrer:

Je veux créer une petite macro qui, lorsqu'elle sera activée, va empêcher la modification et l'utilisation du bouton btn1. A force de chercher, j'ai trouvé des bouts de code qui auraient pu marcher, mais je n'obtiens que l'erreur:"Erreur de compilation: utilisation incorrecte du mot clé Me".

Ma ligne de code est la suivante:

Me.btn1.Enabled = False

Si quelqu'un pouvait m'aider ou me corriger, je lui en serai éternellement reconnaissant.

Pour info, je travaille sous Excel 2010, mais le code doit être valide pour un Excel 2003 (ordres du patron).



'Un problème sans solution est un problème mal posé.'
- Albert Einstein
A voir également:

6 réponses

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
7 sept. 2012 à 11:56
bonjour

si ton bouton n'est pas dans un Userform, le Me. est à supprimer
si le code n'est pas dans le module de la feuille où se trouve le bouton
sheets(nom_feuille).bt1.Enabled=false

bonne suite
0
cr1cht0n Messages postés 10 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 9 septembre 2012 1
7 sept. 2012 à 13:45
Merci, mais il semble que ça ne marche pas. tout ce que j'obtiens c'est le message

"propriété ou méthode non gérée par cet objet"

voila le code de ma macro, au cas où j'aie fait une erreur:

Sub verrouiller_cases()
    Dim feuille As String
    
    feuille = ActiveSheet.Name
    
    MsgBox feuille
    
    Sheets(feuille).btn1.Enabled = False
    Sheets(feuille).btn2.Enabled = False
    Sheets(feuille).btn3.Enabled = False
End Sub

0
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
7 sept. 2012 à 15:55
est ce que tes boutons sont des controles active X (créés à partir de la boite à outils controles) ?
peux tu envoyer ton fichier au format excel 2003 (fichier/enregistrer sous/type ...) sur cjoint.com et joindre le lien obtenu à ton prochain message
0
cr1cht0n Messages postés 10 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 9 septembre 2012 1
7 sept. 2012 à 16:49
Non, mes boutons sont des contrôles de formulaires.

Je ne peux pas envoyer mon fichier: je travaille sur des données confidentielles et sans ces données, plus rien ne fonctionne ... mais ce que je peux te dire, c'est que mon fichier est enregistré sous le format .xls car la plupart des gens de l'entreprise qui vont l'utiliser n'ont que la version 2003 d'excel.
j'essaierai quand même de faire un envoi dans quelques heures du morceau en question de mon fichier en modifiant toutes les autres formules liées afin que tu puisses voir de visu de quoi il retourne.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 425
7 sept. 2012 à 18:35
bon, il ne te reste plus qu'à oublier la boite à outils formulaires et mettre des boutons avec la boite à outils contrôles, qui possèdent une foule de propriétés dont Enabled, et sont plus faciles à gérer

le mode d'emploi
ouvrir la boite à outils controles
la petite equerre bleue en haut à gauche permet de passer du mode Création au mode Exécution
passes en mode creation
selectionne le bouton et mets le dans la feuille
clic-droit sur le bouton pour voir/modifier ses propriétés
clic-clic sur le bouton pour y affecter un code
tu peux bien sur depuis une autre procedure modifier ses propriétés (dont Enabled)
etc ...
retour sur la feuille
passer en mode Execution (l'équerre bleue)

et c'est parti

bon courage
0
cr1cht0n Messages postés 10 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 9 septembre 2012 1
9 sept. 2012 à 13:02
A bah oui, en effet, ça va beaucoup mieux ^^ Merci. Pour ma défense, je suis programmeur, je ne connais pas bien les logiciels en eux même, mais j'ai la chance d'apprendre assez vite.

0