Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème, dans une feuille de calcul Excel lorsque je clique dans la cellule A1, une UserForm (FrmSai) apparaît, c'est une UserForm où l'on demande de saisir un mot de passe, lorsque celui-ci est bon une autre UserForm (FrmTrav) est affichée.
Mon soucis est qu'à chaque fois que je ferme l'UserForm FrmTrav je suis obligé de cliquer de nouveau dans la cellule A1 et à nouveau il m'est demandé le mot de passe, c'est cette dernière opération que je ne souhaite plus utiliser lorsque l'utilisateur a déjà tapé le mot de passe une fois. En clair, une fois qu'il a tapé le mot de passe une fois, il lui suffira par la suite de cliquer dans la cellule A1 pour l'UserForm FrmTrav soit affichée.
Merci pour votre aide

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
Private Sub CommandButton1_Click()
If Txt1.Value = "APEL" Then
Unload Me
Application.ScreenUpdating = False
For Each feuil In Application.Sheets
feuil.Unprotect Password:="APEL"
Next feuil
Application.ScreenUpdating = True
MsgBox "Les feuilles ne sont plus protégées!!", vbCritical, "Attention!!"
Load FrmTrav
FrmTrav.Show
Else
MsgBox "Vous n'avez pas tapé le bon de passe!!" + Chr(10) + "Vous ne pouvez accéder à cette action!!"
Unload Me
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

[oOVaveOo]

Bonjour,
Tu peux définir une variable en static qui changerait de valeur au premier clic dans A1.
Tu peux tester sa valeur pour afficher ou non ton userform.

[NEC14]

Bonjour,

Mais comment fait-on cela ?

[decondelite]

Code :

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

Static mavariable As TypeMaVariable

A mettre à l'intérieur d'une procédure/fonction.

Lis l'aide en ligne associée au mot clé static.

[NEC14]

Bonjour,

Voilà j'ai tapé ces 2 codes, mais cela ne fonctionne pas. Lorsque je clique dans la cellule A1, rien ne se passe. Le formulaire du mot de passe (FrmSai) ne s'affiche pas, ni le formulaire (FrmTrav).
Pouvez-vous me dire ce qui ne va pas ?

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
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim COL As Long
Dim lig As Long
Dim a As Long
    Static PW As Boolean
    If Not PW Then
        If FrmSai.Txt1.Value = "APEL" Then PW = True
        If PW = True Then
    If Intersect(Range("A1"), ActiveCell) Is Nothing Then Exit Sub
        If IsEmpty(ActiveCell.Value) Then
    lig = 5
    COL = ActiveCell.Column
    a = Cells(lig, COL).Value
        If a = 0 Then COL = COL + 1
        Load FrmSai
        FrmSai.Show
        End If
        End If
        End If
End Sub
Sub PW()
PW = "APEL"
End Sub

Merci par avance

[oOVaveOo]

Bonjour,
Que vaut PW ?

Mets un point d'arrêt et va voir quelle valeur il a.

[NEC14]

Bonjour,

Comme je l'ai indiqué, il vaut "APEL". C'est vrai, les 2 codes ne sont pas séparés.

[ucfoutu]

Bonjour,

cela m'étonnerait que PW vaille "APEL" au sein de
Sub Worksheet_SelectionChange
Si tel était le cas ===>> tu aurais un message d'erreur (booléenne attendue)

Edit : PW étant déclarée comme Static au sein de Sub Worksheet_SelectionChange, elle ne peut changer de valeur qu'au sein de cette procédure et n'a que 2 valeurs possibles : True ou False (et en aucun cas un string)

[NEC14]

Bonjour,

Je ne comprends pas ta réponse.
J'ai fait une première déclaration

Code :

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

1
2
3
 
Sub PW()
PW="APEL"

Ensuite j'ai intégré PW à mon code cité ci-dessus. Ce que je veux faire, c'est que lorsque j'arrive sur la feuille pour la 1ère fois, je clique sur la cellule A1, une UserForm (FrmSai) apparaît où il nous est demandé de saisir un mot de passe (APEL), si le mot de passe est bon, une autre UserForm (FrmTrav) apparaît. Le problème que je rencontre, c'est que si je ferme cette dernière UserForm (FrmTrav) et que je clique de nouveau en A1, il m'est demandé à nouveau le mot de passe et ça je veux le supprimer.

[ucfoutu]

la chose est simple ...
Tu dis plus haut que tu ne veut plus repasser par FrmSai si déjà renseigné par le bon mot de paswse.

Bien :

Tu crées une variable booléenne publique (dans un module). Appelons-la toto

Dans ton évènement selectionchanged :
si toto = false ===>> tu affiches FrmSai
si toto = true ===>> tu passes direectement à ton formulaire de travail

Dans ton code de traitement et vérification du mot de passe (dans FrmSai, donc) ===)>> si bon code ===>> tu donnes la valeur True à toto.

C'est enfantin.

(et tu laisses tomber ce que tu as déjà écrit)

[oOVaveOo]

Au premier lancement de ta macro, PW=False.
Tu fais le test et si le mot de passe est bon, tu passe PW = true.

Au prochain événement selection_change, ton PW étant à true, tu ne réaffiche plus la demande de mot de passe.

Je ne vois pas pourquoi tu fais ça :

Code :

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

1
2
3
Sub PW()
PW = "APEL"
End Sub

[NEC14]

J'ai copié un code que j'avais déjà et il fonctionne. Mais dans cette appli, je n'obtiens pas le même résultat.

[ucfoutu]

Il ne FAUT PAS là utiliser une variable static, mais une VARIABLE PUBLIQUE !
Une variable static ne pourrait pas voir sa valeur passer de False à True depuis le formulaire de gestion du mot de passe (ni d'ailleurs de quelque autre procédure que ce soit, autre celle où elle est utilisée en tant que Static !)

[decondelite]

NEC14 => Indente déjà ton code, car tel qu'il est c'est illisible.

Ensuite, essaye comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public PW As Boolean ' (à mettre dans un module standard)
 
Private Sub Worksheet_SelectionChange(ByVal target As Range)
    Dim COL As Long
    Dim lig As Long
    Dim a As Long
    If PW Then Exit Sub
    If Not Range("A1").Address = ActiveCell.Address Then Exit Sub
    Load FrmSai
    FrmSai.Show
    If FrmSai.Txt1.Value = "APEL" Then PW = True
End Sub

Pour le reste du code, je ne comprends pas ce que tu cherches à faire.

[ucfoutu]

Pourquoi diable passer par la valeur d'une textbox ?
Il suffit de déclarer PW publique dans un Module et de le passer à True lorsque l'on donne le bon mot de passe.
Eviter ces tremplins inutiles.
Relire le mécanisme que j'ai défini plus haut (il est très simple et efficace).

[oOVaveOo]

Il a 2 userforms à afficher.
Il veut que le premier ne s'affiche qu'une fois pour demander le mdp puis le second à chaque selection_change.

Je donnais l'idée d'une variable statique (dans le selection_change) qui passerait à true une fois le mot de passe validé.

[decondelite]

Moi aussi, mais en réfléchissant bien, je pense qu'une variable publique est mieux: tu peux savoir si le mot de passe a été rentré depis n'importe quel point du code.

[ucfoutu]

Voilà ...

Une petite astuce, maintenant :

L'évènement SelectionChanged n'intervenant que si l'on change de cellule, il faut "forcer la main" en cas de mauvais mot de passe. Comment ? simplement en sélectionnant alors (en cas de mauvais mot de passe) dynamiquement (depuis le code) n'importe quelle autre cellule...
Ainsi, l'utilisateur, s'il n'a pas donné le bon mot de passe, sera bien obligé de déclencher à nouveau l'évènement selectionChanged...
C'est tout ...

[NEC14]

Merci à tous, avec votre aide j'ai réussi à résoudre mon problème.
J'en ai un autre, mais je vais clore celui-ci et engager une nouvelle discussion, car il n'a rien à voir avec celui-ci.
Encore merci.