Bug aléatoire

Bonjour a tous

J'ai un problème qui me casse la tête, je ne sais pas comment le résoudre et pourtant j'ai vérifié tout est juste voici le code

   With Me.NomTxt
    If .ListCount >= ValActu2 Then .ListIndex = ValActu2
  End With

NomTxt est une combobox. Le bug apparaît aléatoirement ici ".listindex=ValActu2".

alors que j'ai déclaré ValActu2 comme entier

l'erreur c'est

erreur d'exécution "380"

impossible de définir la propriété ListIndex. Valeur de proprièté non Valide

Merci d'avance

Bonjour

Imagines

.Listcount = 10

ValActu2 = 10

If .ListCount >= ValActu2 Then .ListIndex = ValActu2

Dans ton code la première partie .ListCount >= ValActu2 est vérifiée donc .ListIndex= ValActu2 donc .ListIndex = 10

Et .ListIndex au maximum ne peut être que 9 ===> Message erreur

Et peut-être que le bug apparait aussi si ValActu2 inférieur à -1

merci Banzai64

Je me suis aperçu de cette erreur j'essaie de la rectifier.