/! Problème UserForm: "Objet requis" /!

Bonjour.
Et qu'est-ce qui se passe ?
Daniel
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
200401c4f8b7$4f23b3e0$a501280a@phx.gbl...
Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!

Ben je l'ai dit a la fin... il me dit que UserForm1.show
est faux (surligné en jaune, et mention "objet requis")...
Et je sais pas ce qu'il veut me dire par la!

-----Message d'origine-----
Bonjour.
Et qu'est-ce qui se passe ?
Daniel
<anonymous@discussions.microsoft.com> a écrit dans le
message de news:

200401c4f8b7$4f23b3e0$a501280a@phx.gbl...
Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX"
Then

controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!


.

Bonjour,
En fait la ligne marquée en jaune n'est pas celle qui cause l'erreur.
Cette ligne est pointée car elle est la première instruction pour le usf.
AMHA, il faudrait mettre un ON ERROR RESUME dans le usf qui aurait pour
but de pointer en jaune la ligne en erreur.

Pour essayer, mettre cette instrcution dans userform_initialize et essayer
Tu noustiens au courant ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

<anonymous@discussions.microsoft.com> a écrit dans le message de news:
200401c4f8b7$4f23b3e0$a501280a@phx.gbl...
Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!

bonjour,

ce qui se passe c'est que tu as un problème au moment du charegment du
userform. C'est pour ça que ta ligne devient jaune dans le workbook_Open.
Qu'as tu comme code dans l'evenement Initialize de ton userform ? Objet
requis veut dire qu'il ne reconnait pas un objet comme étant valide (défini).

A+

Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!

Voilà mon Initialize (il était noté dans le 1er message)

Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

-----Message d'origine-----
bonjour,

ce qui se passe c'est que tu as un problème au moment du
charegment du

userform. C'est pour ça que ta ligne devient jaune dans
le workbook_Open.

Qu'as tu comme code dans l'evenement Initialize de ton
userform ? Objet

requis veut dire qu'il ne reconnait pas un objet comme
étant valide (défini).

A+

Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

--------------------------------------------------------
-

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message
d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions
d'utilisation"

End If

If controlnom(TextBox1.Value) = True And
TextBox2.Visible

= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut
être

entré un mauvais nom d'utilisateur ou un mot de
passe." &

vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

--------------------------------------------------------
-

Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

--------------------------------------------------------
-

Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value
= "XXX"

Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX"
Then

controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX"
Then

controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value
= "XXX"

Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value
= "XXX"

Then
controlpass = True
Exit Function
End If
End Function

--------------------------------------------------------
--

Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value
= "Val"

Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta"
Then

controlnom = True

End Function

--------------------------------------------------------
--

Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà , ensuite (tout me semble juste, mais ce n'est
pas le

cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en
jaune

le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà , qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image,
il

y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront
lu

ça!


.

re,

exceuse moi, je n'avais pas bien lu ton fil. J'ai vu le initialize.
J'ai testé ta procédure chez moi et ca fonctionne. T'es sur que Userform1
s'appelle bien Userform1 . T'aurais pas changé son nom quelque part dans les
propriétés ?

A+

Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!

re,

pour ton click sur l'image je te propose la procédure suivante

sub Image1_click

Const ImageWebsite="http://www.c2t.ch"

Application.ScreenUpdating = False
Workbooks.Add
Set wktempor = ActiveWorkbook
On Error GoTo errhandler

ActiveWorkbook.FollowHyperlink Address:=ImageWebsite, NewWindow:=True

wkbtempor.Close False

Application.ScreenUpdating = True

Exit Sub

errhandler:
MsgBox "Désolé , Impossible d'ouvrir le site " & ImageWebsite & vbLf &
Err.description, vbExclamation, "Erreur affichage page web"

end sub

A+

Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!

Bonsoir,
Tu as le même problème (je pense) que j'ai eut dans l'application que
Pounet95 vient de développer très gentiment pour moi. Je n'arrivais pas à
tester car j'avais une erreur
Fais un clic droit sur ta feuille afin de Visualiser ton code.
puis choisis Outils Référence et regarde s'il n'y a pas quelque chose de
coché et qui serait manquant.
Si oui il ne te reste plus qu'à essayer de retrouver l'ocx manquant, le
télécharger puis l'installer. Attention il ne suffit pas de recopier le
fichier.
@+

Bonjour,

j'ai donc un UserForm qui me pose problème... et je
commence à m'énerver! lol!

Voici le code dans ThisWorkbook:

Public Sub Workbook_Open()
UserForm1.Show
End Sub

---------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub



Et voici le code dans UserForm (c'est un peu long):

Private Sub CommandButton1_Click()

'Si la case n'est pas cochée, il y a un message d'erreur

If Not CheckBox1 Then
MsgBox "Vous devez accepter les conditions d'utilisation"
End If

If controlnom(TextBox1.Value) = True And TextBox2.Visible
= False Then
TextBox2.Visible = True
Exit Sub
End If

' Si le nom d'utilisateur et le pass sont corrects, on
ouvre "Liste"
If CheckBox1 And controlnom(TextBox1.Value) = True And
controlpass(TextBox2.Value) = True Then
Worksheets("Liste").Activate
UserForm1.Hide

' Autrement l'accès est refusé
Else
MsgBox "Accès refusé" & vbCrLf & "Vous avez peut être
entré un mauvais nom d'utilisateur ou un mot de passe." &
vbCrLf & "N'oubliez pas d'accepter les conditions
d'utilisation également."
Exit Sub
End If

End Sub

---------------------------------------------------------
Private Sub UserForm_Initialize()
TextBox2.Visible = True
End Sub

---------------------------------------------------------
Function controlpass(nommdp)
' Tous les noms d'utilisateurs et leur mot de passe
If TextBox1.Value = "Randy-R." And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Val" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Debi" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "WAE" And TextBox2.Value = "XXX" Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Haleth" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If

If TextBox1.Value = "Fanta" And TextBox2.Value = "XXX"
Then
controlpass = True
Exit Function
End If
End Function

----------------------------------------------------------
Function controlnom(nom) As Boolean

' Tous les pseudos pris en compte lors de
l'authentification

If TextBox1.Value = "Randy-R." Or TextBox1.Value = "Val"
Or TextBox1.Value = "Debi" Or TextBox1.Value = "WAE" Or
TextBox1.Value = "Haleth" Or TextBox1.Value = "Fanta" Then
controlnom = True

End Function

----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

' Si on presse sur quitter dans la boîte de dialogue,
excel se ferme

If CloseMode = 0 Then
Application.Quit
End If

End Sub


Voilà, ensuite (tout me semble juste, mais ce n'est pas le
cas car j'ai un bug et il me disent:
"Erreur d'exécution '424'"
"Objet requis"

et quand je clique sur "Déboguage" il me souligne en jaune
le UserForm.Show, comme ceci:

Public Sub Workbook_Open()
En Jaune: UserForm1.Show
End Sub

Voilà, qqn peut m'aider?

Ah tant que j'y pense, j'ai aussi une image dans mon
UserForm et j'aimerais que quand on clique sur l'image, il
y ait une fenêtre internet qui s'ouvre avec le site
http://www.c2t.ch

Encore une fois d'avance merci à tout ceux qui auront lu
ça!