J'ai une macro qui contient le code suivant afin de vider une liste avant de la remplir avec de nouveaux éléments
For i=1 to 80
NB=Sheets("Resultats").LISTEJOUEURS.ListCount
If NB=0 then goto SUITE1
Sheets("Resultats").LISTEJOUEURS.RemoveItem 0
Next i
SUITE1:
Le programme fonctionne depuis des années sans problème chez plusieurs utilisateurs m...
For i=1 to 80
NB=Sheets("Resultats").LISTEJOUEURS.ListCount
If NB=0 then goto SUITE1
Sheets("Resultats").LISTEJOUEURS.RemoveItem 0
Next i
SUITE1:
Le programme fonctionne depuis des années sans problème chez plusieurs utilisateurs m...