Prog vba pour excel code pour plusieur pers

salut
merci de ton aide ,suite a ta question j'ai modifier mon prog pour qui affiche a chaque evenements les valeurs de mes variables.
Et elle sont justes,donc j 'en deduit que le probléme vient de ma ligne de prog suivante:
if nomutilisateur= "personne1" and code <> code1 then
msgbox ("Code invalide")
end if

pour moi ces lignes de prog:
cela dit si la variable (nomutilisateur)=personne1 et que la variable (code) et differente que le code1 alors affichez code invalide.
est-ce que je me trompe?
merci
a+

salut
jais oublie de te dire que j'ais refait mon prog de cette façon:

Dim code As String
Dim nomutilisateur As String
Dim code1 As String
Dim code2 As String
Dim code3 As String
Dim code4 As String
Dim code5 As String
Dim code6 As String
--------------------------------------------------------------------
Private Sub OptionButton1_Click()
nomutilisateur = "personne1"
TextBox1.Value = ""
End Sub
--------------------------------------------------------------------
Private Sub OptionButton2_Click()
nomutilisateur = "personne2"
TextBox1.Value = ""
End Sub
--------------------------------------------------------------------
Private Sub OptionButton3_Click()
nomutilisateur = "personne3"
TextBox1.Value = ""
End Sub
--------------------------------------------------------------------
Private Sub OptionButton4_Click()
nomutilisateur = "personne4"
TextBox1.Value = ""
End Sub
--------------------------------------------------------------------
Private Sub OptionButton5_Click()
nomutilisateur = "personne5"
TextBox1.Value = ""
End Sub
--------------------------------------------------------------------
Private Sub OptionButton6_Click()
nomutilisateur = "personne6"
TextBox1.Value = ""
End Sub
--------------------------------------------------------------------
Private Sub UserForm_Initialize()
code = TextBox1.Value

code1 = Sheets("code").Range("B2").Value
code2 = Sheets("code").Range("B3").Value
code3 = Sheets("code").Range("B4").Value
code4 = Sheets("code").Range("B5").Value
code5 = Sheets("code").Range("B6").Value
code6 = Sheets("code").Range("B7").Value

OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False

End Sub
--------------------------------------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()

MsgBox (nomutilisateur)

If TextBox1.Value = "" Then
MsgBox ("Entrez votre code en minuscule s.v.p")
End If

If nomutilisateur = "pesonne1" And code <> code1 Then
MsgBox ("code invalide")
End If

If nomutilisateur = "personne2" And code <> code4 Then
MsgBox ("code invalide")
End If

If nomutilisateur = "personne3" And code <> code6 Then
MsgBox ("code invalide")
End If

If nomutilisateur = "personne4" And code <> code5 Then
MsgBox ("code invalide")
End If

If nomutilisateur = "personne5" And code <> code3 Then
MsgBox ("code invalide")
End If

If nomutilisateur = "personne6" And code <> code2 Then
MsgBox ("code invalide")
End If

End Sub

donc voila pourquoi quand je tape un code faux dans la textbox1 il ne se passe rien.
Et si je tape le bon code rein non plus
et mes variables prennent bien les valeurs qu il faut.

merci de votre reponce
a+

bonsoir et merci de ton aide

je comprend les modif que tu a faite sauf cela:

MsgBox nomutilisateur & " CODE1:" & code1 & " CODE:" & code

peut tu me la traduire?

merci....

salut lermit...

Pourquoi demander de valider le nom d'utilisateur ? puisque tu demande seulement de cliquer sur une option ?
la raison pour laquelle jutilise une option c'est pour evite a l'utilisateur de tapez son nom.
Ensuite je rentre le nom de l'utilisateur dans une variable pour pouvoir l'utiliser sa valeur dans une autre useforme est l'inscrire dans un tableaux excel, mais pour l'instant je n'en suis pas la.

merci pour ton exemple je croix que j'ais du boulot devant moi pour le comprendre.

encore merci.
a+

salut
Ne repond pas à mon méssage précèdent car, je croix avoir compris.

je pense que cela doit être possible, mais pas trés intéressant.

Car, il est stupide de réalisé un prog de cette façon. Il faudrait faire appelle à des modules pour chaque personnes.
cela aurait pour consécance un prog volumineux et une modif du prog pour chaque nouvelles personnes qui doivent l'utuliser.

dit-moi juste pour savoir, ai je raison ?
Esque cela est possible? car ne sais pas utiliser les modules pour l'intant.

bonjour Lermite222


Comme la dit je m'inspire de ton prog, mais je suis un peut perdu par certainne ligne de prog.

Private Sub CommandButton2_Click()
'Bouton annuler
'enlever le Rem pour rendre opérationnel (je ne vois pas les rem devant les lignes de com, ou sont elles?)
'ActiveWorkbook.Close
'et enlever unload
Unload Me (cela fait tout ce que tu me dit? "arrête de lire" cela vide aussi toute les variables?)
End Sub

Private Sub ListBox1_Click()
'En déclarant NomUtilisateur dans un module, tu peu le 'voir' de
'partout dans le classeur, aussi dans d'autre UF.
NomUtilisateur = ListBox1.List(ListBox1.Listindex) (pourquoi pas" NomUtilisateur = ListBox1.Listindex" directement?)
TextBox1.SetFocus ( quelle action cela fait?)
End Sub

Private Sub TextBox1_Change()
Cmdvalider.Enabled = True
End Sub

Private Sub UserForm_Initialize()

Dim hwnd As Long

Dim i As Integer

'Enlever la croix de l'userForme pour empêchè l'utilisateur d'annuler
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF

(tous ce qui est en gras je le comprend pas mes je le re-examinerais avec le bouquin.)
i = 1

With Sheets("Code")
While .Cells(i, 1) <> ""
ReDim Preserve Code(i) (ReDim Preserve="rem variable code(i) stocker?)
ReDim Preserve NomUtil(i)
Code(i) = .Cells(i, 1)
NomUtil(i) = .Cells(i, 2)
ListBox1.AddItem .Cells(i, 2)
i = i + 1
Wend
End With
End Sub

Private Sub Cmdvalider_Click()
Dim i As Integer
'vérifier le nom
For i = 1 To UBound(Code)
'Ucase pour ne pas faire de diff entre maju et minuscule (cela ne fonctionne pas)
If UCase(NomUtilisateur) = UCase(NomUtil(i)) Then
If TextBox1.Text = Code(i) Then
'ICI C'EST BON, faire la suite des opérations.
Stop
Else
'Le code ne correspond pas
MsgBox "Votre code est incorrect", _
vbCritical, "Entrée Loging" (peut tu me la traduire je ne comprend pas)
End If
End If
Next i
TextBox1.Text = ""
TextBox1.SetFocus
End Sub

dans le module

Option Explicit

'pour enlever la croix rouge de fermeture de l' UF
Public Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Public Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
( tout cela pour juste pour enlever la croix rouge de fermeture de l' UF)

Public Code() As String
Public NomUtil() As String
Public NomUtilisateur As String
merci de me donner des reponces au parties soulignés s.v.p
car je nage un peut!!!!!

salut lermite222

j'ai apppris que quand tu ne connais pas un mot de la syntaxe... tu double clic dessus (pour qu'il soit en surbrillance) et tu tape F1, en principe tu recoit l'aide et les explications sur ce mot.

merci pour le partage de ton savoir sur vba,j'espere pouvoir faire de même un jours.
a+

salut lermite..

'Ucase pour ne pas faire de diff entre maju et minuscule (cela ne fonctionne pas)
If UCase(NomUtilisateur) = UCase(NomUtil(i)) Then '
Cela fonctionne mais juste dans le test d'égalité, ne change rien aux variables ( ok mais )
Ex: NomUtilisateur = "PIERRE" et NomUtil(i) = "Pierre"
Ucase(NomUtilisateur) = "PIERRE" et Ucase(NomUtil(i)) = "PIERRE" alors le test est faux quand même.

ou est l'erreur?

merci
a+

merci

dit moi ! sais tu comment decompiler un fichier *.exe pour pouvoir lire sont ses ligne de prog.

si ou avec quel logiciel ?

j'ai entendu parler qu 'il faudrait un editeur exadecimal pour le faire, il doit y avoir mieux, et quelle connaissance doit tu avoir(quel language?)

merci
a+

coucou
quand tu dit un editeur c tu veut dire un editeur c++ ou un edit exadecimal ?
meme question quand tu dit assembleur leque?
donne moi des nom s.v.p pour exemple.
merci.
a +