Simplifier une procédure

[Pat.bart]

Bonjour,

J'ai créé cette procédure mais je voufrais la simplifier

Private Sub UserForm_activate()
For y = 0 To 33
If ListBox1.Selected(y) = True Then
ListBox1.Selected(y) = False
End If
If ListBox2.Selected(y) = True Then
ListBox2.Selected(y) = False
End If
If ListBox3.Selected(y) = True Then
ListBox3.Selected(y) = False
End If
If ListBox4.Selected(y) = True Then
ListBox4.Selected(y) = False
End If
Next y
End Sub

J'ai essayé en faisant ces deux modif :

For x = 1 to 4
For y = 0 To 33
If ListBox x.Selected(y) = True Then
ListBox x.Selected(y) = False
End If
Next y
nsext x

et

For x = 1 to 4
For y = 0 To 33
If ListBox & x.Selected(y) = True Then
ListBox & x.Selected(y) = False
End If
Next y
nsext x

mais aucune des deux ne fonctionne

Merci pour votre aide
@+ Pat.bart

 

[john]

Salut,

Je veux bien t'aider, mais tu devrais peut être envoyer le fichier en question, sinon ça ressemble à rien comme c'est là.

Si tu veux me l'envoyer par mail tu peux le faire, fery.john@teledisnet.be

@++++

John