Microsoft 365 création d'un message d'alerte

[luc50*]

bonjour
je souhaite crée en vba un message d'alerte ( texte de mon choix) dans le fichier ci joint pour le groupe de case (ai11:aq12) lorsque ce dernier et vide
par avance merci

 

[Phil69970]

Bonjour @luc50* , le forum

Avant toute chose, je te conseille de faire le ménage dans tes modules, tu as environ 50 modules dont 45 modules vides 😳

Après reposte le fichier allégé....

@Phil69970

 

[luc50*]

VOLIA AVEC LE FICHIER NETOYER
MA QUESTION RESTE LA MEME JE SOUHAITE CREE UN MESSAGE D'ALERTE QUI BLOQUE L' ENREGISTREMENT SI CERTAINES CASE OU GROUPE DE CASES NE SONT PAS REMPLI
EX :SI LE GROUPE DE CASE (AI11:AQ12) N'EST PAS REMPLI L'ENREGISTREMENT DU FICHIER NE SE FAIT PAS ET UN MASAGE D'ALERTE ME DEMANDANT DE REMPLI CETTE PARTIE APPARAIT
CORDIALEMENT

 

[Phil69970]

Bonjour @luc50* , le forum

Je te propose :
Pour l'enregistrement

Sub CRMP2ENREGISTREMENT()
Dim Chemin As String, NomFichier As String
If Range("AI11").Value = "" Then MsgBox "Enregistrement impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Pour l'impression

Sub CRMP2IMPRIMER()
If Range("AI11").Value = "" Then MsgBox "Impression impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Pour l'envoi de mail

Sub crmp2021mail()
If Range("AI11").Value = "" Then MsgBox "Envoi mail impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

*Ecrire en majuscule sur un forum c'est crier😵

@Phil69970

 

[luc50*]

Merci ca marche nickel et encore desolle pour l'ecriture en majuscule

Bonjour @luc50* , le forum

Je te propose :
Pour l'enregistrement

Sub CRMP2ENREGISTREMENT()
Dim Chemin As String, NomFichier As String
If Range("AI11").Value = "" Then MsgBox "Enregistrement impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Pour l'impression

Sub CRMP2IMPRIMER()
If Range("AI11").Value = "" Then MsgBox "Impression impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Pour l'envoi de mail

Sub crmp2021mail()
If Range("AI11").Value = "" Then MsgBox "Envoi mail impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

*Ecrire en majuscule sur un forum c'est crier😵

@Phil69970

 

[luc50*]

j ai encore une petite question comment cumule deux conditions pour areter l'enregistrement
ex : qlorsque les cases(e11😛12 ) contiennent un certain texte et que la case a11 soit vide

 

[Phil69970]

Bonjour @luc50*, le forum

Pour avoir les 2 conditions : (Si une des 2 conditions n'est pas rempli on sort de la procédure)

Pour l'enregistrement

Sub CRMP2ENREGISTREMENT()
Dim Chemin As String, NomFichier As String
If Range("AI11").Value = "" Or Range("E11").Value = "" Then MsgBox "Enregistrement impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Pour l'impression

Sub CRMP2IMPRIMER()
If Range("AI11").Value = "" Or Range("E11").Value = "" Then MsgBox "Impression impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Pour l'envoi de mail

Sub crmp2021mail()
If Range("AI11").Value = "" Or Range("E11").Value = "" Then MsgBox "Envoi mail impossible, N° de consultation téléservice vide", vbCritical, "Manque donnée !": Exit Sub
'.....reste du code

Si la solution te donne satisfaction passe le post en résolu.

@Phil69970

 

[luc50*]

merci phil69970 pour ton aide
si j'ai bien compris or prend en compte l'une ou l'autre des conditions
ce que je recherche c'est que les deux condition soit remplis
une valeur dans la case e11 et aucune valeur dans la case ai11
si je met and a la place de or sa ne marche pas

 

[Phil69970]

Re

La condition "or" regarde si la condition 1 ou bien la condition 2 est vrai donc si vide en AI11 ou bien si vide en E11 alors la procédure s’arrête.

Maintenant si tu veux que les 2 conditions soient remplies c'est à dire si vide en AI11 ET vide en E11 alors il faut mettre "and"

Suis je clair dans mes explications ?
En résumé :

"Or" c'est :
Vide en AI11
OU
Vide en E11
N’importe laquelle des 2 conditions est rempli on stoppe

"And" c'est :
Vide en AI11
ET
Vide en E11
Les 2 conditions ENSEMBLE sont réunis on stoppe.

@Phil69970

 

[luc50*]

Merci tes explications sont très claire
effectivement c'est and donc j'ai besoin

une dernière demande qui pour moi serait la cerise sur le gâteaux
est il posible que la cellule vide change de couleur afin de montrer a l'utilisateur la cellule a remplir pour continue l'enregistrement
ex: If Range("e11").Value = "DICT" And Range("ai11").Value = "" Then MsgBox "Enregistrement impossible, MANQUE LE N° DE CONSULTATION DU TELESERVICE", vbCritical, "Manque donnée !": Exit Sub

dans ce cas la il faudrait que le curseur aye sur la cellule et qu'elle passe en couleur

MERC

 

[Phil69970]

@luc50*

Pour cela il me faut le mot de passe de l'onglet
Il y a déjà une couleur qui change tant que E11 est vide
Donc je m'occupe uniquement de AI11 ?

*Pour mon info perso, qui va remplir le fichier l'AT ou le demandeur de la DICT ?
En regardant mieux je me réponds à moi même 🤣 c'est L'AT en fonction de la demande 😉

@Phil69970

 

[Phil69970]

@luc50*

Et un simple message du genre ne suffirait il pas ?

MsgBox "Veuillez remplir les cases jaunes", vbInformation, "Case vide !!!"

Ce qui à l'avantage de prévenir l'utilisateur sans modifier ta présentation.

@Phil69970

 

[luc50*]

bonjour le mot de passe de l'onglet est luc
j'ai reussi a ce que la casse e11 passe en rouge si elle n'est pas rempli

If Range("e11").Value = "" Then MsgBox "Enregistrement impossible MANQUE LE TYPE DE RENDEZ-VOUS", vbCritical, "Manque donnée !": ActiveSheet.Range("e11").Interior.Color = vbRed: Exit Sub

maintenant je cherche a ce que la case ai11 passe aussi en rouge si e11 est rempli mais ai11 vide

If Range("e11").Value = "DICT" and Range("ai11").Value = "" Then MsgBox "Enregistrement impossible, manque LE N° DE CONSULTATION DU TELESERVICE", vbCritical, "Manque donnée !": Exit Sub

 

[luc50*]

pour ce qui est des case en jaune ton idée était bonne mais seulement certaine case on un caractère obligatoire et ces celle la que je veux mettre en rouge si elle ne sont pas rempli

 

[luc50*]

Personne pour m'aider ?