XL 2016 Message à l'ouverture de mon fichier...

[WEIDER]

Bonjour à tous,

Pouvez vous m'aider s'il vous plait à résoudre mon petit soucis ?
Tout est dit dans mon fichier joint.

Mille mercis à tous pour votre aide !

 

[Lolote83]

Salut,
Tu devrais trouver ton bonheur ici
https://www.generation-nt.com/reponses/msgbox-duree-entraide-3495091.html
@+ Lolote83

 

[croco40]

Bonjour,
Un exemple en pièce jointe.
Il faut que ton fichier soit en .xlsm
Macro dans this workbook

Private Sub Workbook_Open()
MsgBox "IMPORTANT" & Chr(10) & "Ne pas faire de tri dans cette liste !"
End Sub

Suerte
Croco

 

[croco40]

pardon, j'avais pas vu que tu ne le voulais que quelques secondes.
D'accord avec @Lolote83
Suerte
croco

 

[WEIDER]

Merci à vous pour votre aide, ceci dit je suis allé voir le lien donné par @Lolote83, mais je ne comprends pas comment (excusez moi) modifier le code sur mon fichier modifié par Croco :-(

 

[Lolote83]

Salut à tous,
Dans le fichier de CROCO, modifier ce code

Private Sub Workbook_Open()
MsgBox "IMPORTANT" & Chr(10) & "Ne pas faire de tri dans cette liste !"
End Sub

par celui-ci

Private Sub Workbook_Open()
CreateObject("WScript.Shell").Popup ("IMPORTANT : Ne pas faire de tri dans cette liste !"), 5
End Sub

@+ Lolote83

 

[WEIDER]

J'ai remplacé le code, merci Lolote, mais... petit soucis...

Cela m'ouvre la boite texte alors qu'Excel est en cours de lancement !?
Et j'ai toujours le bouton OK à valider....

 

[croco40]

peut-être comme ça.

 

[WEIDER]

Merci Croco !

Merci à tous pour votre aide !

 

[WEIDER]

Bonjour à tous,

Petite question...

Suite au dernier fichier de Croco40, je n'arrive pas sur mon document final à garder la 'ListBox1' au dimensions que je souhaite, comme sur ma pièce jointe, et ça, malgré avoir été dans les propriétés les modifier, ou l'avoir agrandi directement à la souris !?
A chaque utilisation de la 'TextBox1' elle se 'recale' à une taille inférieure !?!?!?!?

Savez vous pourquoi ?

Merci pour votre aide !