erreur automation

[errog]

Bonsoir,
Lors de l'utilisation d'une listbox avec un code classique du genre

With USF_1.ListBox1
   For i = 0 To .ListCount - 1
   If .Selected(i) = True Then numero = i
   End If
   Next i
 End With

J'ai le message suivant : erreur automation ; l'objet invoqué s'est déconnecté de ses clients En clair ou dois je chercher l'erreur 😕😕😕

Merci

 

[wilfried_42]

Re : erreur automation

Bonjour

Soit tu ecris :

With USF_1.ListBox1 
   For i = 0 To .ListCount - 1 
   If .Selected(i) = True Then 
      numero = i 
   End If 
   Next i 
 End With

Soit :

With USF_1.ListBox1 
   For i = 0 To .ListCount - 1 
   If .Selected(i) = True Then numero = i 
   Next i 
 End With

Le End If Ferme un bloc de commande compris entre lui et le IF

 

[errog]

Re : erreur automation

Rebonsoir
En fait j'avais supprimé l'une des 2 instructions entre then et End if.
Je pensais etre a l'abri de ce genre de C... et j'ai cherché pendant pas mal de temps une erreur plus noble.
MERCI Wilfried!!!