Rebonjour,
Très content d'avoir un petit script, j'ai décidé de l'optimiser.
En effet, j'avais dans mon codage déjà un script qui permet de remplir une liste ou combobox. J'ai voulu l'utilisé mais j'ai un souci de compatibilité.
En effet, sans s'occupé de la variable titre, la ligne RempliCBox(valeur(i),ListBoxAff) indique une erreur Byref incompatible.
Vous pouvez m'aider à forcer valeur(i) en Integer ?
valeur = Array(1, 2, 3, 4)
[...]
For i = 0 To UBound(titre)
RempliCBox(valeur(i),ListBoxAff)
Next i
End sub
Function RempliCBox(i As Integer, CBox As Object)
'Rempli la Combobox de l affichage
CBox.AddItem
CBox.List(CBox.ListCount - 1, 0) = i
CBox.List(CBox.ListCount - 1, 1) = i
End Function