Bonjour à tous,
J'explique mon petit soucis.
J'ai réalisé une Userform avec différentes listes à choix multiple.
Jusque là tout va bien.
Hors si je ne sélectionne qu'1 seul paramètre de la liste, la macro bug après avoir réalisé le travail sur la sélection (comme si elle voulait une 2ème selection) avec une erreur du type :
Erreur d'execution '1004'
Erreur définie par l'application ou par l'objet
une fois le choix dans la liste effectué on lance :
Private Sub CommandButton1_Click()
Sheets("Listes").Select
Sheets.Add
ActiveSheet.Name = "ChoixClients"
Dim n As Integer
n = ListBox1.ListCount
Dim i As Integer, j As Integer
Sheets("ChoixClients").Range("A1:A" & Range("A65536").End(xlUp).Row).ClearContents
j = 0
For i = 0 To n - 1
If ListBox1.Selected(i) Then
j = j + 1
Sheets("ChoixClients").Cells(j, 1).Value = ListBox1.List(i)
End If
Next
ClientChoisis
Application.DisplayAlerts = False
Sheets("ChoixClients").Delete
Application.DisplayAlerts = True
End Sub
Si quelqu'un peut m'aider ça me sera très utile.
Merci beaucoup.
J'explique mon petit soucis.
J'ai réalisé une Userform avec différentes listes à choix multiple.
Jusque là tout va bien.
Hors si je ne sélectionne qu'1 seul paramètre de la liste, la macro bug après avoir réalisé le travail sur la sélection (comme si elle voulait une 2ème selection) avec une erreur du type :
Erreur d'execution '1004'
Erreur définie par l'application ou par l'objet
une fois le choix dans la liste effectué on lance :
Private Sub CommandButton1_Click()
Sheets("Listes").Select
Sheets.Add
ActiveSheet.Name = "ChoixClients"
Dim n As Integer
n = ListBox1.ListCount
Dim i As Integer, j As Integer
Sheets("ChoixClients").Range("A1:A" & Range("A65536").End(xlUp).Row).ClearContents
j = 0
For i = 0 To n - 1
If ListBox1.Selected(i) Then
j = j + 1
Sheets("ChoixClients").Cells(j, 1).Value = ListBox1.List(i)
End If
Next
ClientChoisis
Application.DisplayAlerts = False
Sheets("ChoixClients").Delete
Application.DisplayAlerts = True
End Sub
Si quelqu'un peut m'aider ça me sera très utile.
Merci beaucoup.