Discussion :

[aguerriera]

Bonjour !

J'espère que cette fois-ci je suis sur le bon emplacement.
Du coup, j'ai besoins d'aide, je suis débutant dans Excel et ses macros.
Je suis en train de faire un sommaire d'activité pour une entreprise en stage.(ça consiste à se mettre à jour par rapport à l'entreprise, congé, arrêt maladie.)
J'ai créé des feuilles sur Excel qui permet de nous identifier avec notre nom prénom et notre matricule.
Du coup ce que j'aimerais faire, c'est un bouton "IDENTIFIER" qui permet au salarier de s'identifier, et que sur les feuilles(exemple: d'arrêt maladie) cela se met à jour tout seul sans que lui soit obliger de mettre son nom et prénom à chaque fois.

J'ai créé le bouton, la macro.
Mais là je dois vous avouez que je ne suis complétement larguer.

J'espère que vous pourriez m'aider.

Merci d'avance pour votre aide

[unparia]

Bonjour

J'ai créé le bouton, la macro.

Hé bien ... Et si tu nous la montrais, cette macro, telle que tu l'as créée ?
En nous précisant sur quelle partie de ce code tu rencontres une difficulté.

[aguerriera]

Enfaites pour le moment j'ai fait ça

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
Sub Bouton7()
' S'identifier
 
' Définition des variables
        Dim Message_MZ, Title_MZ, Default_MZ, Value_MZ, Num
        'Dim Bouton7
 
    ' Identification de l'utilisateur
 
                Message_MZ = " Saisir votre nom de famille "
                Title_MZ = " Identification "
 
 
 
 
    ' Affiche le message, le titre et la valeur par défaut.
                Value_MZ = InputBox(Message_MZ, Title_MZ, Default_MZ)
                If Value_MZ = "" Then
                End If
 
    ' Masquer le bouton
                Private Sub Form_Current()
                'Si le nombre de caractères dans le champ=0
                If Len(Value_MZ) = 0 Then
                'On met le bouton indisponible
                Bouton7.Enabled = False
                Else
                Bouton7.Enabled = True
                End If
 
 
 
End Sub

Le problème déjà c'est que je n'arrive pas à faire disparaître mon bouton
Je suis un novice je vous préviens

[aguerriera]

En faites,
le but de tout ça, c'est que quand il s'identifie il soit trouver dans le répertoire, puis ensuite le bouton disparaît.
J'espère que j'explique bien

[Igloobel]

En faites,
le but de tout ça, c'est que quand il s'identifie il soit trouver dans le répertoire, puis ensuite le bouton disparaît.
J'espère que j'explique bien

j'ai pas tout compris mais ce qui megène le plus c'est la conception.

Il n'est pas normal qu'un salarié mette à jour le fichier arrêt maladie en voyant les autres arrêt maladie (ceux des collègues) du maoins c'est ce que j'ai compris


Essaye de donner un MAX d'info pour que l'on puisse t'aider


@ bientôt

[aguerriera]

Justement c'est pour cela que je veux qu'il ne puisse que s'identifier une fois, en mettant son nom.
Du coup, vous avez une idée pour faire disparaître le bouton ?
Merci d'avance 👌

[aguerriera]

Bonjour,
Du coup, auriez-vous une solution à mon problème ?
Pour enlevez mon bouton ?

[Marc-L]

Bonjour,

c'est pourtant si simple :   activer l'Enregistreur de macro puis enlever le bouton, une base de code est livrée sur un plateau !

___________________________________________________________________________________________________________

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

[aguerriera]

Vous n'avez pas compris je crois.
Je ne veux pas le supprimer, je veux que une fois qu'il s'est enregistrer, le bouton disparaît tout seul.

[riaolle]

Quelque chose comme ça ?

Code :

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

1
2
3
Sub test()
    ActiveSheet.Shapes.Range(Array("Button 1")).Visible = True
End Sub

[Marc-L]

Ne pas traduire ce que je n'ai pas écrit ‼   Et pourtant j'ai exactement repris ta formulation ! 

Les réponses étant donc au niveau de la présentation, si tu penses être incompris
alors il suffit de prendre le temps d'effectuer une présentation digne de ce nom, claire et exhaustive !

___________________________________________________________________________________________________________

Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)

[aguerriera]

Je me suis certainement mal exprimé, mais cool.
Je cherche juste à trouver une solution.



Effectivement, je recherche quelque chose comme ça, j'ai essayer mais ça me met un code erreur d'exécution '1004' L'élément portant ce nom est introuvable.

Je suis novice, pour info

[aguerriera]

Donc,

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
Sub Cherche()
'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, Num
    Dim ActiveSheet, Shapes, Range
 
                    '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                                      'Valeur rechercher
    'dans la première colonne de la feuille active
                Set PlageDeRecherche = Sheets("Feuil4").Range("A1:A20") 'plage de recherche
                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"
 
 
                End If
                    MsgBox AdresseTrouvee
    'vidage des variables
                Set PlageDeRecherche = Nothing
                Set Trouve = Nothing
 
 
            ActiveSheet.Shapes.Range(Array("CommandBouton7")).Visible = False
 
 
End Sub

Quand j'arrive à 'ActiveSheet...." il me met "Erreur d'exécution 424 Objet requis.

[riaolle]

ATTENTION, je te conseille VIVEMENT de lire un tuto sur le VBA , car là tu commets une erreur "grave".
Que fais-tu ici ???

Code :

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

Dim ActiveSheet, Shapes, Range

On déclare des variables et objets que l'on va "construire" soit même. ActiveSheet, Shapes et Range sont des noms "bloqués" par VBA, càd qu'ils sont déjà utilisés pour quelque chose, on ne peut donc pas nommer ses variables ou objets de la même manière. A tout moment je peux utiliser ActiveSheet pour faire référence à la feuille active. Pas besoin de le déclarer avant !! Je dirais même plus, il NE FAUT PAS le déclarer avant, car VBA pensera que tu veux déclarer un objet ou une variable de ce nom.

[aguerriera]

Mais du coup, ça ne règle pas mon problème.
Il m'affiche toujours le même code d'erreur, 1004

[Marc-L]

Juste en consultant l'aide VBA interne il suffit d'indiquer directement le nom du bouton : Shapes("nom") …

[riaolle]

Est-ce que la feuille active est bien celle où il y a le bouton? Plutôt que d'écrire ActiveSheet, spécifie clairement de quelle feuille tu veux parler :

Code :

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

Sheets("ma feuille").Shapes.Range(Array("CommandButton7")).Visible = False

Chez moi, cela marche très bien...

[aguerriera]

Je met ça :

Code :

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

                    Sheets("SOMMAIRE").Shapes.Range(Array("Bouton7")).Visible = False

Il me sort un 1004, L'élément portant ce nom est introuable.

Je ne comprends plus.

[Marc-L]

riaolle, l'Array est un peu superfétatoire pour un seul élément !

Et au lieu du nom on peut utiliser son index …   Sinon le nom est récupérable via la fonction Caller.

[aguerriera]

Je vois bien que vous vous y connaissez mais là je ne comprends pas ?