Macros-commandes VBA/Exercices/Utilisation des boites de message
(Redirigé depuis Macros-commandes VBA/Exercices/msgbox)
Bonjour le monde
modifierCet 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É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
modifierAfficher 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
Référence
modifier- ↑ forum http://www.mrexcel.com/forum/showthread.php?t=116904
- ↑ http://www.veriti.net/forum2/viewtopic.php?f=1&t=1014