Problème argument MsgBox

Version imprimable

05/02/2019, 10h33
Mickamax

Problème argument MsgBox

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. :oops:

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
05/02/2019, 10h52
BENNASR

bonjour

Citation:

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 ??

essayez avec :

Code:

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

05/02/2019, 11h06
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:

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 !

1 pièce(s) jointe(s)

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:

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

Bonjour,

Citation:

- "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
Citation:
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:

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:

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

05/02/2019, 13h52
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

juste pour le style

Code:

1
2
3
4
5
6
7
8
9
Sub truc()
   Dim ok,i&
   ok = Selection.Value = "Administrateur" And Code = "Micka"
    If Not ok Then
        MsgBox "nan !! nan !! "
    Else
        For I = 2 To Sheets.Count: Sheets(I).Visible = ok: Next I
    End If
End Sub

;)