Bug de disparition avec un Commandbutton via vba

Résolu/Fermé
Anonyme - 19 avril 2013 à 20:41
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 - 20 avril 2013 à 18:52
Bonjour,

Avant toute chose, je tiens à préciser que je suis totalement un néophyte en VBA. J'ai seulement des bases (ce n'est pas ma formation...)

Cela étant dit, je fais appel à vous pour un "léger" soucis (j'interagis avec excel):

Mon objectif: créer un bouton (commandbutton), associé évidemment à une macro, qui une fois activé, deviens invisible.

Dans l'idée j'ai compris l'écriture:

Activesheet.shapes("nombouton").visible = true.

Ok. Mais le problème réside ailleurs... En effet, quand je clique sur le bouton, celui ne disparaît pas totalement. Je dois mettre les cases où se trouvent le bouton en surbrillance pour qu'elle disparaisse totalement.
Par ailleurs, quand j'active la macro via vba, aucun soucis...

Où réside le soucis?

Merci d'avance!


6 réponses

Mihawk Messages postés 4313 Date d'inscription mercredi 29 mars 2006 Statut Contributeur Dernière intervention 6 janvier 2015 845
19 avril 2013 à 21:21
Hello,

Le bouton ne disparait pas totalement ? C'est peut-être parce qu'il était sélectionné et que la petit surbrillance de sélection persiste ; elle disparait quand tu sélectionnes un autre élément.

Non ?
0
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 1
19 avril 2013 à 21:32
Pour e^tre tout à fait clair:

Le bouton selectionne toutes les cellules et les met en noire.
Puis il doit disparaître

Et si je laisse toute les cells selectionnées j'ai pas de soucis mais si je fais selectionner/activer une autre cellule/plage... Ca bug.

Et encore une fois, via vba tout court, aucun soucis
0
Mihawk Messages postés 4313 Date d'inscription mercredi 29 mars 2006 Statut Contributeur Dernière intervention 6 janvier 2015 845
19 avril 2013 à 23:10
Peut-on voir le code VBA ?
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 avril 2013 à 00:21
Bonjour,
Les boutons issu des outils formulaire ne supporte pas cette propriété.
De plus pour "cacher" un bouton c'est = False
Met un bouton des outils ActiveX tu va alors avoir l'événement Clic
Private Sub CommandButton1_Click()
    '... le nom de la macro
    CommandButton1.Visible = False
End Sub

A+
0
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 1
20 avril 2013 à 09:35
Bonjour!

Autant pour moi, j'ai bien mis = false! Et avec un bouton des outisl activeX. Voici la procédure en question:


Private Sub Debut_Click()

'colorie
Cells.Select
Selection.Interior.ColorIndex = 1

Range("A1").Select

'masque le bouton start
ActiveSheet.Shapes("Debut").Visible = False
ActiveSheet.Shapes("Annulation").Visible = True

Range("A1").Select

End Sub


Là, je viens de tester avec "Debut.visible=false" au lieu de "activesheet.shapes......" et ça m'a l'air de fonctionner correctement, sans que je sois néanmoins en mesure de me l'expliquer...
0

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

Posez votre question
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
20 avril 2013 à 17:09
Suivant tes premières explications j'ai supposé que tu avais des boutons "formulaire" mais au vu de ta procédure je vois que ce sont des boutons ActiveX et les commandes sont plus simples
     Debut.Visible = False 
     Annulation.Visible = True 
devrait fonctionner.
A+
0
Bobbyli Messages postés 220 Date d'inscription vendredi 19 avril 2013 Statut Membre Dernière intervention 3 janvier 2016 1
20 avril 2013 à 18:52
Hey!

Il semblerait que dans l'immédiat ce soit réglé. J'vous remercie donc tous pour votre aide!
Et j'le mets en résolu!

Bonne fin de weekend et encore merci
0