Salut,
 
De cette façon, ça ira tout seul :
 
TCouleur(0) = vbGreen  
TCouleur(1) = vbBlue  
TCouleur(2) = vbRed  
TCouleur(3) = vbYellow  
Randomize
shape0(1).BackColor = TCouleur(Int(4 * Rnd))
 
A+
Horatio

Content d'avoir pu t'aider.
Mais à chaque jour suffit sa peine...
Tu poses une bonne question, tu obtiens une réponse satisfaisante et tu fermes le sujet.
Ce que tu essaies de décrire doit faire l'objet d'une nouvelle question qui, si elle est bien posée, trouvera de bonnes réponses.
A+
Horatio
 
 

C'est joliment dit