Autres Anomalie sur VBA avec les contrôlesToggleButton1_Click

Slavko.R

XLDnaute Nouveau
Bonjour à tous

J'ai deux fichiers Excel (2007) enrichies d'une requête de masquage.
C'est-à-dire, des plages à masquer avec l'utilisation d'un contrôle et d'un code VBA.
Le code à toujours fonctionné sur ces 2 fichiers, ainsi que les ToggleButton qui sont sensés activer le masquage des plages.

Dimanche je formate le disque dure de l'ordi et réinstalle Windows 10.
Ensuite, je fais un essai de masquage/ Démasquage et depuis, plus rien!
Les ToggleButton des deux fichiers restent collés, comme pétrifiés.
Il n'y a plus aucune interaction entre les contrôles et le VBA qui les commandent

Ma demande est la suivante:
Est ce que quelqu'un saurait identifier l'anomalie et réparer ces deux fichiers?
De mon côté, j'ai essayé de réactiver les contrôles avec les moyens que j'ai à ma disposition.
Mais, ça ne suffit pas, j'échoue à chaque fois
Il ne me reste donc plus qu'un recours, celui de m'en remettre à des experts

D'avance, merci aux personnes bienveillantes qui me dépanneront
Cordialement,
R.S
 

Pièces jointes

  • Calendrier_des_evenements.xlsb
    152.2 KB · Affichages: 9
  • Ressources&Charges.xlsb
    59.2 KB · Affichages: 6

Slavko.R

XLDnaute Nouveau
Me re voici Patrick

J'ai changé l'orientation de mes investigations.
Puisque nous sommes devant un obstacle impossible à résoudre.
Alors contournons le problème, avant que cela ne devienne un "casse tête"

Donc, j'ai copié ton code VBA et réalisé un jeu de contrôles à partir de formes du menu insertion.

Ces formes nouvellement créées, je leur aie affectées la macro de ton code VBA, et ...

ça n'a pas marché.
En revanche, voici le type d'erreur que cela à généré,
(Consulter fichier en 'PJ' pour voir l'erreur)

Bien à toi,
RS
 

Pièces jointes

  • EssaiSlavko V2.xlsm
    942.7 KB · Affichages: 1

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
C'est quoi cette PJ ? N'importe quoi. Mettre une image d'une feuille XL dans un fichier XL pour montrer une erreur macro !
1- Quel nom ont les shapes ? On ne sait pas.
2- Quelles macros sont accrochées aux shapes ? On ne sait pas.
3- Le problème est il reproductible sur un autre PC ? On ne sait pas.

Donc, pour mon dernier message, un essai en PJ avec deux shapes appelés Bouton1 et Bouton2 et :
VB:
Sub PushBouton1()
    With ActiveSheet.Shapes("Bouton1")
        If .TextFrame2.TextRange.Text = "Masquer A" Then
            .TextFrame2.TextRange.Text = "Démasquer A"
            .Fill.ForeColor.RGB = RGB(150, 250, 0)
            Rows("29:41").Hidden = True
        Else
            .TextFrame2.TextRange.Text = "Masquer A"
            .Fill.ForeColor.RGB = RGB(255, 200, 0)
            Rows("29:41").Hidden = False
        End If
    End With
End Sub
Idem pour Bouton2.
Le résultat sur mon PC :
20231022_211335.gif


NB: Moi c'est Sylvanu pas Patrick. Laissons à chacun son speudo. Je ne voudrais pas être poursuivi par le maître pour usurpation d'identité. 😅
 

Pièces jointes

  • Ressources&Charges (V6).xlsb
    60 KB · Affichages: 1
Dernière édition:

Slavko.R

XLDnaute Nouveau
Bonjour Patrick

J'ai observé votre conseil de près et fait ceci:

2- Vous remplacez vos ToggleButton par des shapes. ( ce que, perso, je préfère par pur esthétique )

Cela à généré une erreur, que bous pouvez consulter en 'PJ'.
La seconde 'PJ', c'est mon fichier de base.

D'avance merci,
RS
 

Pièces jointes

  • EssaiSlavko V2.xlsm
    942.7 KB · Affichages: 0
  • Ressources&Charges.xlsb
    61.6 KB · Affichages: 2

Slavko.R

XLDnaute Nouveau
Bonjour Sylvanu
Merci pour ton aide et ton intervention
je suis désolé pour ce petit mélange de nom.
Il se trouve que ton message à été tronqué, pourquoi? Je n'en sais rien.
Donc, je n'en prends connaissance que maintenant.

Maintenant, allons au cœur du dossier.
Etant donné que mes anciens ToggleButton sont figés.
Est ce qu'il y a une combine pour éliminer des contrôles inutiles.
Car visiblement ton code fonctionne sur la feuille ou tu l'as installé.

Je souhaiterai faire de même sur le second onglet.
Mais, les anciens ToggleButton vont me poser problème.
Une suggestion?

D'avance merci
RS
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Slavko,
Vous ne lisez jamais les messages ?
avec deux shapes appelés Bouton1 et Bouton2
Dans votre PJ feuille ChargesLoca vous avez deux shapes nommés : "Rectangle à coins arrondis 14" et "Rectangle à coins arrondis 15" et les macros ont comme ligne de code : Shapes("Bouton1")...
et comme le shape "Bouton1" n'existe pas sur cette feuille cela génère une erreur.
Donc soit vous renommez vos shapes Bouton1 et 2, soit vous modifiez le code avec Shapes("Rectangle à coins arrondis 14")... et idem pour le 15.
 

Slavko.R

XLDnaute Nouveau
Bonjour Sylvanu

Un grand merci pour tes conseils.
Ils m'ont été forts utiles.

Ce fichier refonctionne comme avant.
Maintenant, à moi de jouer pour le second fichier, également endommagé.
Avec cette "Boite à outils" bien équipée.
Je pense pouvoir bricoler quelque chose pour ce dernier fichier

Encore une fois merci,
Bien à toi

RS
 

Statistiques des forums

Discussions
313 287
Messages
2 096 836
Membres
106 758
dernier inscrit
JM9