Message de démarrage

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
abdernino
Membre dévoué
Membre dévoué
Messages : 616
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 12 septembre 2019, 21:26

Bonjour le forum ,
je veux un message au démarrage de mon fichier , le message est ligne 6 de l'onglet base
Interface liquidation v2.xlsm
(723.3 Kio) Téléchargé 8 fois
Avatar du membre
Sequoyah
Membre habitué
Membre habitué
Messages : 125
Appréciations reçues : 11
Inscrit le : 25 juin 2017
Version d'Excel : Office 365 32 bit

Message par Sequoyah » 12 septembre 2019, 21:43

Bonsoir abdernino,

code à insérer dans le module ThisWorkbook:
Private Sub Workbook_Open()
    MsgBox Sheets("base").Range("a6").Value
End Sub
a
abdernino
Membre dévoué
Membre dévoué
Messages : 616
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 12 septembre 2019, 21:47

Bonjour,
Parfait est ce que c'est possible de rajouter un peux de couleur au cadre du message
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 2'388
Appréciations reçues : 159
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 13 septembre 2019, 11:07

abdernino a écrit :
12 septembre 2019, 21:47
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
a
abdernino
Membre dévoué
Membre dévoué
Messages : 616
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 13 septembre 2019, 12:57

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
Interface liquidation v2.xlsm
(726.64 Kio) Téléchargé 6 fois
Avatar du membre
Sequoyah
Membre habitué
Membre habitué
Messages : 125
Appréciations reçues : 11
Inscrit le : 25 juin 2017
Version d'Excel : Office 365 32 bit

Message par Sequoyah » 13 septembre 2019, 20:29

Bonjour adbernino,
vois si ça te convient
Interface liquidation v2.1.xlsm
(719.11 Kio) Téléchargé 3 fois
a
abdernino
Membre dévoué
Membre dévoué
Messages : 616
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 14 septembre 2019, 09:35

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
Interface liquidation v2.xlsm
(753.71 Kio) Téléchargé 5 fois
Avatar du membre
Sequoyah
Membre habitué
Membre habitué
Messages : 125
Appréciations reçues : 11
Inscrit le : 25 juin 2017
Version d'Excel : Office 365 32 bit

Message par Sequoyah » 15 septembre 2019, 20:28

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"
a
abdernino
Membre dévoué
Membre dévoué
Messages : 616
Appréciations reçues : 2
Inscrit le : 19 mars 2018
Version d'Excel : 2007

Message par abdernino » 15 septembre 2019, 22:12

Bonsoir
Merci beaucoup
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message