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

Bonjour le monde

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

É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

 

Chemin d'accès

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