Autres Anomalie sur VBA avec les contrôlesToggleButton1_Click

[Slavko.R]

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

 

[sylvanu]

Re,
Avec des shapes, ça marchera. C'est sur ça que sont basés les boutons bleus de ma PJ.
Les shapes offrent l'avantage d'avoir la forme, la couleur que vous voulez. C'est plus esthétique.
Il suffit de cliquer droit dessus et faire "Affecter une macro..."

 

[Slavko.R]

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

 

[sylvanu]

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 :

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 :

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é. 😅

 

[Slavko.R]

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

 

[Slavko.R]

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]

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]

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