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

 

[alain.pierrephie]

bon ben on est bon je crois
la question c'etait

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

moi je dis LOL
n'oublie pas de mettre les mention légales et le siret en bas de ta feuille devis et facture
pour le régime micro bic c'est obligatoire

Salut à toi Patrick j'espère que tout va bien en ce dimanche ensoleillé
désolé de t'embêter un dimanche mais j'ai du mal à résoudre un mini souci.
Lorsque je créé un "Devis" ou une "Facture" lorsque je valide tout ce passe nickel hormis la date qui se met en british dans l'onglet "SauvegardeF" & "SauvefardeD" , j'ai pourtant regardé et suis bien en français dans le format de cellule. J'ai même regardé dans le userform sans rien toucher et c'est bien noté "Cdate"
Je sais que c'est pas grand chose mais je vois pas ce que c'est. Ya pas le feu si tu es occupé ailleurs mais ça serait cool de regarder quand tu auras une minute
Merci à toi Patrick

EXEMPLE: le 05/10/2021 est inscrit 10/05/2021

 

[patricktoulon]

Bonjour Alain
re oui je sais j'ai du entré la date en string
je corrige et reviens

 

[alain.pierrephie]

Bonjour Alain
re oui je sais j'ai du entré la date en string
je corrige et reviens

En string ?
j'ai des images qui me viennent.
Habille toi avant de coder

 

[patricktoulon]

bon j'ai regarder et non on est bien en "Cdate"

regarde fait ce test dans un classeur vierge
tu va comprendre la difference entre une donnée date et le string (texte ) d'une date
sub test
[A1]="22/05/2021"
[A2]=cdate("22/05/2021")
end sub

 

[patricktoulon]

j'ai bien verifié
facture
Set R = Range("Tsauvegardef").ListObject.ListRows.Add.Range
Range("pointagereglement").ListObject.ListRows.Add
'MsgBox r.Address
R.Resize(, 13).Value = Array(nom, CDate(DateConsultation.Value), prenom, FactNumber, telephone, mail, adresse, _
designation1, m(1), designation2, m(2), designation3, m(3))


et devis
Set R = Range("TsauvegardeD").ListObject.ListRows.Add.Range
'MsgBox r.Address
R.Resize(, 13).Value = Array(nom, CDate(DateConsultation.Value), prenom, DevNumber, telephone, mail, adresse, _
designation1, m(1), designation2, m(2), designation3, m(3))



donc je ne vois pas

 

[alain.pierrephie]

j'ai bien verifié
facture
Set R = Range("Tsauvegardef").ListObject.ListRows.Add.Range
Range("pointagereglement").ListObject.ListRows.Add
'MsgBox r.Address
R.Resize(, 13).Value = Array(nom, CDate(DateConsultation.Value), prenom, FactNumber, telephone, mail, adresse, _
designation1, m(1), designation2, m(2), designation3, m(3))


et devis
Set R = Range("TsauvegardeD").ListObject.ListRows.Add.Range
'MsgBox r.Address
R.Resize(, 13).Value = Array(nom, CDate(DateConsultation.Value), prenom, DevNumber, telephone, mail, adresse, _
designation1, m(1), designation2, m(2), designation3, m(3))



donc je ne vois pas

Je suis pas trop nul car j'avais bien vu que tout était en cdate. Bon c'est pas grave on va rester comme ça.
Je te remercie de t'être penché sur ça et te souhaite un bon dimanche.
Si tu as une idée n'hésite pas à tester et me dire on sais jamais des fois ça m'arrive d'avoir une illumination des heures ou des jours après.
Merci en tout cas
Salut à toi Patrick

 

[patricktoulon]

reformate ta colonnes déjà pour que ca soit clair
et modifie les date qui sont déjà présentes et qui ont été modifiées

 

[alain.pierrephie]

reformate ta colonnes déjà pour que ca soit clair
et modifie les date qui sont déjà présentes et qui ont été modifiées

ok je fait ça et je refait un devis

 

[alain.pierrephie]

ok je fait ça et je refait un devis

Dans la cellule de 'sauvegardeF" j'ai donc écrasé la date marquée en écrivant 05/10/2021 et ça me marque que j'ai bien dans la barre de formule la bonne date. Incompréhensible pour moi

 

[patricktoulon]

il faut formater toute la colonne sinon ça marche pas sur un TS

 

[patricktoulon]

 

[alain.pierrephie]

Regarde la pièce jointe 1120003

Il me semble que c'est la première chose que j'ai fait, mais je vais refaire sortir du programme re entrer et faire un devis

 

[alain.pierrephie]

Il me semble que c'est la première chose que j'ai fait, mais je vais refaire sortir du programme re entrer et faire un devis

J'ai fait comme tu as montré, sorti, re entré et fait un devis et ça donne la même chose

 

[alain.pierrephie]

J'ai fait comme tu as montré, sorti, re entré et fait un devis et ça donne la même chose

Regarde la pièce jointe 1120004

Sur les dates précédentes j'ai bien dans "format de nombre" = date
alors que le dernier que je viens de faire j'ai "personnalisé"

 

[alain.pierrephie]

Sur les dates précédentes j'ai bien dans "format de nombre" = date
alors que le dernier que je viens de faire j'ai "personnalisé"