Discussion :

[peponne31]

Bonjour à toutes et à tous,

Si on valide sans sélectionner un Item dans le ListBox, j'ai un message d'erreur qui me sort du programme.
Dans ce code , je voudrai récupérer le message d'erreur,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub UserForm_Initialize()
Dim Rg As Range
Dim Critere As Long
 Me.Caption = ThisWorkbook.Name
   With Worksheets("JournalDevis")
      Set Rg = .Range("A7:C" & .Range("A65536").End(xlUp).Row)
   End With
   Set Conn = New ADODB.Connection
   Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _
       ThisWorkbook.FullName & ";" & "Extended Properties=""Excel 
8.0;HDR=Yes;"""
   requete = "SELECT N°devis, Nom FROM [" & Rg.Parent.Name & "$" & 
Rg.Address(0, 0) _
       & "]"
   Rst.Open requete, Conn, adOpenStatic, adLockOptimistic
   a = Rst.RecordCount
   x = Rst.GetRows
   With Me.ListBox1
      If ??????  '<--ici je voudrai gerrer l'erreur
          .ColumnCount = 2
          .ColumnWidths = "50;85" 
          .List = Application.Transpose(x)
          'Else
           ' MsgBox "Aucune sélection de faite dans la liste !"
     ' End If
End With
End Sub

Merci à ceux qui voudront bien m'aider.
Peponne31

[laetitia]

bonjour peponne31 le forum
un code a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If listbox1 <> "" Then
'ton code
Else
MsgBox "pas de selection!!!"
'autre code
End If

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If listbox1.ListIndex <> 0 Then
'ton code
Else
MsgBox "pas de selection!!!"
'autre code
End If

[Fvandermeulen]

Salut,

Ceci devrait le faire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Not IsNull(Me.ListBox1.Value) Then

A+

Edit: Oups pas fait de Refresh...

[ucfoutu]

Bonjour,

Ce que je ne comlprends pas est ceci :
d'une part :

Si on valide sans sélectionner un Item dans le ListBox

et d'autre part l'utilisation de l'expression conditionnelle de contrôle dans l'évènement Initialize de l'UserForm (car on voit alors mal ce qui serait "validé" et où serait l'intervention de l'utilisateur)

[peponne31]

Vous avais raison, je voulais mètre le code dans l'UserForm
alors qu'il doit aller dans le bouton Valider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Valider_Click()
Dim LisBox1 As ListBox
Dim vIndex
vIndex = ListBox1.ListIndex
     If Not IsNull(Me.ListBox1.Value) Then
          Range("K3").ClearContents
          Range("K3") = RappelDevis.ListBox1.List(vIndex)
          End
          Else
          MsgBox "pas de numéro sélectionné!!!"
     End If
End Sub

Merci encore pour votre aide
Peponne31