Utilisation des boites de dialogues1
Mettre Option Explicit en tête du module.
Il faudra alors déclarer chaque variable avec l’instruction Dim variable As Type
Excel et Visual Basic pour Excel
Licences Eco-Gestion et Math-Eco – L2 / S4
TD 1 Programmation VBA :
Quelques procédures courtes
1 et 2) Utilisation des boites de dialogues sans utiliser de données du tableur 1) Sub pair()
Rem déterminer si pair ou impair
NombreN = InputBox("Entrez un nombre entier, SVP :")
If NombreN / 2 = …afficher plus de contenu…

6) ... et avec intérêts simples et affichage du résultat dans le tableur
5) Sub ValeurFuture1() c = Range("capital") t = Range("taux") n = Range("durée") ‘ en années entières
6) Sub ValeurFuture2() c = Range("capital") t = Range("taux") n = Range("durée") ‘ en années entières
Rem Utilisation de la boucle for, avec intérêts simples. Variante : ceci permettrait aussi d'afficher les valeurs intermédiaires ; comment ?
For i = 1 To n c = c * (1 + t)
Next i
Rem Sortie valeur future dans le tableur (cellule VF)
Range("VF") = c
End Sub
Rem autre formule possible, mais « écrase » la valeur initiale de c
‘ c = c * (1 + t) ^ n
Rem réponse par boîte de dialogue f = c * (1 + t) ^ …afficher plus de contenu…

ressaisir: ' attention, il convient d'autocontrôler la ressaisie... moygén = InputBox("Note non valide !" & Chr(10) &
"Tapez la vraie note ci-dessous")
If moygén < 0 Or moygén > 20 Then GoTo ressaisir
Return
c_est_fini: Rem Sortie des données dans le tableur
Range("mention") = défmention ' affiche la mention...
Range("moyenne") = moygén ' ... mais il convient d'afficher aussi la note corrigée, le cas échéant...
End Sub
10) Calcul de la surface d’un cercle avec boite de dialogue et appel d’une fonction externe