Bonjour a vous tous
dans ce code
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
Private Sub OptionButton4_Click()
    Set Sh = Sheets("prestation")
    Dim NoDescription As New Collection
Dim A As Long
Dim i As Integer
On Error Resume Next
    Set rg = Sh.Range(Sh.[D2], Sh.[D65536].End(xlUp))
    A = rg.Value
    For i = 1 To UBound(A, 1)
        If A(i, 1) = "" Then
        Else
            NoDescription.Add A(i, 1), CStr(A(i, 1))
        End If
    Next i
    Me.lstDescription.Clear
    For J = 1 To NoDescription.Count
        Me.lstDescription.AddItem NoDescription(J)
    Next J
    Me.lstDescription.ListIndex = 0
   ' Me.lstArticle.Clear
End Sub
j'ai des problèmes de variable A,i, rg depuis que je suis sous windows8
c'est un fichier qui n'a pas
option explicit
en tete (erreur je sais mais erreur de débutant
quelle sont les bonnes variables a donner a ce code
merci
Pascal