Construction d'une macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

10/05/2017, 09h20
aguerriera

Construction d'une macro

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.
:P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P :P
Merci d'avance pour votre aide :)
10/05/2017, 10h49
unparia

Bonjour

Citation:

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

euuuh :D

Enfaites pour le moment j'ai fait ça

Code:

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 :):roll:

10/05/2017, 11h50
aguerriera

Explication

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 :)

:calim2:
10/05/2017, 13h18
Igloobel

Citation:

Envoyé par 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 :)

:calim2:

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
11/05/2017, 07h33
aguerriera

Salut ! 😁

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 👌
12/05/2017, 08h31
aguerriera

RE

Bonjour,
Du coup, auriez-vous une solution à mon problème ?
Pour enlevez mon bouton ?
12/05/2017, 13h18
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, …
12/05/2017, 13h58
aguerriera

Euh...

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.

Quelque chose comme ça ?

Code:

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

12/05/2017, 14h04
Marc-L

Euh … En chauffant une paire de neurones !

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

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)
12/05/2017, 14h12
aguerriera

ZEEEN :)

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 :)

Donc,

Code:

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.

12/05/2017, 14h30
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:

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.
12/05/2017, 14h33
aguerriera

Oups :)

Mais du coup, ça ne règle pas mon problème.
Il m'affiche toujours le même code d'erreur, 1004
12/05/2017, 14h40
Marc-L

Juste en consultant l'aide VBA interne il suffit d'indiquer directement le nom du bouton : Shapes("nom") …
12/05/2017, 14h41
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:

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

Chez moi, cela marche très bien...
12/05/2017, 14h55
aguerriera

MAmaMIaaaah

Je met ça :

Code:

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.
12/05/2017, 15h00
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.
12/05/2017, 15h03
aguerriera

Translate ?

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

Voir 40 message(s) de cette discussion en une page