|
 |
La boîte à outils Contrôles (Excel 2003)
 Barre de défilement et case d'option
Création d'une petite animation pour changer un peu du traditionnel calcul d'emprunt.
Pour réaliser cette animation il faut :
- une barre de défilement (ScrollBar)
- 3 cases d'option (OptionButton)
- un bouton de commande (CommandButton)
- une image (felix.gif contenu dans l'archive zip)
- et une flèche ( de la barre d'outils Dessin)
Mise en place
Dans une feuille de calcul dispose la barre de défilement, les 3 cases d'options, le bouton de commande
Félix et la flèche. Inspire toi de la copie d'écran ci-dessous
En mode création clique sur la barre de défilement puis sur le bouton Propriétés de la barre d'outils Contrôle.
Dans la zone Défilement met les propriétes :
Delay à : 50
LargeChange à : 10
Max à : 290
Min à : 20
SmallChange à : 5
Vérifie dans la zone nom que Félix se nomme "Image 1" et que la flèche se nomme "Trait 1".
Sinon il faudra adapter les noms dans les lignes des macros :
Image 1 = Picture 1 et Trait 1 = Line 1
ActiveSheet.Shapes("Picture 1")
ActiveSheet.Shapes("Line 1").Width = 60
Par exemple si ton image (Félix) se nomme "Image 4" il faudra changer le nom par "Picture 4".
En mode création clique sur la première case d'option puis sur le bouton Propriétés de la barre d'outils Contrôle.
Dans la catégorie Apparence inscrit Félix avance dans la zone Caption.
La 2ème case d'option :
Flèche avance
La 3ème case d'option:
Les deux avancent.
Dans la propriétes Caption du bouton de commande inscrit Retour à la case Départ.
Les macros
Double clique sur la barre de défilement et copie cette macro dans le module :
Cette macro anime Félix ou la flèche suivant les cases d'option cochées
Private Sub ScrollBar1_Change()
If OptionButton1.Value Then
With ActiveSheet.Shapes("Picture 1")
.Left = ScrollBar1.Value
.Top = 80
End With
End If
If OptionButton2.Value Then
ActiveSheet.Shapes("Line 1").Width = ScrollBar1.Value + 40
End If
If OptionButton3.Value Then
With ActiveSheet.Shapes("Picture 1")
.Left = ScrollBar1.Value
.Top = 80
End With
ActiveSheet.Shapes("Line 1").Width = ScrollBar1.Value + 40
End If
End Sub
Double clique sur la 1ère case d'option et copie cette macro dans le module :
Private Sub OptionButton1_Click()
ScrollBar1.Value = 20
End Sub
Sur la 2ème
Private Sub OptionButton2_Click()
ScrollBar1.Value = 20
End Sub
et sur la 3ème
Private Sub OptionButton3_Click()
ScrollBar1.Value = 20
End Sub
Double clique sur le bouton de commande et copie cette macro dans le module :
Cette macro remet à leur place d'origine Félix et la flèche
Private Sub CommandButton1_Click()
With ActiveSheet.Shapes("Picture 1")
.Left = 20
.Top = 80
End With
ActiveSheet.Shapes("Line 1").Width = 60
ScrollBar1.Value = 20
End Sub
  defil.zip  17 ko Télécharge l'exemple 3
Prochaine étape: ...
[top]
|
