castor30
XLDnaute Occasionnel
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
Me.tb15.List = TblTmp 'erreur de compilation Membre de méthode ou données introuvable
Dans le code ci-dessous, à la fin du code en rouge, j'ai un problème que je ne comprend pas
VB:
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