Autres Mettre une alerte si la textbox n'est pas remplie

[alain.pierrephie]

Bonjour au forum.
Je galère et essayé mille choses depuis deux jours et de guerre lasse je viens vers vous pour une aide qui vous semblera certainement facile mais qui m’ôtera une épine du pied.
J'explique:
J'ai cela ci joint qui va remplir une feuille et j'aimerai que si la personne ne remplie pas celle que je vous aie isolée c'est a dire la date afin d'éviter le débogage, il puisse y avoir un message du style "Veuillez remplir la date de consultation";
j'ai créé un label mais a chaque fois que je teste avec oubli de remplir la date j'ai bien mon alerte dans le label mais il y a aussi le débogage.
Si une bonne âme pouvais voir cela.
Merci à vous tous
Alain

-----------------------------------------O----------------------------------------------------


Private Sub Ajout_Click()
With Sheets("SAUVEGARDE")
'ActiveSheet.Unprotect ("5158")
fin = .Range("b" & .Rows.Count).End(xlUp).Row
.Range("B" & fin + 1) = nom.Value



.Range("C" & fin + 1) = CDate(DateConsultation.Value) ----> ALERTE SUR CET FORMULE



.Range("D" & fin + 1) = prenom.Value
.Range("F" & fin + 1) = telephone.Value
.Range("G" & fin + 1) = mail.Value
.Range("H" & fin + 1) = adresse.Value
.Range("I" & fin + 1) = designation1.Value
.Range("J" & fin + 1) = montant1.Value
.Range("K" & fin + 1) = designation2.Value
.Range("L" & fin + 1) = montant2.Value
.Range("M" & fin + 1) = designation3.Value
.Range("N" & fin + 1) = montant3.Value

With Sheets("devis")

.Range("j16") = CDate(DateConsultation.Value)

'validation puis aller dans la feuille devis
Sheets("devis").Activate

'ActiveSheet.Protect Password:="5158"

Unload Me

End With
End With
End Sub

 

[Bernard_XLD]

Re,

si tu utilises la compression zip windows, tu peux installer bandizip, gratuit, en français, et passer ton fichier en compression zip maximale avec les options de compression, tu gagneras quelques ko sur un fichier d'1 Mo fait par windows, et le fichier restera un zip lisible directement par windows.

@+

ou alors tu l'enregistres en xlsb, zippé au besoin, il n'aura plus qu'à l'enregistrer en xlsm pour revenir à l'original

 

[patricktoulon]

j'ai winrar et je l'ai compresser en option maximale
de 0.99 j'arrive 0.98

 

[Bernard_XLD]

j'ai winrar et je l'ai compresser en option maximale
de 0.99 j'arrive 0.98

tu as gagné 10 ko, ça devrait passer, c'est un méga max les pièces jointes, je crois. Je vérifie

 

[Bernard_XLD]

re,

oui, c'est bien un Mo pile
https://www.excel-downloads.com/thr...lle-des-pieces-jointes.20032245/post-20236765

 

[patricktoulon]

non ca pas pas
je viens d'essayer en xlb compressé max ca ait toujours 0.98 soit 1.0xxx

comme je l'ai dit il n'y a pas beaucoup de blanc a compressé dedans
il est propre de chez propre
purée être arrêté pour si peu

 

[Bernard_XLD]

je viens d'essayer en xlb compressé max ca ait toujours 0.98 soit 1.0xxx

ça, j'avais jamais vu, on gagne en général 10 à 30 % de taille

 

[patricktoulon]

oui quand il y a beaucoup de vides
là il n'y en a pas

 

[alain.pierrephie]

re
Bonjour @Yeahou
je dépasse de quelques kilos meme en zip vraiment 3 fois rien mais ça passe pas
et je peux vraiment rien enlever car chez moi c'est propre il ne reste aucun modules morts
Regarde la pièce jointe 1119561
je lui enverrai bien en morceaux mais j'ai peur qu'il ne sache pas faire pour reconstruire

En morceaux !!!!!????

 

[alain.pierrephie]

oui quand il y a beaucoup de vides
là il n'y en a pas

Je sens qu'on touche presque au but mais j'ai compris qu'il est maintenant trop gros. Il y a surement une solution de secours !

 

[patricktoulon]

Bonjour Alain
ben il est plus gros par ce qu'il a 2 userforms supplémentaires c'est tout
il a toujours qu'un seul module pour les sub génériques et communes

 

[alain.pierrephie]

Bonjour Alain
ben il est plus gros par ce qu'il a 2 userforms supplémentaires c'est tout
il a toujours qu'un seul module pour les sub génériques et communes

Bonjour Patrick
As tu vu les controles que j'ai envoyé ce matin .?
Dis moi que tu as un plan B pour me le faire parvenir, il est trop classe.

 

[patricktoulon]

oui j'ai vu les controles que tu a fait mais tu n'avais pas appliquer le correctif que je t ' avais donné en post 95
il faut suivre hein
je l'ai mis dans mon one drive

OneDrive

Sign in to your OneDrive cloud storage and Office Online.

1drv.ms

 

[alain.pierrephie]

oui j'ai vu les controles que tu a fait mais tu n'avais pas appliquer le correctif que je t ' avais donné en post 95
il faut suivre hein
je l'ai mis dans mon one drive

OneDrive

Sign in to your OneDrive cloud storage and Office Online.

1drv.ms

One drive ? C'est quoi ce bestiau. J'ai reçu et je frétille de regarder

 

[patricktoulon]

tu a pu le télécharger ?????

 

[alain.pierrephie]

oui j'ai vu les controles que tu a fait mais tu n'avais pas appliquer le correctif que je t ' avais donné en post 95
il faut suivre hein
je l'ai mis dans mon one drive

OneDrive

Sign in to your OneDrive cloud storage and Office Online.

1drv.ms

J'ai réussit a le mettre sur mon ordi je controle complet et reviens. A+