Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

alain.pierrephie

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

alain.pierrephie

XLDnaute Occasionnel
Merci, je suis en train de controler.; Passe une bonne soirée et a demain
Bonjour Patrick
J'ai un léger souci, j'ai pourtant jeté un oeil mais tout me semble normal sur: "Enregistrer un devis en PDF"
rien à faire il me sort une facture, les libellés m'informe aussi que la facture est sur le bureau etc et j'ai bien une facture sur le bureau au lieu du devis. Je vois pas pourquoi.
Merci a toi
 

alain.pierrephie

XLDnaute Occasionnel
j'ai testé c'est bon
C'est bon aussi, merci, je finis donc de controler , ya tellement de choses.

je te laisse mon mail, si tu es ok j'aimerai t'envoyer un petit quelque chose pour te remercier de tout ce que tu as fait pour moi. Oh c'et pas grand chose juste une spécialité bordelaise que tu pourras déguster avec ta femme. Envoi moi une adresse si tu n'y vois aucun souci.
Merci à toi je fini donc de controler et je reviens dans l'après midi
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…