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]

alors?
Regarde la pièce jointe 1119594

Tu penses bien qu'avant de faire quoi que ce soit je demande quitte à me faire tancer. En l'occurence ici ça fonctionne parfaitement il suffisait que je clique a droite et non a gauche. C'est ok

 

[patricktoulon]

ok je regarde j'ai ma petite idée sur la question

 

[alain.pierrephie]

ok je regarde j'ai ma petite idée sur la question

Evidemment je n'imaginais pas le contraire

 

[patricktoulon]

c'est bizarre ça le fait pas chez moi
je regarde

 

[alain.pierrephie]

c'est bizarre ça le fait pas chez moi
je regarde

Je viens de le refaire en ayant pris soin de n'avoir que le devis et aucune facture. Ça marche mais toujours le #N/A


DEVIS FACTURIER

NOM ou société

Date Facture

PRENOM

N° facture

N° TELEPHONE

Adresse e-mail

Adresse Postale

Service 1

Montant 1

Service 2

montant 2

Service 3

montant 3

Moyen de paiement

Somme totale

MARCHAND

10/20/2021

ALBERT

1

02 58 79 45 69

albert@

33 rue du pinard 45 orleans

fgfsddf

777,00 €

#N/A

#N/A

 

[patricktoulon]

2 minutes

 

[alain.pierrephie]

2 minutes

Tout le temps que tu veux faut que j'aille pisser je vais exploser sinon

 

[patricktoulon]

ok mon intuition etait la bonne
alors
dans ufdevis tu va chercher cette ligne

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

et tu la remplace par celle ci

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

tu t'en sent capable ou je te redonne le code entier ?????
on fera pareil dans uffacture après

 

[alain.pierrephie]

alain.pierrephie@laposte.net

ok mon intuition etait la bonne
alors
dans ufdevis et uffacture tu va chercher cette ligne

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

et tu la remplace par celle ci

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

tu t'en sent capable ou je te redonne le code entier ?????

YA juste ça a remplacer ? JE REGARDE ET TE DIS mais ça devrait aller. Je reviens

 

[patricktoulon]

fait le que sur ufdevis
sur facture il y a la variable dans l'array a remplacer aussi

 

[alain.pierrephie]

fait le que sur ufdevis
sur facture il y a la variable dans l'array a remplacer aussi

Voilà j'ai fait sur les 2: devis et facture. C'est ok ? Je peux tester ?

 

[patricktoulon]

re
teste devis mais pas facture
facture il faut remplacer "DevNumber" par "FactNumber"DANS L ARRAY

 

[patricktoulon]

Moi j'ai plus les N/A
je l'avais pas vu c'est une étourderie de ma part

 

[patricktoulon]

re
alors?

 

[alain.pierrephie]

Moi j'ai plus les N/A
je l'avais pas vu c'est une étourderie de ma part

J'ai transformé donc les 2 et ça marche. Faut que je teste le tout mais je pense que je ferais demain ou en début de soirée et je noterais tout mais a mon avis ça devrait être fini. Je teste et je reviens quand j'ai tout testé. Qu'en penses tu