Fonction pset

Contenu du snippet

Petit Code simple permettant de mettre des points partout dans une feuille ...
Ce m'est presque rien mais peu être que cela va pouvoir aider quelqu'un..

Source / Exemple :


Private Sub Command1_Click()
1:
Form1.PSet (Int(Rnd * 10000), Int(Rnd * 10000)) ' x et y Vous pouvez fort bien les changer
DoEvents
GoTo 1
End Sub

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.