prog vba pour excel code pour plusieur pers Résolu

Question

Bonjour,
je veut crée une useforme avec 6 optionbouton qui prepesente des personnes.
il y a aussi une textbox pour que l'ont tape un code qui ce trouve dans des cellules de la feuill1.
chaque personne a donc un code different donc 6 cellules dans la feuill1.
donc mon prog commence comme ca:
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 initializeuseform1()
code = textbox1.value
code1 = sheets ("feuil1").range("b2").value
code2 = sheets ("feuil1").range("b3").value
code3 = sheets ("feuil1").range("b4").value
code4 = sheets ("feuil1").range("b5").value
code5 = sheets ("feuil1").range("b6").value
code6 = sheets ("feuil1").range("b7").value
if textbox1.value ="" then
msgbox ("Entrez votre code en minuscule s.v.p")
end if

if optionbotton1.value = true then
nomutilisateur = "personne1"
end if

if optionbotton2.value = true then
nomutilisateur = "personne2"
end if
etc......
j'ais mis une variable qui est nomutilisateur pour pouvoir utiliser la valeur de cette valiable dans dautre useforme.

voici ma question j'ais utiliser un prog du type if/then pour dire que si 

if nomutilisateur = "personne1" then code<>code1 msgbox("Code invalide") cela ne fonctionne pas donc je me demande si je ne doit pas utiliser une prosedure du type select case?
si oui comment faire?

comment rendre la valeur de la variable nomutilisateur utilisable dans les autres useforme?
merci a tous...

algoplus · Answer

Quand tu écris:
if nomutilisateur = "personne1" then code<>code1 msgbox("Code invalide") cela ne fonctionne pas

est ce que tu veux afficher le message "code Invalide" si le nomutilisateur = "personne1" ET si code<>code1.

si c'est ça, alors

if nomutilisateur = "personne1" and code<> code1 then msgbox("Code invalide")

si non, j'ai rien compris

jojo9999 · Answer

salut 
oui c'est çà, mais j'ais déja fais cette commande est rien ne ce passe.
merci de ton aide...

algoplus · Answer

Ben... en l'occurence rien ne se passera si  code=code1 (sauf si tu as codé un else)

as tu vérifié que tes variables contiennent quelque chose ?

algoplus · Answer

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?

non, c'est bien ça!

donc voila pourquoi quand je tape un code faux dans la textbox1 il ne se passe rien. 

C'est ce que j'essaye de voir

Et si je tape le bon code rein non plus 

alors la c'est normal, puisque rien ne dit ce qu'il faut faire quand le code est bon!

Un pb dans ta Sub CommandButton1_Click() :
si ta texbox est vide , tu continues quand même les tests .

si tu pouvais mettre ton fichier sur https://www.cjoint.com/

et renvoyer un post avec le lien de ce fichier ca faciliterai les choses

lermite222 · Answer

Bonjour,
Pourquoi demander de valider le nom d'utilisateur ? puisque tu demande seulement de cliquer sur une option ? ça n'a aucun sens. En couplant le code et le nom d'utilisateur tu peu avoir les deux. ey si tu veux deux contrôle, comme par exemple quand tu t'inscrit sur CCM, alors c'est avec deux textbox que tu doit travailler.
Un exemple ?
https://www.cjoint.com/?ipammDfKgf
A+

lermite222 · Answer

https://www.cjoint.com/?ipcEHCDNwu
celui-ci correspondra un peu mieux à ce que tu veux.

jojo9999 · Answer

salut lermit

hola.... super génial

c'est exactement ce que je voulais merci...
mais je vais te poser une question quand même sur le prog que j'ai fait.
quand tu frappes le prog suivant:

if nomutilisateur = "personne1" and code = code1 then
msgbox("code valide")
useforme1.hide
useforme2.show
else
msgbox("code invalide")
exit sub'  ligne que je dois enlever pour que cela fonctionne
end if

if nomutilisateur = "personne2" and code = code2 then
msgbox("code valide")
useforme1.hide
useforme2.show
else
msgbox("code invalide")
exit sub '  ligne que je dois enlever pour que cela fonctionne
end if

Pourquoi le prog ne va pas directement sur la condition 2, si je selectionne la personne2. On dirait qu'il ne prend pas en compte la condition: if nomutilisateur = "personne2".

Donc c'est pour cela que je dois enlever la ligne exit sub pour toute les personnes sauf pour la dernière car le prog m'exécute toute les lignes de commandes, resultat une msgbox affiche code invalide tant que les deux conditions ne sont pas remplies.

je pense que cela peut fonctionner si je remplace ( if nomutilisateur = "personne2".) par (if optionboutton2 = true)
je vais faire un essais, mais cela me parait pas logique,si cela fonctionne comme cela et pas de l'autre.

dite moi pourquoi s.v.p
merci

lermite222 · Answer

if nomutilisateur = "personne1" and code = code1 then ... Si c'est Personne2 qui est sélectionner arriverra jamais..
Si tu enlève les Exit Sub, et que tu choisi Personne6, va dire 5 fois Code invalide..
Il faut d'abord tester les Personnes...
    If nomutilisateur = "personne1" Then
    'Et içi, tester le code
        If code = code1 Then
            'le code est bon
        Else
            'le code est pas bon
        End If
    ElseIf nomutilisateur = "personne2" Then
    'Et içi, tester le code
        If code = code2 Then
            'le code est bon
        Else
            'le code est pas bon
        End If
    ElseIf nomutilisateur = "personne3" Then
    'Et içi, tester le code
        If code = code3 Then
            'le code est bon
        Else
            'le code est pas bon
        End If
    End If
    'etc.
Mais ce n'est pas la bonne façon pour faire ça, inspire toi plutôt du code dans le classeur que je t'ai passé...

lermite222 · Answer

1°) 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.

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 ' Rem ou l'apostrohe c'est la même chose,
    'donc tu enlève l'apostrohe de cette ligne
    
    'et enlever unload
    Unload Me 'et içi, mettre l'apostrohe devant mais à ne faire que
    'quand tu a terminé totalement ton appli, sinon le classeur
    'va chaque fois se fermer si ont appuye sur le Bt Annuler,
    'ce qui, en principe doit arriver dans l'emploi normal.
End Sub

NomUtilisateur = ListBox1.List(ListBox1.Listindex) (pourquoi pas" NomUtilisateur = ListBox1.Listindex" directement?) 
Parce que listindex renvoi le N° de la ligne sélectionné (à partir de 0) et List renvoi le contenu de la ligne. (F1 oublie pas)

ReDim Preserve Code(i) (ReDim Preserve="rem variable code(i) stocker?)  mettre ReDim en surbrillance et F1

TextBox1.SetFocus ( quelle action cela fait?)  mettre SetFocus en surbrillance et F1


'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
Ex: NomUtilisateur = "PIERRE" et NomUtil(i) = "Pierre" les test serrait faux mais avec UCASE ça fait
Ucase(NomUtilisateur) = "PIERRE" et Ucase(NomUtil(i)) = "PIERRE"   alors le test est OK


MsgBox "Votre code est incorrect", _ 
vbCritical=Icône rouge+Croix, "Le Titre de la fenêtre message tu met ce que tu veux" (peut tu me la traduire je ne comprend pas) 

Tout ce qui est en gras, faut pas étudier faut juste savoir que ça existe, ce sont des API de Windows.
Et oui, tout ça pour JUSTE enlever la croix, mais ça oblige l'utilisateur à entrer le code ou de cliquer sur le bouton annuler.

lermite222 · Answer

Si le test est faut c'est que tu a un espace qui traine quelque part...
remplace la ligne par

If UCase(Trim(NomUtilisateur)) = UCase(Trim(NomUtil(i))) Then 

Et si c'est toujours faux, voir ce qu'il y a dans les variables..
Ou tu a peut-être changer des lignes de code. J'ai controllé sur le classeur et ça fonctionne comme je dit.

EDIT:Si tu modifie du code (même une seule lettre) toutes les variables sont réinitialisée à... null
Faut donc recommencer la saisie.
Pour éviter de fermer et réouvrir, tu ouvre la fenêtre ThysWorkbook et tu fais F5 dans la macro,

lermite222 · Answer

La réponse est simple, pas moyen de décompilé un EXE.
Possibilité de voir le code avec un éditeur C, mais de là à le modifier !! ou encore en assembleur mais idem.

Prog vba pour excel code pour plusieur pers

11 réponses

Newsletters