IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Déplacement d'une image [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2013
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Conseil

    Informations forums :
    Inscription : Février 2013
    Messages : 116
    Par défaut Déplacement d'une image
    Bonjour,

    Dans un classeur Excel, sur la feuil1, j'ai une image clipart (Image 1). Je voudrais créer une animation.

    Voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Sub DéplaceImage(Img As Integer)
    Dim i As Integer, T As Double
     
    For i = 1 To 26 ' Boucle pour faire une rotation de la voiture.
       ActiveSheet.Shapes(Img).IncrementRotation (i) ' Rotation.
       T = Timer: While T + 0.05 > Timer: Wend ' Pour faire une pause.
       DoEvents                                ' Actualise l'écran.
    Next i
    ActiveSheet.Shapes(Img).Rotation = 0  ' Remet à 0.
     
    For i = 1 To 300 ' Boucle pour déplacer horizontalement la voiture.
       ActiveSheet.Shapes(Img).IncrementLeft 1  ' Déplace d'un pixel à droite.
       T = Timer: While T + 0.01 > Timer: Wend  ' Pour faire une pause.
       DoEvents                                 ' Actualise l'écran.
    Next i
     
    End Sub
    Le problème est que je n'arrive pas à lancer l'animation.

    Merci pour votre aide.

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour

    il suffit de faire une sub qui appelle ta procédure de type
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    sub test()
     
    call DéplaceImage(1)' 1 est l'idex de l'image sur la feuille
    end sub
    Sinon, j'ai légèrement modifié ton code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Sub DeplaceImage2(Img As Shape)
    Dim i As Integer, T As Double
     
    With Img
        For i = 1 To 26    ' Boucle pour faire une rotation de la voiture.
            .IncrementRotation i    ' Rotation.
            T = Timer: While T + 0.05 > Timer: Wend    ' Pour faire une pause.
            DoEvents                           ' Actualise l'écran.
        Next i
        .Rotation = 0    ' Remet à 0.
     
        For i = 1 To 300    ' Boucle pour déplacer horizontalement la voiture.
            .IncrementLeft 1    ' Déplace d'un pixel à droite.
            T = Timer: While T + 0.01 > Timer: Wend    ' Pour faire une pause.
            DoEvents                            ' Actualise l'écran.
        Next i
    End With
    End Sub
     
    Sub test()
     
    DeplaceImage2 Worksheets("Feuil1").Shapes("Image 1")
    End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2013
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Conseil

    Informations forums :
    Inscription : Février 2013
    Messages : 116
    Par défaut
    Merci, problème résolu

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Déplacement d'une image dans un CStatic
    Par homeostasie dans le forum MFC
    Réponses: 2
    Dernier message: 08/03/2007, 17h36
  2. déplacement d'une image dans un calque dimensionné précis
    Par mimix0 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 29/09/2006, 17h03
  3. [CSS] Déplacement d'une image...
    Par S~C dans le forum Mise en page CSS
    Réponses: 12
    Dernier message: 13/05/2006, 05h58
  4. vitesse de déplacement d'une image pas constante
    Par marco62118 dans le forum VB 6 et antérieur
    Réponses: 12
    Dernier message: 11/04/2006, 13h32
  5. [VB.NET] Déplacement d'une image
    Par ludovic85 dans le forum Windows Forms
    Réponses: 3
    Dernier message: 01/02/2005, 12h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo