Problème en fin de code

[castor30]

Bonjour à tous, le forum,
Dans le code ci-dessous, à la fin du code en rouge, j'ai un problème que je ne comprend pas

Private Sub UserForm_Activate()
    Dim TblTmp(), i%, k%
    tb19 = Date
    With Worksheets("Base")
        Set Rng = .Range("A2:A" & .[A65000].End(xlUp).Row)
    End With
    With Rng
        ReDim TblTmp(.Rows.Count - 1, 9)
        For i = 1 To .Rows.Count
            For k = 1 To 10
                TblTmp(i - 1, k - 1) = .Cells(i, k).Text
            Next k
        Next i
    End With
    Me.ListBox1.List = TblTmp
    For i = 0 To UBound(TblTmp, 1)
        TblTmp(i, 0) = TblTmp(i, 0) & " " & TblTmp(i, 1)
    Next i
    ReDim Preserve TblTmp(UBound(TblTmp, 1), 0)
    Me.ComboBox1.List = TblTmp
    Me.Enreg.Value = UBound(TblTmp, 1) + 1
    ReDim TblTmp(1): TblTmp(0) = "Oui": TblTmp(1) = "Non"
    Me.tb15[COLOR=#ff0000][COLOR=#ff0000].List = [/COLOR][/COLOR]TblTmp
End Sub

Me.tb15.List = TblTmp 'erreur de compilation Membre de méthode ou données introuvable

 

[STephane]

Bonjour

As-tu un classeur ?

De mon côté, j'ai testé ton code avec succès, et ai créé un objet LISTE nommé TB15.
L'objet TB15 est rempli avec les valeurs Oui & Non ?

Stéphane

 

[castor30]

Bonjour Stéphane,
Je te remercie de me répondre et te met le fichier

 

[STephane]

La procédure d'alimentation de ton autre formulaire peut être reprise.
Sinon, une solution (évoquée d'ailleurs dans ton code)

Dim Tbl() 'on déclare un tablo NON dimensionné
Dim rgBase As Range
ListBox1.Clear 'on efface la listbox
ListBox1.ColumnCount = 2
Set rgBase = Worksheets("Base").UsedRange.Resize(Worksheets("Base").UsedRange.Rows.Count - 1, 2).Offset(1)
Tbl = rgBase
ListBox1.List = Tbl

HTH

 

[castor30]

Peux-tu me renvoyer le fichier corrigé stp car mes connaissances sont plutôt nulles en vba

 

[castor30]

Up

 

[STephane]

Ouvrir l'éditeur Visual Basic, consulter le projet VBA et cliquer à droite sur le formulaire "Usf_EC".

Accéder à la procédure Userform_Initalize, et y coller le bloc d'instructions souhaité.

Il y a plein de tutos UP on the web.

Voilà opur la correction du code, toujours est-il que ta demande est incomplète.