Problème pour rendre un bouton invisible sur une feuille

**aguerriera** · 15/05/2017, 12h20

Bonjour,
Comment allez-vous ?

Voilà j'aimerais donc rendre invisible mon bouton, mais impossible.
J'ai l'impression qu'il n'est reconnu, alors que le nom est exact.
Je vous laisse regarder de vous même.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub CommandBouton7_cliquer()
'déclaration des variables :
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String, AdresseTrouvee As String
    Dim Message_MZ, Title_MZ, Default_MZ, Value_MZ
    Dim ActiveSheet, Shapes, Range
    Dim LastRow As Long

                    'Fenêtre texte

                Message_MZ = " Saisir votre nom de famille "
                    Title_MZ = " Identification "
                    Value_MZ = InputBox(Message_MZ, Title_MZ, Default_MZ)
                If Value_MZ = "" Then
                End If
                
                Valeur_Cherchee = Value_MZ
                    
                    'dans la première colonne de la feuille active
                    
                Set PlageDeRecherche = Sheets("Feuil4").Range("A1:A20") '
                Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
        
            'Si on ne trouve rien :
                If Trouve Is Nothing Then
                    AdresseTrouvee = Valeur_Cherchee & "  vous n'êtes pas reconnu, veuillez réessayer "
                Else
                      AdresseTrouvee = Valeur_Cherchee & " vous êtes connecter"
                      

            'Copier , coller
                    Trouve.Copy
                    Worksheets("NEUF").Paste destination:=Worksheets("NEUF").Range("J7")
                    Worksheets("CP").Paste destination:=Worksheets("CP").Range("I7")
                
            'Suppresion du bouton
                    Worksheets("SOMMAIRE").Activate
                    
                    ActiveSheet.Shapes("CommandBouton7_cliquer").Visible = False
 
 

                    
            'Sauvegarde
                    'ActiveWorkbook.Save
                End If

                    MsgBox AdresseTrouvee
    'vidage des variables
                Set PlageDeRecherche = Nothing
                Set Trouve = Nothing
                
                

                
End Sub

MERCI D'AVANCE POUR VOTRE AIDE !

Invité · 15/05/2017, 12h40

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Worksheets("SOMMAIRE").Shapes("CommandBouton7_cliquer").Visible = False

**Marc-L** · 15/05/2017, 12h57

Bonjour, bonjour !

Envoyé par aguerriera

alors que le nom est exact

Si le nom était exact alors cette discussion n'aurait pas lieu d'être ‼
En utilisant juste l'Enregistreur de macro pour trouver le nom …

Voilà, voilà !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Invité · 15/05/2017, 13h14

Bonjour Marc,
vue que le nom du contrôle commence par CommandBouton7!

j’imagine que ce contrôle a été créé à l’arrache sens ce poser de question!

**Marc-L** · 15/05/2017, 13h24

Salut Robert !

Étant bien entendu d'accord avec toi mais « le nom est exact » m'a bien fait rire …

C'était aussi pour rappeler une méthode pour trouver à coup sûr le nom interne d'un objet d'une feuille de calculs
car le nom affiché à l'écran est bien souvent une traduction par défaut car en interne,
faut-il encore le rappeler, tout reste nativement en anglais ! (Exemple d'un bouton de la barre d'outils Formulaires.)
Donc en activant l'Enregistreur de macro puis par exemple juste en sélectionnant l'objet …

**aguerriera** · 15/05/2017, 13h59

Alors, j'aurais dû le préciser mais j'ai essayé sans le "_Cliquer" avec aussi, sans le "Command".
Mais rien ne marche.
Ensuite, pour réagir à "Le nom est exact", encore heureux que je sais où chercher le nom de ma macro, mais j'imagine que mes deux neurones ne doivent pas très bien marcher.

Puis dans l'immédiat le nom, qu'il soit "Bouton" ou " 2 neurones " l'importance c'est qu'il marche sur le fait.

Donc l'objectif de ma requête est de pouvoir échange et non de se moquer du nom.

Merci bien d'avance.

**Pierre Fauconnier** · 15/05/2017, 14h07

Salut.

Si ton bouton est un bouton ActiveX, ce que le nom qui lui est attribué permet de supposer, tu pourrais essayer avec le nom VBA de la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.CommandButton7.Visible = False

. Tu verras ainsi le nom exact du bouton.

De plus, tu dis que ça ne marche pas. As-tu une erreur? Si oui, laquelle et sur quelle ligne?

**aguerriera** · 15/05/2017, 14h17

Effectivement j'aurais dû précisé le code d'erreur.

Erreur d'exécution '424'

Objet requis

Puis j'ai essayé ce que vous m'avez dit, mais il me donne :

Erreur de compilation

Membre de méthode ou de données introuvable.

Quand je clique sur "Ok" ensuite il me sélectionne ".CommandButton7"

Je ne comprends pas où est le problème. :/

**halaster08** · 15/05/2017, 14h19

Bonjour, attention a ne pas confondre Name et Caption
Pour trouver le nom il faut être en Design Mode et faire un clic droit -> Properties
Nom : Untitled.jpg
Affichages : 1909
Taille : 65,4 Ko

Nom : Untitled.jpg
Affichages : 1909
Taille : 65,4 Ko

Avec le bon nom le code ci-dessous fonctionne sans problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Sheet1").Shapes("pouet").Visible = False

**Pierre Fauconnier** · 15/05/2017, 14h20

Un truc peut-être tout bête...

Dans ton code du début, tu écris CommandBouton7. Es-tu sûr que ce n'est pas CommandButton7?

**aguerriera** · 15/05/2017, 14h25

J'ai aussi essayé les deux par doutes.

Je me mets en Mode Création mais je n'ai pas de propriété ?

Du coup, je fais "Affecter une macro et je vois le nom.

Qui est "CommandBouton7_Cliquer"

**Pierre Fauconnier** · 15/05/2017, 14h33

Si tu as Affecter une macro, c'est que c'est un bouton de formulaire et pas un activex. Du coup, ce que j'ai dit avec feui1.command... ne tient pas la route.

Ce que tu vois, CommandBouton7_Cliquer n'est pas le nom du bouton, mais le nom de la macro qui sera exécutée au clic. Le nom du bouton s'arrête juste avant le signe _. du coup, le nom de ton bouton est bien
CommandBouton7.

Donc, la ligne qui le rend invisible dans le code que tu as donné tout au début me semble correcte. L'erreur survient sur cette ligne-là? Es-tu sûr que tu as bien ce bouton sur la feuille SOMMAIRE? Peux-tu donner exactement la ligne sur laquelle tu as l'erreur et le code d'erreur rencontré?

Cela étant, tu aurais intérêt à nommer correctement tes shapes. Tu devrai avoir un nom qui reprend l'action effectuée (CreateSheet, DeleteRow, ...)

**Marc-L** · 15/05/2017, 14h38

Envoyé par aguerriera

Effectivement j'aurais dû précisé le code d'erreur.

Erreur d'exécution '424'

Objet requis

Oui effectivement mais pour une fois cela ne change rien car l'objet n'existe pas donc le nom est juste incorrect
ou encore ce n'est pas la bonne feuille de calculs ou la bonne collection (Shapes par exemple),
tout dépendant déjà de la ligne de code déclenchant l'erreur …

**halaster08** · 15/05/2017, 14h41

Envoyé par aguerriera

Du coup, je fais "Affecter une macro et je vois le nom.
Qui est "CommandBouton7_Cliquer"

Ca c'est le nom de la macro pas du bouton...

Si ce n'est pas un activeX pour connaître son nom, suivre le conseil de Marc-L

Envoyé par Marc-L

C'était aussi pour rappeler une méthode pour trouver à coup sûr le nom interne d'un objet d'une feuille de calculs
car le nom affiché à l'écran est bien souvent une traduction par défaut car en interne,
faut-il encore le rappeler, tout reste nativement en anglais ! (Exemple d'un bouton de la barre d'outils Formulaires.)
Donc en activant l'Enregistreur de macro puis par exemple juste en sélectionnant l'objet …

**Pierre Fauconnier** · 15/05/2017, 14h46

Le nom du shape apparaît dans la zone des noms lorsque le bouton est sélectionné... Je ne vois pas trop l'utilité de l'enregistreur de macros pour trouver ce nom, et le nom qui est mentionné dans la zone des noms n'est pas traduit en interne au niveau du VBA.

Nom : picture.png
Affichages : 1825
Taille : 6,5 Ko

Nom : picture.png
Affichages : 1825
Taille : 6,5 Ko

Perso, je pense que ton bouton ne s'appelle pas CommandBouton7. Regarde comment il se nomme dans la zone des noms. C'est ce nom que tu dois mentionner dans shapes("...").

**halaster08** · 15/05/2017, 14h54

Envoyé par Pierre Fauconnier

Le nom du bouton apparaît dans la zone des noms lorsque le bouton est sélectionné...

Exact, c'est en effet plus simple ...
Pour ma défense j'utilise plutôt les boutons activeX et ça ne fonctionne pas pour ceux là

**Pierre Fauconnier** · 15/05/2017, 14h56

Envoyé par halaster08

[...]Pour ma défense j'utilise plutôt les boutons activeX et ça ne fonctionne pas pour ceux là

Pas de soucis et pas besoin de "te défendre"...

J'ai aussi été abusé en pensant que c'était un activex à cause du nom de départ

(qui n'est pas le nom habituel d'un bouton de formulaire).

**aguerriera** · 15/05/2017, 15h11

J'ai trouvé le bon nom de la feuille et le bon nom du bouton ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

                    Feuil210.Bouton 115.Visible = False

Alors c'est le bon nom, mais il me dit "Erreur de compilation, Erreur de syntaxe"

**Pierre Fauconnier** · 15/05/2017, 15h13

Tu dois utiliser

activesheet.shapes("Bouton 115").Visible = false

puisque c'est un bouton de formulaire (avec le code que tu as donné tout en début, en adaptant juste le nom du bouton.

Et, je me répète, tu aurais intérêt à nommer correctement tes boutons.