problème de variables

Version imprimable

bonjour a vous tous
j'essai d'intégrer un code d'option bouton dans un autre fichier et apparement il y aurais des variables non sélectionné et pourtant elle fonctionne bien dans le fichier d'ou le code est issu
donc voici le code de l'activation de l'usf qui ne reconnait pas Cell et i

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_activate()
    Set Sh = Sheets("prestation")
    Me.lstArticle.Clear
    For Each Cell In Sh.Range(Sh.[D2], Sh.[D65536].End(xlUp))
        With Me.lstArticle
        If Cell.Value = Me.lstDescription.Text Then
            .AddItem Sh.Cells(Cell.Row, 1)
            i = .ListCount - 1
            Me.lstArticle.List(i, 1) = Sh.Cells(Cell.Row, 2)
            Me.lstArticle.List(i, 2) = Sh.Cells(Cell.Row, 3)
            Me.lstArticle.List(i, 3) = Sh.Cells(Cell.Row, 4)
            Me.lstArticle.List(i, 4) = Sh.Cells(Cell.Row, 7)
            Me.lstArticle.List(i, 5) = Sh.Cells(Cell.Row, 5)
 
 
        Else
        End If
     End With
     Next Cell
   End Sub

et celui de l'optionbutton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub OptionButton1_Click()
    Set Sh = Sheets("prestation")
    Dim NoDescription As New Collection
 
    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
 
End Sub

rg ,i et J non déclarée?

cordialement

Pascal

Bonjour,

Citation:

j'essai d'intégrer un code d'option bouton dans un autre fichier et apparement il y aurais des variables non sélectionné et pourtant elle fonctionne bien dans le fichier d'ou le code est issu

Si tu entends autre fichier, autre classeur que celui où se trouve le code VBA, ton problème devrait venir de cette ligne.

Code:

Set Sh = Sheets("prestation")

Il y a lieu de préciser le classeur

Code:

Set Sh = Workbooks("Nom").Sheets("prestation")

Bonjour,
Autre chose que je ne comprends pas.
Si tu utilises le bloc With
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With Me.lstArticle If Cell.Value = Me.lstDescription.Text Then .AddItem Sh.Cells(Cell.Row, 1) i = .ListCount - 1 Me.lstArticle.List(i, 1) = Sh.Cells(Cell.Row, 2) Me.lstArticle.List(i, 2) = Sh.Cells(Cell.Row, 3) Me.lstArticle.List(i, 3) = Sh.Cells(Cell.Row, 4) Me.lstArticle.List(i, 4) = Sh.Cells(Cell.Row, 7) Me.lstArticle.List(i, 5) = Sh.Cells(Cell.Row, 5) Else End If End With
Ce qui est en rouge n'a pas de raison d'être là.

07/08/2012, 15h16
grisan29
bonjour corona

merci de ta réponse
lstarticle est le nom d'une listbox mais tu a raison la répétition n'a pas lieu
lst destination est le nom d'une autre listbox
les codes fonctionnent bien sur l'autre fichier tel que ,je les ai recopier sur un autre fichier qui est indépendant mais j'ai renommé les lisbox tel qu'ils se nommait sur l'autre fichier ains que la feuille "prestations"

j'ai mis les variables comme ceci
Code:

1 2 Dim A, J, rg, cell As Variant Dim i As Integer
cela marche mais lstarticle ne développe pas dans lstdestination

Pascal