VBA : L’horoscope chinois

Dans le prolongement de l’article précédent, je vous propose un algorithme très simple pour le calcul de votre signe astrologique chinois…

- 1 – Ouvrez un nouveau classeur et réalisez le tableau suivant, puis ajouter le bouton de commande Développeur / Contrôles / Insérer / contrôles de formulaire

- 2 – Réaliser un formulaire VBA (TestDate) conforme au modèle ci dessous

- 3 - Affecter la macro OuvrirFormulaire() (que vous avez saisie dans une feuille de module de code) au bouton de commande de votre feuille de calcul.

- 4 – Voici le code de cette macro…

Option Explicit

Sub OuvrirFormulaire()
TestDate.Chinois.Caption = ""
TestDate.Show
End Sub

- 5 – Le programme vous demande de saisir votre date de naissance puis de cliquer sur le bouton OK. Excel retourne alors votre l’horoscope chinois dans un label.

- 6 – Voici le code du programme :

Option Explicit
'indique que les tableaux sont numérotés à partir d'un indice i=1
Option Base 1

‘******************************************************
Private Sub CalcAge_Click()
'déclaration des variables
Dim ligne As Byte
Dim anChinois As Integer
Dim col As Byte
‘On récupère l’année dans la date de naissance par extraction des 4 caractères placés à droite
anChinois = Right(datenaissance.Value, 4)
‘Maintenant il suffit de balayer le tableau et de comparer les dates
For ligne = 2 To 13
For col = 2 To 11
If Cells(ligne, col).Value = anChinois Then
Chinois.Caption = "Vous êtes " & Cells(ligne, 1).Value & " dans l'horoscope chinois."
End If
Next col
Next ligne
End Sub

‘**********************************************************
Private Sub Sortir_Click()
'fermeture du formulaire
TestDate.Hide
End Sub

Partager |