Bug de disparition avec un Commandbutton via vba Résolu

Question

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!


Configuration: Windows 7 / Chrome 26.0.1410.64

Mihawk · Answer

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 ?

Bobbyli · Answer

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

lermite222 · Answer

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+

Bobbyli · Answer

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

lermite222 · Answer

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+

Bobbyli · Answer

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

Bug de disparition avec un Commandbutton via vba

6 réponses

Discussions similaires

Newsletters