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]

ok

 

[alain.pierrephie]

ok

Dans "Faire une facture" ---> erreur de compilation variable non définie = débogage ---->
t = Array(montant1, montant2, montant3)

Donc je ne peux pas passer à la suite c'est a dire a réimprimer et enregistrer une facture



-- Pointer le reglement d'une facture --->quand je choisi un mode de paiement il y a débogage ----->
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub


Voilà ce que j'ai détecté, je pense que c'est pas grand chose a modifier pour toi. Je testerai a nouveau quand tu te seras occupé de rectifier
Merci Patrick

 

[patricktoulon]

met ,T a la fin de la ligne "Dim....."

 

[alain.pierrephie]

met ,T a la fin de la ligne "Dim....."

OK je suis sorti du dossier mais il tarde a sortir j'attend un peu et vois ça. Je comprend pas pourquoi il est long a sortir

 

[patricktoulon]

heu... j de quoi qui est long a sortir ??
tu l'a ou pas ??

 

[alain.pierrephie]

OK je suis sorti du dossier mais il tarde a sortir j'attend un peu et vois ça. Je comprend pas pourquoi il est long a sortir

J'ai fait "QUITTER" et là ça tourne depuis 2 minutes, j'attend encore un peu sinon je fais "Ctrl Alt Sppr"

 

[patricktoulon]

tu peux le faire

 

[patricktoulon]

tout les userforms sont en option explicit
il est difficile d'imaginer que j'ai pu oublier une variable ça aurait planté chez moi aussi
mais bon je vais regarder ça c'est dans quel userform que ca fait ça???????
soit précis des fois tu ne l'ai pas

 

[patricktoulon]

ok j'ai trouvé c'est dans uffacture

'les quatres  boutons d'en bas
Private Sub Ajout_Click()
    Dim Ok As Boolean, FactNumber&, R As Range, critere, m(1 To 3), reponse, t

 

[patricktoulon]

re
LA VIRGULE!!!!!!!!!!!!!
il manquait I aussi

'les quatres  boutons d'en bas
Private Sub Ajout_Click()
    Dim Ok As Boolean, FactNumber&, R As Range, critere, m(1 To 3), reponse, t, I&

 

[alain.pierrephie]

re
LA VIRGULE!!!!!!!!!!!!!
il manquait I aussi

'les quatres  boutons d'en bas
Private Sub Ajout_Click()
    Dim Ok As Boolean, FactNumber&, R As Range, critere, m(1 To 3), reponse, t, I&

ok ça y est c'est bon ça marche, purée je t'ai un peu vénère on dirait. désolé chuis juste un peu nullos

 

[alain.pierrephie]

ok ça y est c'est bon ça marche, purée je t'ai un peu vénère on dirait. désolé chuis juste un peu nullos

Reste plus que :
- Pointer le reglement d'une facture --->quand je choisi un mode de paiement il y a débogage ----->
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub

 

[patricktoulon]

disons que c'est la base archi débutant à savoir
les variable déclarée sur la meme ligne "Dim" doivent etre séparée par une virgule

je m'énerve un peu je suis sur 3 fins de projet en même temps

ok je regarde le règlement

 

[alain.pierrephie]

disons que c'est la base archi débutant à savoir
les variable déclarée sur la meme ligne "Dim" doivent etre séparée par une virgule

je m'énerve un peu je suis sur 3 fins de projet en même temps

ok je regarde le règlement

Tu peux faire une pose aussi ou reprendre demain si t'es trop occupé, je comprend que tu doive en avoir ras la casquette de mon truc. On a encore jusqu'a mardi prochain. Ya pas le feu.
Juste une question, tu es programmeur de métier pour faire ce genre de programme ?

 

[alain.pierrephie]

disons que c'est la base archi débutant à savoir
les variable déclarée sur la meme ligne "Dim" doivent etre séparée par une virgule

je m'énerve un peu je suis sur 3 fins de projet en même temps

ok je regarde le règlement

Quand je fais réImprimer une facture j'obtiens une feuille vierge

Pour la réimpression du DEVIS ça marche