[RESOLU] Pb de code VBA

[Ternoise]

Bonsoir le forum

Juste un petit problème dans ce code. Quand le MDP est faux, cela fonctionne correctement.
Mais si le MDP est bon, à la fin de la procédure le "UserForm3" s'affiche alors qu'il devrait pas puisque le MDP est bon !
Merci de votre aide

Private Sub B_ok_Click()
If Me.MotPasse <> "" Then
For i = 1 To Range("Code").Count
If UCase(Me.MotPasse) = UCase(Range("code")(i)) Then
For Each s In ActiveWorkbook.Sheets
s.Visible = True
Next s
Feuil7.Activate
temp = Range("Feuille")(i)
Sheets(temp).Visible = True
Sheets(temp).Select ' pour aller directement sur la feuille
Active
End If
Next i
Unload Me
UserForm3.Show
End If
Unload Me
End Sub

 

[Paritec]

Re : Pb de code VBA

Re David le forum
tu dis pas facile d'expliquer, mais pas facile de comprendre !!!
enfin voilà pour le directeur et pour le bouton quitter, le reste tu essayes de m'expliquer comme tu as fait dans le fichier mais en plus détaillé STP pour tes cellules jaunes etc
a+
Papou😱

 

[Ternoise]

Re : Pb de code VBA

Merci beaucoup Papou. Je regarde et reviens

Des fois (souvent !), j'ai du mal a me comprendre moi même !!! Alors nous sommes dans la m... !!!

 

[Ternoise]

Re : Pb de code VBA

Re Papou

Explication dans le fichier.

Merci beaucoup

 

[Ternoise]

Re : Pb de code VBA

Bonjour Papou

Pas de nouvelle. Je comprend que les bénévoles font comme ils peuvent avec le temps qu'ils ont mais ceci est juste une interrogation sur la réception des messages et je me demande si tu m'as déjà donné une réponse. Dans ce cas, je ne la voit pas.

David

 

[Paritec]

Re : Pb de code VBA

Bonjour David le forum
Excuses moi d'avoir une vie professionnelle rémunérée, contrairement au travail sur le forum qui lui est 100% gratuit et bénévole !!!!
Perso je regarderai ton fichier, mais j'ai l'impression que l'on est bien loin de la demande initiale!!
a+
Papou😱

 

[Ternoise]

Re : Pb de code VBA

Bonjour Papou
Pas de soucis... Comme j'ai dis, j'ai des problèmes d'affichages sur certains forums. Je me suis fais "harcelé" une fois car je n'avais pas, soit disant, donné réponse à un message (pas sur un forum excel) alors qu'une réponse avait été donnée.

"Excuses moi d'avoir une vie professionnelle rémunérée, contrairement au travail sur le forum qui lui est 100% gratuit et bénévole" : C'est tout a ton honneur et j'approuve. quand je constate ceux qui.....aller, je vais pas rentrer dans cette conversation, cela va m’irriter pour le W.E. !

"mais j'ai l'impression que l'on est bien loin de la demande initiale" : Heu, la j'avoue ! mais de fils en aiguille....! Il faut pas hésiter à me dire "non" et je comprendrais, une nouvelle fois très bien !

Bonne soirée, bon W.E., bon travail !

David

 

[Ternoise]

Re : Pb de code VBA

Bonjour Papou

J'ai passé par un UserForm donc plus la peine.
Je mets donc en résolu

Merci de ton aide

David