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



3 commentaires:

Horoscope Horoscopes a dit…

alors ça , merci
je vais en parler dans mon blog!!!

Olivier VBA a dit…

Merci pour le lien et bonne continuation pour votre sympathique Blog...

Lapierre Médias© a dit…

C'est un article intéressant à propos de l'horoscope chinois 2010.

Enregistrer un commentaire

top