Bonjour,
dans un long code vba, j'ai réussi à isoler la partie de mon code qui me pose une erreur d'incompatibilité:
Private Sub UserForm_Initialize() '**** section à problème *****
Dim Plage As String
Dim L As Long, Tbl As Variant
Call TriFeuil2
With Sheets("Tango logs")
Tbl = .Range("F2:F" & .Range("F65536").End(xlUp).Row)
End With
Set mondico = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(Tbl, 1)
If Not mondico.Exists(Tbl(L, 1)) Then mondico.Add Tbl(L, 1), Tbl(L, 1)
Next L
Me.DDRrech3.List = mondico.items
En fait, dans la feuille "Tango logs", qui est une base de données avec en ligne 1 = noms des colonnes, si les lignes 2 et 3 sont remplies (ce qui sera le cas quasiment tout le temps), le code fonctionne.
Par contre, quand j'efface toutes les données de la base de données, ou que seule la ligne 2 comporte des données, j'ai une erreur d'incompatibilité de type 13.
Il sera très rare que moins de deux lignes soient remplies dans la DB, mais au cas où, j'aimerais connaître la raison qui fait en sorte que la macro plante.
Merci.
Bonne journée.
Laurent.
dans un long code vba, j'ai réussi à isoler la partie de mon code qui me pose une erreur d'incompatibilité:
Private Sub UserForm_Initialize() '**** section à problème *****
Dim Plage As String
Dim L As Long, Tbl As Variant
Call TriFeuil2
With Sheets("Tango logs")
Tbl = .Range("F2:F" & .Range("F65536").End(xlUp).Row)
End With
Set mondico = CreateObject("Scripting.Dictionary")
For L = 1 To UBound(Tbl, 1)
If Not mondico.Exists(Tbl(L, 1)) Then mondico.Add Tbl(L, 1), Tbl(L, 1)
Next L
Me.DDRrech3.List = mondico.items
En fait, dans la feuille "Tango logs", qui est une base de données avec en ligne 1 = noms des colonnes, si les lignes 2 et 3 sont remplies (ce qui sera le cas quasiment tout le temps), le code fonctionne.
Par contre, quand j'efface toutes les données de la base de données, ou que seule la ligne 2 comporte des données, j'ai une erreur d'incompatibilité de type 13.
Il sera très rare que moins de deux lignes soient remplies dans la DB, mais au cas où, j'aimerais connaître la raison qui fait en sorte que la macro plante.
Merci.
Bonne journée.
Laurent.