Microsoft 365 Personnaliser msg d'erreur Microsoft ou afficher msgbox

[Usine à gaz]

Bonjour à toutes et à tous,
J'espère que mon #Post vous trouvera en bonne santé

En cette période de confinement, comme dirait Michel ... "Il me vient des idées" lol

Je travaille avec plusieurs Commerciales qui travaillent de chez elles (en France, à l'ile Maurice et en Tunisie)
Chacun de nous a son propre fichier :
Les fichiers sont tous les mêmes, sauf que chaque commercial à les infos de ses Clients dans son fichier
Grâce à vous tous, ce fichier "usine à gaz" comme dirait mon cher Gérard, Patrick et d'autres ... fonctionne super bien.
Quoi que fassent les utilisateurs, il n'y a que très peu ... voir quasiment pas de blocage.
Si blocage ou beug, j'aimerais passer un petit message "procèdure" pour en sortir.

J'ai cherché sur le net sans trouver de réponse et ce n'est certainement pas possible ?
Mais je brûle d'envie de vous poser la question
Avec les magiciens ... qui sait ?
Je joins un p'tit fichier test.
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,

 

[eriiic]

Bonjour,

oui, ça s'appelle de la gestion d'erreur. Une simple recherche t'en donnera les bases et des exemples.
Pour ce message plus spécifique, tu pourrais protéger tes feuilles à l'ouverture en utilisant le paramètre UserInterfaceOnly =True
Dans la mesure où tu considères comme normal de pouvoir écrire dedans, sinon : gestion d'erreur
eric

 

[Usine à gaz]

Bonjour eriiiic, JM,
Merci pour vos messages
je regarde dès que j'ai un p'tit moment et je vous dis,
lionel,

 

[patricktoulon]

bonjour Lionel

Sub test1()
On Error GoTo gesterr
Sheets(33).Activate

gesterr:
MsgBox Err.Description & vbCrLf & "espece de cocombre masqué" & vbCrLf & "tu l'a vu ou toi le sheet 33!!!!!" & vbCrLf & " SAUCISSE!!!"
End Sub

le msgbox d'erreur est personnalisé

 

[Usine à gaz]

Re-Bonjour eriiiic, JM,
Bonjour Patrick,
@ eriiiic : Je n'arrive à faire fonctionner ta proposition en #Post2
@ JM : J'avais déjà consulté biens des liens et celui que tu me proposes. J'ai regardé à nouveau mais je n'ai pas trouvé la réponse à mon besoin
@ Patrick : Merci pour ton code mais ça ne répond pas à ma demande

Je continue mes recherches,
lionel,

 

[Usine à gaz]

OUI, mais ce n'est pas la gestion des erreurs dont j'ai besoin
Je voudrais Personnaliser msg d'erreur Microsoft ou afficher msgbox

 

[patricktoulon]

re
alors a mon avis ton besoins a mal été exprimé Lionel

 

[Usine à gaz]

Re-Patrick
Le cocombre que dois être a du mal expliqué.
lol, il me semblait pourtant avoir fait de mon mieux mais NON
et je ne sais pas comment dire différemment mais je vais y réfléchir
lionel,

 

[Usine à gaz]

lol, j'essaie de reformuler ma question :
Est-il possible de modifier le message de Microsoft Visual Basic ou d'afficher un msgbox en même temps ?

 

[eriiic]

@ eriiiic : Je n'arrive à faire fonctionner ta proposition en #Post2

Exemple :

Private Sub Workbook_Open()
    Const listeF As String = ",Feuil2,Feuil3,"
    Dim sh As Worksheet
    For Each sh In Worksheets
        If InStr(listeF, "," & sh.Name & ",") > 0 Then
            sh.Protect UserInterfaceOnly:=True, Password:="mot_de_passe"
        End If
    Next sh
End Sub

Sub test()
    ' écriture sans déprotection
    Sheets("Feuil2").[A1] = 5
End Sub

OUI, mais ce n'est pas la gestion des erreurs dont j'ai besoin
Je voudrais Personnaliser msg d'erreur Microsoft ou afficher msgbox

Les messages d'erreur sont en dur dans VBA.
Si tu veux les changer pas d'autre choix qu'une gestion d'erreur qui affiche ou fait ce que tu veux.
eric

 

[Usine à gaz]

Re
Bug=error = erreur donc on revient à ce que l'on t'a dit (mais que tu ne veux pas entendre...)
Gestion des erreurs

Ou je suis encore plusss bourrin que je le pensais ou comme je le pense, ma demande ne concerne pas la gestion des erreur mais la possibilité de faire passer une information à l'affichage du message de Microsoft Visual Basic

 

[patricktoulon]

heu....

lol, j'essaie de reformuler ma question :
Est-il possible de modifier le message de Microsoft Visual Basic ou d'afficher un msgbox en même temps ?

la réponse viens de t'etre donné

Les messages d'erreur sont en dur dans VBA.
Si tu veux les changer pas d'autre choix qu'une gestion d'erreur qui affiche ou fait ce que tu veux.
eric

je te parlerais bien de hook mais comme ca sent le gaz chez toi je prendrais pas le risque

 

[patricktoulon]

on t'aime Staple1600 reviens !!!

oui a mon avis Lionel est dans le gaz pour ne pas dire dans le paté aujourd'hui

 

[Usine à gaz]

Re-eriiiic,
Merci pour ta proposition :
Les messages d'erreur sont en dur dans VBA.
Si tu veux les changer pas d'autre choix qu'une gestion d'erreur qui affiche ou fait ce que tu veux.

Mais ça ne répond pas à ma demande car je voudrais pouvoir avoir la possibilité de faire passer une information à l'affichage du message de Microsoft Visual Basic , quel que soit le type d'erreur.

A la vue de vos messages, je pense que ma demande n'est pas réalisable?

 

[Usine à gaz]

"on t'aime Staple1600 reviens !!!"
lol ça dépend des moments