Retour à la Visual Basic Editor pour ajouter le dernier morceau de code.
Private Sub cmdTotal_Click ()
Dim intTotal As Integer
«Déclarer une nouvelle variable pour contenir du texte
Dim txtTotal As String
intTotal = WorksheetFunction.Sum (Cells.Range ("B3", "B14"))
«Si utiliser le ... else pour contrôler la valeur de la variable txtTotal
Si intTotal lt; Puis 2500
txtTotal = "Objectif atteint Non"
Autre
txtTotal = "Objectif atteint"
End If
TalkIt (txtTotal)
End Sub
Qu'est-ce que le code ci-dessus signifie que lorsque le bouton est cliqué, le code sera de voir si le total de la "Chapeaux" colonne de la feuille de calcul est inférieur à $ 2500. Si elle est, puis la voix de synthized Excel dira "Objectif pas atteint." Si le total est de 2500 $ ou plus, puis la voix se parler "Objectif atteint." C'est tout. Vous venez de créer votre premier programme dans Microsoft Excel.