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

 

[patricktoulon]

re

Formulaire clients Sylvain Coët patrick toulon V 6.xlsm

1drv.ms

 

[alain.pierrephie]

re

Formulaire clients Sylvain Coët patrick toulon V 6.xlsm

1drv.ms

merci je regarde

 

[alain.pierrephie]

re

Formulaire clients Sylvain Coët patrick toulon V 6.xlsm

1drv.ms

Rien de changé j'ai le même souci, devis sur BOCQUET2 date mise = 5 octobre 2021

 

[patricktoulon]

alors c'est ton system qui va pas
tu n'aurait pas un office pipé(craké) par hasard ?

 

[alain.pierrephie]

alors c'est ton system qui va pas
tu n'aurait pas un office pipé(craké) par hasard ?

C'est un parent du métier qui me l'a mis sur cet ordi et peut être qu'on peut dire ça, franchement je ne sais pas

 

[patricktoulon]

dernier recours
on va entrer les date en numérique

attention!!!
formate les colonne des deux sauvegarde en date fr avant puis sauve le classeur puis retente un devis
dans facture et devis change ca
CDate(DateConsultation.Value)
pour ca
Clng(CDate(DateConsultation.Value))

 

[alain.pierrephie]

dernier recours
on va entrer les date en numérique

attention!!!
formate les colonne des deux sauvegarde en date fr avant puis sauve le classeur puis retente un devis
dans facture et devis change ca
CDate(DateConsultation.Value)
pour ca
Clng(CDate(DateConsultation.Value))

Je vais essayer de faire.

 

[alain.pierrephie]

dernier recours
on va entrer les date en numérique

attention!!!
formate les colonne des deux sauvegarde en date fr avant puis sauve le classeur puis retente un devis
dans facture et devis change ca
CDate(DateConsultation.Value)
pour ca
Clng(CDate(DateConsultation.Value))

Voilà j'ai bien changé (une seule ligne) mais ça ne donne rien... Te bile pas c'est pas grave.

R.Resize(, 13).Value = Array(nom, CLng(CDate(DateConsultation.Value)), prenom, DevNumber, telephone, mail, adresse, _
designation1, m(1), designation2, m(2), designation3, m(3))

 

[alain.pierrephie]

Voilà j'ai bien changé (une seule ligne) mais ça ne donne rien... Te bile pas c'est pas grave.

R.Resize(, 13).Value = Array(nom, CLng(CDate(DateConsultation.Value)), prenom, DevNumber, telephone, mail, adresse, _
designation1, m(1), designation2, m(2), designation3, m(3))

Je crois que ça fonctionne laisse moi qques minutes pour vérifier

 

[ChTi160]

Bonjour ,
Ou alors (peut être)
CDate( Cint(DateConsultation.Value))
Bonne fin de Journée
Jean marie
depuis merci n téléphone

 

[alain.pierrephie]

Bonjour ,
Ou alors (peut être)
CDate( Cint(DateConsultation.Value))
Bonjour une fin de Journée
Jean marie

je reteste j'avais pas formaté, je reviens

 

[alain.pierrephie]

je reteste j'avais pas formaté, je reviens

Non ça marche pas j'essaie CDate( Cint(DateConsultation.Value))

 

[ChTi160]

Re
formate ???
Jean marie

 

[alain.pierrephie]

Non ça marche pas j'essaie CDate( Cint(DateConsultation.Value))

Ça aime pas du tout il y a débogage sur cette ligne. T'embêtes plus tu as déjà passé beaucoup de temps. Je sais que tu est têtu mais laisse passer un peu de temps ça viendra certainement plus tard.
En tout cas merci encore Patrick

 

[ChTi160]

Quel message ?
Jean marie