Re : MessageBox : affichage une seule fois
Bonjour Le Forum, les Amis,
J'en apprends ICI tous les jours !
Je me suis inspiré de vos informations pour vous montrer une macro que j'ai donc adaptée, et qui fonctionne dans Thisworkbook.
Intéressant : la macro reste dans mes codes pour formulation d'un nouveau message ultérieur.
Pour les débutants comme moi qui seraient intéressés :
Private Sub Workbook_Open()
'Merci STAPPLE1600 dans fil Probleme MsgBox 20/08/2010 à 15:09
Application.ScreenUpdating = False
Dim Titre$, Lignes$, Message$ ' , i&
If Feuil1.[A1] = "" Then 'ou bien 0
Titre = "INFORMATION"
Lignes = " Message final du 17/08 à 19 :25" & vbLf
Lignes = Lignes & " Bonjour et bon usage !" & vbLf
Lignes = Lignes & " Et à un prochain message !" & vbLf
Lignes = Lignes & " Ce message n'apparaîtra pas une deuxième fois." & vbLf
Lignes = Lignes & " Webperegrino "
Message = Lignes
MsgBox Message, 6, Titre ' ou ' For i = 1 To 6 'MsgBox Message, i, Titre 'Next i
Feuil1.[A1] = Feuil1.[A1] + 1
End If
Application.ScreenUpdating = True
End Sub
D'autre part, le fichier de FO RUM m'a paru très efficace. Toutefois, à mon niveau, je n'ai rien compris à son fonctionnement après le premier affichage.
En effet après l'affichage du message, je ne retrouve pas d'information dont <<l'affaire>> est construite, quand je fais Alt + F11 pour voir les éventuels codes... Dommage et un peu frustrant pour le débutant VBA que je suis.
Mais merci toutefois à FO RUM de s'être penché sur le sujet.
Grand merci aux autres aussi pour leur efficacité à répondre également.
Vos aides me sont précieuses.
Webperegrino