VBA:Images/boutons dans userform [Résolu/Fermé]

Signaler
-
 Florianf -
Bonjour,

Je suis actuellement en train de créer un jeu de solitaire (billes) sur excel via VBA.

J'ai fais mon solitaire sur un userform1 (les cases étant des carrés images) que j'affiche lorsqu'on clique sur le bouton "solitaire" sur excel.

Ensuite, le solitaire apparaît donc et deux boutons avec: "jouer" et "abandonner".

Mon problème est que j'aimerai que mon bouton "jouer" initialise la partie en remplaçant les carrés image vide par mon image de bille.

Notez que j'ai importé l'image de ma bille (faites sur paint) dans le userform1 dans un carré image à part (en le mettant invisible lorsque l'on joue)

J'ai donc essayé ceci (qui ne fonctionne pas ^^):

Private Sub CommandButton2_Click()
For i=1 to 32
Imagei = image34
Next
End Sub

L'image 34 étant ma bille!
Aperçu de mon userform1:

http://img534.imageshack.us/img534/2871/sanstitrewm.jpg

Votre aide est la bienvenue..

2 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 621
Salut,
A ta place, je bouclerais sur tous les contrôles de mon USF, si le nom du contrôle est "image34", je passe, sinon, s'il s'agit d'une image, je lui affecte le "picture" de image34 :
Private Sub CommandButton2_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl.Name <> "Image34" Then
    If TypeOf Ctrl Is MSForms.Image Then Ctrl.Picture = Me.Image34.Picture
End If
Next Ctrl
End Sub
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci, ça fonctionne nickel, c'est tout à fait ça!

Par contre, je désire ne pas transformer l'image1 en bille, pour ce faire j'ai modifié "image34" par "image1", mais au préalable j'ai changé une propriété de l'image 34 pour que sa visibilité soit "false" c'est à dire invisible quand on joue.

J'en conclue donc que <> signifie "différent"! ^^ chose que j'ignorais, tout comme la notion de contrôle dans USF, un grand merci encore pijaku!