Probleme en VBA sous excel

Résolu
Profil bloqué -  
 Profil bloqué -
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

1 réponse

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Et pour déplacer un Shape (Ellipse) sur ton damier : 
      Sub LancerDeplacement()
Call DeplacerPion(1)
End Sub
Sub DeplacerPion(Num As Integer)
ActiveSheet.Shapes("Oval " & Num).Left = ActiveSheet.Shapes("Oval " & Num).Left + 40
ActiveSheet.Shapes("Oval " & Num).Top = ActiveSheet.Shapes("Oval " & Num).Top + 40
End Sub
      0
    2. Profil bloqué
       
      savas j'essai now
      0