Probleme en VBA sous excel Résolu/Fermé

Question

Bonjour, 

je suis entrain de realiser un jeux de dame en VBA sous Excel mais je mais suit bloque a un truc que j'arrive plus a reflechir sur sa. je cree de pion avec Eclisse now je chercher a compter le pion 

d'ou a mon aide je chercher un code qui en VBA qui vas me permettre a compter les Eclisse.
et les codes qui vas faire deplacer le pion qui sont des eclisse.

Sans oublie je code qui recupere le valeur saisir dans une zone de texte


Configuration: Windows 8 / Chrome 25.0.1349.2

pijaku · Answer

Bonjour,

Par "Eclipse", vous voulez dire "Ellipse"?

Si oui, elles ont été dessinées sur votre feuille Excel grâce à l'outil "Ellipse" de la barre d'outils "dessin"?

Si oui, pour les compter :
Sub ComptePions()
Dim Shp As Shape, Cpt As Integer

Cpt = 0
For Each Shp In ActiveSheet.Shapes
    'Avec mon 2003, les Ellipses s'appelent "Oval 1", "Oval 2", etc...
    'Vous devez vérifier sur votre version les noms de vos Shapes
    'En utilisant, par exemple :
    'Debug.Print Shp.Name
    'ou :
    'MsgBox Shp.Name
    'puis tester comme ci-dessous, pour voir s'il s'agit bien d'une ellipse :
    If Left(Shp.Name, 4) = "Oval" Then
        Cpt = Cpt + 1
    End If
Next
MsgBox "Vous avez : " & Cpt & " pions."
End Sub