Mes boutons ne sont plus accessibles

Fermé
Mouftie Messages postés 215 Date d'inscription vendredi 28 novembre 2008 Statut Membre Dernière intervention 6 septembre 2020 - 24 nov. 2012 à 14:53
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 25 nov. 2012 à 21:19
Bonjour,
J'ai créé un petit planning de suivi d'activités;
les utilisateurs disposent d'une barre d'outils avec une listebox pour choisir leur activité
Les managers disposent de qq lignes au dessus du planning des agents pour mentionner des activités générales pour cela, ils disposent de 4 boutons de couleurs ; le principe est simple, le manager sélectionne qq cellule concernées et clique ensuite sur la couleur voulue pour colorer les cellules sélectionnées.
pour ce faire, j'ai écrit le code svt :
'ACTIVATION DES BOUTONS DE COULEURS

Sub Bt_CoulAncRev_Click()
Selection.Interior.Color = 13083058 'Mauve = R 178 / G 161 / B 199
End Sub

Sub Bt_CoulDD_Click()
Selection.Interior.Color = 11337468 'Jaunatre = R 252 / G 254 / B 172
End Sub

Sub Bt_CoulDP_Click()
Selection.Interior.Color = 14994616 'Bleuté = R 184 / G 204 / B 228
End Sub

Sub Bt_CoulGDC_Click()
Selection.Interior.Color = 14474738 'Rosé = R 242 / G 221 / B 220
End Sub
ça fonctionnait pourtant, maintenant, quand on clique sur les boutons, il ne se passe rien.
J'ai essayé de mettre le code dans la feuille modèle ou dans le module1, ça ne change rien
QQ'1 peut-il me dire ce que je devrais faire svp.
Je vous joins un fichier test
https://www.cjoint.com/?3KyovqArqcu
NB:
En principe, personne ne doit modifier la feuille Modèle qui est cachée.
Pour créer un mois de saisie, il suffit d'ouvrir la boite à outils (bouton Menu de la feuille menu) et de cliquer sur le 1er bouton.
Pour plus simple j'ai laissé le modèle visible et j'ai créé un mois de saisie.

Pendant que j'y suis, comment fait-on pour laisser visible le code d'un projet mais en interdire les modifications sans un mot de passe ? outils propriétés de VBA Projet permet de cacher le code, mais c'est pas très pédagogique...

Merci

4 réponses

Le Pingou Messages postés 12175 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 octobre 2024 1 448
24 nov. 2012 à 23:12
Bonjour,
Il n'y a pas de code attribué aux 4 boutons [Module...]...donc aucune action.

0
Mouftie Messages postés 215 Date d'inscription vendredi 28 novembre 2008 Statut Membre Dernière intervention 6 septembre 2020 15
25 nov. 2012 à 19:04
Bonjour Le Pingou,
Tu dis qu'il n'y a pas de code, or en plus du fichier, j'ai copié le code des boutons : Sub Bt_CoulAncRev_Click() et les 3 autres.
Tu dis [Module] or comme je le dis, j'ai essayé de le mettre " dans la feuille modèle ou dans le module1"
Donc, je ne comprends pas ce que tu essaies de me dire.
Veux-tu bien développer, stp.
Je vois bien qu'à chaque fois que je rouvre le fichier le bouton ne renvoie pas sur la macro qui lui a été affectée, puisqu'en mode création, click droit / Visualiser le code, VBA renvoie
Private Sub Bt_CoulGDC_Click()

End Sub
alors que la procédure existe déjà (j'ai également essayé avec et sans private...)

Merci
0
Le Pingou Messages postés 12175 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 30 octobre 2024 1 448
25 nov. 2012 à 21:08
Bonjour,
Comme vous le montrez si bien
Private Sub Bt_CoulGDC_Click()
......!
.....!
....!
End Sub

Ou est le code ...

Au minimum vous regarder dans le classeur qui fonctionne ...!
0
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
25 nov. 2012 à 21:19
Bonjour Le Pingou et Mouftie

Le Pingou à raison, Le code des boutons n'est pas au bon endroit.
Il se trouve à la fin de "Module1"
Il suffit de les couper et coller dans le code de la feuille 5

A+
0