Message de démarrage

Bonjour le forum ,

je veux un message au démarrage de mon fichier , le message est ligne 6 de l'onglet base

Bonsoir abdernino,

code à insérer dans le module ThisWorkbook:

Private Sub Workbook_Open()
    MsgBox Sheets("base").Range("a6").Value
End Sub

Bonjour,

Parfait est ce que c'est possible de rajouter un peux de couleur au cadre du message

Bonjour,

Parfait est ce que c'est possible de rajouter un peux de couleur au cadre du message

Bonjour, non pour la couleur ; les "msgbox" ne sont pas paramètrable.

Cependant on peut imager la création d'un userform vba dans lequel tu pourras inscrire ton message et la déco que tu souhaites.

Il ne restera plus qu'à indiquer dans l'évenement d'ouverture de lancer le userform :

Private Sub Workbook_Open()
    Userform1.show
End Sub

Bonjour ,

merci beaucoup comme je suis pas un expert en vb

alors j'ai fait ce que tu ma dit ca marche très bien

1- pour le message j'ai essayer d'adapter cette macro a mon message

Private Sub Workbook_Open()

MsgBox Sheets("base").Range("a6").Value

End Sub

je veux que la valeur en A6 s'affiche

2- pour le base et ok je veux qu'il me ramène a la dernière ligne vide de la colonne D .

3- pour la récap ok pour accédé a l'onglet .

4-changer le nom afficher de userform a Interface liquidation

Bonjour adbernino,

vois si ça te convient

Bonjour ,

très bien juste un tout petit problème sur l'onglet base j'ai une protection de la feuille alors j'ai message qui apparait ci joint fichier avec la protection.

si ca peut aide le mots de passe est sophia

merci

Bonjour abdernino,

pour ôter la protection de la feuille ajoute cette ligne:

Private Sub CommandButton3_Click()

Sheets("base").Activate

ActiveSheet.Unprotect Password:="sophia"

Dim NextFree As Integer
....

Il faut ensuite réactiver la protection avec

ActiveSheet.Protect Password:="sophia"

Bonsoir

Merci beaucoup

Rechercher des sujets similaires à "message demarrage"