J'ai un Userform qui contient Une ListBox qui offre différentes possibilités
comme 2003, 2004, 2005
Le probléme est que si j'appuie sur la droite de la la Listbox pr choisir
une des 3 possibilités
Le Userform ne produit les effets souhaités que si l'utilisateur clique à
nouveau dans la
ListBox pr la faire apparaître en bleu
Au contraire, il ne produit pas les effets souhaités si le choix de l'année
ne se fait qu'en cliquant
sur la droite du Listbox ss cliquer directement dedans
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
YANN24
Salut Malheureusement, je vais pas trop pouvoir t'aider. Ci joint mon code pour 2005,2006, et admin, donné par AnonymousA ya 3 jours : Par contre, moi mon mot de passe pour l'Admin ne marche pas. Saurais tu me dire pourquoi? Merci YANN
Private Declare Function GetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton2_Click() 'si l'utilisateur clique sur Annuler, on quitte. Unload Me ThisWorkbook.Close End Sub
Private Sub UserForm1_Initialize() 'empêche l'affichage de la croix de fermeture en utilisant les API 'déclarées en début de module Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
With Me.ComboBox1 .AddItem "2005" .AddItem "2006" .AddItem "Administrateur" End With
Me.TextBox1.Visible = False Me.Label1.Visible = False End Sub
Private Sub combobox1_Click() Select Case Me.ComboBox1.Value
With Me .ComboBox1.Visible = False With .TextBox1 .Visible = True .SetFocus End With .Label1.Visible = True End With
End Select End Sub Private Sub commandbutton1_Click()
If Me.ComboBox1.Value = "" Then MsgBox "vous n'avez rien saisi" Me.ComboBox1.SetFocus Else If TextBox1.Value = "" Then Else If controlmdp(TextBox1.Value) = True Then ThisWorkbook.IsAddin = False For I = 1 To ThisWorkbook.Sheets.Count Sheets(I).Visible = True Next Unload Me End If End If End If
End Sub Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("aec") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function
'Et dans le workbook Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next Sheets(18).Visible = True For I = 2 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
End Sub
J'ai un Userform qui contient Une ListBox qui offre différentes possibilités comme 2003, 2004, 2005 Le probléme est que si j'appuie sur la droite de la la Listbox pr choisir une des 3 possibilités Le Userform ne produit les effets souhaités que si l'utilisateur clique à nouveau dans la ListBox pr la faire apparaître en bleu Au contraire, il ne produit pas les effets souhaités si le choix de l'année ne se fait qu'en cliquant sur la droite du Listbox ss cliquer directement dedans
Salut
Malheureusement, je vais pas trop pouvoir t'aider.
Ci joint mon code pour 2005,2006, et admin, donné par AnonymousA ya 3 jours :
Par contre, moi mon mot de passe pour l'Admin ne marche pas. Saurais tu me
dire pourquoi? Merci
YANN
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton2_Click()
'si l'utilisateur clique sur Annuler, on quitte.
Unload Me
ThisWorkbook.Close
End Sub
Private Sub UserForm1_Initialize()
'empêche l'affichage de la croix de fermeture en utilisant les API
'déclarées en début de module
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D")
& "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
With Me.ComboBox1
.AddItem "2005"
.AddItem "2006"
.AddItem "Administrateur"
End With
Me.TextBox1.Visible = False
Me.Label1.Visible = False
End Sub
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With
End Select
End Sub
Private Sub commandbutton1_Click()
If Me.ComboBox1.Value = "" Then
MsgBox "vous n'avez rien saisi"
Me.ComboBox1.SetFocus
Else
If TextBox1.Value = "" Then
Else
If controlmdp(TextBox1.Value) = True Then
ThisWorkbook.IsAddin = False
For I = 1 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = True
Next
Unload Me
End If
End If
End If
End Sub
Function controlmdp(nommdp)
On Error Resume Next
tabmdp = Array("aec")
trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé"
Else
MsgBox "Autorisation acceptée"
controlmdp = True
End If
End Function
'Et dans le workbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Sheets(18).Visible = True
For I = 2 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
End Sub
J'ai un Userform qui contient Une ListBox qui offre différentes possibilités
comme 2003, 2004, 2005
Le probléme est que si j'appuie sur la droite de la la Listbox pr choisir
une des 3 possibilités
Le Userform ne produit les effets souhaités que si l'utilisateur clique à
nouveau dans la
ListBox pr la faire apparaître en bleu
Au contraire, il ne produit pas les effets souhaités si le choix de l'année
ne se fait qu'en cliquant
sur la droite du Listbox ss cliquer directement dedans
Salut Malheureusement, je vais pas trop pouvoir t'aider. Ci joint mon code pour 2005,2006, et admin, donné par AnonymousA ya 3 jours : Par contre, moi mon mot de passe pour l'Admin ne marche pas. Saurais tu me dire pourquoi? Merci YANN
Private Declare Function GetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _ (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton2_Click() 'si l'utilisateur clique sur Annuler, on quitte. Unload Me ThisWorkbook.Close End Sub
Private Sub UserForm1_Initialize() 'empêche l'affichage de la croix de fermeture en utilisant les API 'déclarées en début de module Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
With Me.ComboBox1 .AddItem "2005" .AddItem "2006" .AddItem "Administrateur" End With
Me.TextBox1.Visible = False Me.Label1.Visible = False End Sub
Private Sub combobox1_Click() Select Case Me.ComboBox1.Value
With Me .ComboBox1.Visible = False With .TextBox1 .Visible = True .SetFocus End With .Label1.Visible = True End With
End Select End Sub Private Sub commandbutton1_Click()
If Me.ComboBox1.Value = "" Then MsgBox "vous n'avez rien saisi" Me.ComboBox1.SetFocus Else If TextBox1.Value = "" Then Else If controlmdp(TextBox1.Value) = True Then ThisWorkbook.IsAddin = False For I = 1 To ThisWorkbook.Sheets.Count Sheets(I).Visible = True Next Unload Me End If End If End If
End Sub Function controlmdp(nommdp) On Error Resume Next tabmdp = Array("aec") trouve = Application.WorksheetFunction.HLookup(nommdp, tabmdp, 1, False) If Err.Number <> 0 Then Err.Clear MsgBox "Vous n'êtes pas autoriser à pénétrer cet espace réservé" Else MsgBox "Autorisation acceptée" controlmdp = True End If End Function
'Et dans le workbook Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next Sheets(18).Visible = True For I = 2 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
End Sub
J'ai un Userform qui contient Une ListBox qui offre différentes possibilités comme 2003, 2004, 2005 Le probléme est que si j'appuie sur la droite de la la Listbox pr choisir une des 3 possibilités Le Userform ne produit les effets souhaités que si l'utilisateur clique à nouveau dans la ListBox pr la faire apparaître en bleu Au contraire, il ne produit pas les effets souhaités si le choix de l'année ne se fait qu'en cliquant sur la droite du Listbox ss cliquer directement dedans
