Microsoft 365 Personnaliser msg d'erreur Microsoft ou afficher msgbox

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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.
Sans titre.jpg

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,
 

Pièces jointes

  • blocage_macros.xlsm
    103.6 KB · Affichages: 19
Dernière édition:

eriiic

XLDnaute Barbatruc
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
 

patricktoulon

XLDnaute Barbatruc
bonjour Lionel
VB:
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
:D :p :oops::p
le msgbox d'erreur est personnalisé :oops:
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

eriiic

XLDnaute Barbatruc
@ eriiiic : Je n'arrive à faire fonctionner ta proposition en #Post2
Exemple :
VB:
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
 

patricktoulon

XLDnaute Barbatruc
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 ;) :p:p:p
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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?
 

Discussions similaires

Réponses
2
Affichages
239

Statistiques des forums

Discussions
311 737
Messages
2 082 036
Membres
101 878
dernier inscrit
1475214