Discussion :

[Mickamax]

Bonjour à tous,
C'est la première fois que je me frotte à MsgBox et la réponse à ma question est probablement élémentaire mais jusqu'ici je bloque.

Voici mon code: If Selection.Value = "Administrateur" And Code <> "Micka" Then MsgBox ("Mot de passe incorrect")

Il me manque un argument derrière celui, sans quoi le message s'affiche bien, mais cliquer sur "Ok" ne le fait pas disparaître.

Quelqu'un d'assez aimable pour me filer un coup de main ?

Bonne journée,
Micka

[BENNASR]

bonjour

If Selection.Value = "Administrateur" And Code <> "Micka" Then MsgBox ("Mot de passe incorrect")

c'est quoi ce selection.value??? une réponse d'un inputbox?? aussi c'est quoi ce code??
plus de précision ??

[BENNASR]

essayez avec :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim Utilisateur As String
Dim MotDePasse As String
Utilisateur = Application.InputBox("Saisir nom utilisateur : ", "Merci de saisir le nom de l'utilisateur", , , , , , 3) 'le 1 impose du numérique. Voir l'aide pour trouver la bonne constante
MotDePasse = Application.InputBox("saisir mot de passe: ", "Merci de saisir le mot de passe", , , , , , 3) 'le 1 impose du numérique. Voir l'aide pour trouver la bonne constante
If Utilisateur <> "AAA" Then MsgBox ("Utilisateur incorrecte")
If MotDePasse <> "BBB" Then MsgBox ("mot de passe incorrecte")
End Sub

[Mickamax]

Oups, c'est vrai que je n'ai pas apporté beaucoup de précision, méa culpa.
J'ai créé un formulaire:
- "Selection" correspond à un ComboBox qui me permet de choisir un service "admin, achats, etc".
- "Code" correspond à un TextBox simple.


Dans mon code, je voulais faire un truc du style "Si la sélection de mon combobox=admin et Code correspond à mon mdp, alors tous les onglets s'affichent".

En pratique, cela ressemble à ça:

Code :

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

1
2
3
4
For I = 2 To Sheets.Count
    Sheets(I).Visible = False
    If Selection.Value = "Administrateur" And Code = "Micka" Then Sheets(I).Visible = True
Next I

D'où le MsgBox que j'ai essayé d'ajouter: Si le mot de passe n'est pas le bon, afficher un message "Mot de passe incorrect".

Voilà, merci beaucoup !

[BENNASR]

essayez avec
NB : Je ne maitrise pas le Do...Loop...et cette partie de code j'ai pris de ce super site et j'ai adapté peut être pour tes besoins...

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
Private Sub CommandButton1_Click()
Trouve = False
i = 2
Sheets("Codes").Visible = True
Sheets("Codes").Select
Do
    If selection.Value = Range("A" & i).Value And code.Value = Range("B" & i).Value Then
        Trouve = True
        MsgBox ("Mot de passe correcte")
    Else
        i = i + 1
    End If
Loop While i <= Range("A2").End(xlDown).Row And Trouve = False
If Trouve = False Then
    Sheets("Codes").Visible = False
    MsgBox "Nom d'utilisateur ou mot de passe incorrect"
    selection = ""
    code = ""
End If
End Sub
 
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("Codes").Range("A65536").End(xlUp).Row
  selection = Sheets("Codes").Range("A" & i)
  If selection.ListIndex = -1 Then selection.AddItem Sheets("Codes").Range("A" & i)
Next i
selection.Value = ""
End Sub

[halaster08]

Bonjour,

- "Selection" correspond à un ComboBox qui me permet de choisir un service "admin, achats, etc".

Si tu as nommé ta combobox "Selection" c'est une mauvaise idée ce nom est déjà utilisé en vba et pourrait causé des confusions
Si Selection correspond au résultat d'un combobox que tu aurais sélectionné auparavant autant utiliser directement son nomcombobox1.value

Dans mon code, je voulais faire un truc du style "Si la sélection de mon combobox=admin et Code correspond à mon mdp, alors tous les onglets s'affichent".

En pratique, cela ressemble à ça:

Code :

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

1
2
3
4
For I = 2 To Sheets.Count
    Sheets(I).Visible = False
    If Selection.Value = "Administrateur" And Code = "Micka" Then Sheets(I).Visible = True
Next I

Si tu met ta condition et ton msgbox dans la boucle il va refaire le test et afficher le résultat a chaque itération, il vaut mieux sortir le test de la boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If Selection.Value = "Administrateur" And Code = "Micka" Then 'si la condition est vraie
  For I = 2 To Sheets.Count 'on boucle sur les feuilles
      Sheets(I).Visible = true 'on les rend visibles
  Next I
else 'sinon
  For I = 2 To Sheets.Count 'on boucle sur les feuilles
      Sheets(I).Visible = false 'on les rend invisibles
  Next I
Msxbox "mdp incorrect" 'et on affiche le message
end if

[Igloobel]

Bonjour,


Il y a une différence entre :

MsgBox ("Message") et
MsgBox "Message"

cf tutos du site :

https://fring.developpez.com/vba/excel/msgbox/

https://mhubiche.developpez.com/vba/...bases/#LII-A-2