Macros-commandes VBA/Exercices/Utilisation des boites de message

**Utilisation des boites de message**
Leçon : Macros-commandes VBA

Exercices n^o11
Chapitre du cours :	Les types en VB
Exercices de niveau 14.
Exo préc. :	Création de formulaire personnalisé
Exo suiv. :	Imprimantes

En raison de limitations techniques, la typographie souhaitable du titre, « Exercice : Utilisation des boites de message
Macros-commandes VBA/Exercices/Utilisation des boites de message », n'a pu être restituée correctement ci-dessus.

Bonjour le monde[modifier | modifier le wikicode]

Cet exercice est très classique. Il faut savoir le refaire sans indication ni doute.

Faites un programme qui affiche le message suivant : "Bonjour le monde"

Solution

  msgbox ("Bonjour le monde")

Contrôler un mot de passe[modifier | modifier le wikicode]

Écrire une fonction demandant un mot de passe quand on veut voir une feuille Excel :

Solution

Private Sub Worksheet_Activate()
    Dim answer As String
    Dim result As String
    answer = InputBox("Entrer un mot de passe", "Password Required")
    If answer <> "password" Then
        result = MsgBox("Accès refusé")
        Workbooks.Close
    End If
End Sub

^[1]

Chemin d'accès[modifier | modifier le wikicode]

Afficher le chemin d'accès d'un fichier Excel ouvert sans utiliser ActiveWorkbook.Path.

Solution

Sub path()
    Dim result As String
    Sheets("feuille 1").Range("B1").Value = ActiveWorkbook.FullName
    Range("B2").Font.ColorIndex = 2 'Coloriage du texte en blanc pour masquer à l'utilisateur
    Sheets("feuille 1").Range("B2").Value = ActiveWorkbook.Name
    Range("B3").Font.ColorIndex = 2
    'Bug de Sheets("feuille 1").Range("B3").Value = "=GAUCHE(B1;NBCAR(B1)-NBCAR(B2))"
    'Il faut donc coller à la main dans le champ B3 : =GAUCHE(B1;NBCAR(B1)-NBCAR(B2))
    result = MsgBox(Sheets("feuille 1").Range("B3").Value)
End Sub

^[2]

Référence[modifier | modifier le wikicode]

Macros-commandes VBA

Création de formulaire personnalisé

Imprimantes

[1] rum http://www.mrexcel.com/forum/showthread.php?t=116904

[2] ttp://www.veriti.net/forum2/viewtopic.php?f=1&t=1014

[1]

[2]