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

alain.pierrephie · 25 Octobre 2021

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 · 31 Octobre 2021

tu es comme garsimore toi un coup camache' un coup ca mach'pas !!!

ChTi160 · 31 Octobre 2021

Re
as tu vu ce fils.
Le lien ici
Jean marie

patricktoulon · 31 Octobre 2021

et ben j'ai le regret de te dire que tu a un office cracké en français
sauf que les cracks ne crack pas tout
je connais bien j'en avais un

patricktoulon · 31 Octobre 2021

interessanr jean-marie

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:
et ben j'ai le regret de te dire que tu a un office cracké en français
sauf que les cracks ne crack pas tout
je connais bien j'en avais un

Bon ben tant pis en espérant que ça n'influera pas sur d'autres choses mais apparemment tout marche bien. Merci de t'être penché sur ça.
Te souhaitant une bonne soirée l'ami
A+

patricktoulon · 31 Octobre 2021

la solution qui me plait pas m'enfin...
on formate la colonne a chaque fois que l'on ajoute avec le format magic
facture

VB:

R.Resize(, 13).Value = Array(nom, CLng(CDate(DateConsultation.Value)), prenom, FactNumber, telephone, mail, adresse, _
                        designation1, m(1), designation2, m(2), designation3, m(3))
Sheets("SauvegardeF").Columns("B:B").Selection.NumberFormat = "m/d/yyyy"

devis

VB:

 Set R = Range("TsauvegardeD").ListObject.ListRows.Add.Range
        'MsgBox r.Address
         R.Resize(, 13).Value = Array(nom, CLng(CDate(DateConsultation.Value)), prenom, DevNumber, telephone, mail, adresse, _
                        designation1, m(1), designation2, m(2), designation3, m(3))
   Sheets("SauvegardeD").Columns("B:B").Selection.NumberFormat = "m/d/yyyy"

et voilà

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:

la solution qui me plait pas m'enfin...
on formate la colonne a chaque fois que l'on ajoute
facture

VB:

R.Resize(, 13).Value = Array(nom, CLng(CDate(DateConsultation.Value)), prenom, FactNumber, telephone, mail, adresse, _
                        designation1, m(1), designation2, m(2), designation3, m(3))
Sheets("SauvegardeF").Columns("B:B").Selection.NumberFormat = "m/d/yyyy"

devis

VB:

 Set R = Range("TsauvegardeD").ListObject.ListRows.Add.Range
        'MsgBox r.Address
         R.Resize(, 13).Value = Array(nom, CLng(CDate(DateConsultation.Value)), prenom, DevNumber, telephone, mail, adresse, _
                        designation1, m(1), designation2, m(2), designation3, m(3))
   Sheets("SauvegardeD").Columns("B:B").Selection.NumberFormat = "m/d/yyyy"

et voilà

Pour le devis débogage ici --->
Sheets("SauvegardeD").Columns("B:B").Selection.NumberFormat = "m/d/yyyy"

patricktoulon · 31 Octobre 2021

excuse moi je sui allé un peu vite
enleve le ".Selection"

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:
excuse moi je sui allé un peu vite
enleve le ".Selection"

Waou!!! punaise ça marche impeccable.
Une fois de plus tu m'épates, de lapin de canard de tout ce qui marche....
Tu lâches jamais toi !!!! quand t'as un os quitte a y passer la journée ....
Plus sérieusement merci énormément Patrick encore un défi relevé et gagnant pour toi.
Bonne soirée l'ami et mille mercis
Alain

patricktoulon · 31 Octobre 2021

oui normalement on devrait pas formater a chaque fois
mais c'est vrai que les TS sont un peu particuliers et en plus tu a un office pipé c'est la panade
bref
dans le semaine tu recevra les msj pour compta + charges RSI ou urssaf c'est pareil
tu connais les taux actuel toi ?
taux sur la revente en l’état ou transformée (marchandise)
taux sur les prestation
taxe formation si ta région l'applique
taxe pollution si ta region l'applique
et autre peut être

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:
oui normalement on devrait pas formater a chaque fois
mais c'est vrai que les TS sont un peu particuliers et en plus tu a un office pipé c'est la panade
bref
dans le semaine tu recevra les msj pour compta + charges RSI ou urssaf c'est pareil
tu connais les taux actuel toi ?
taux sur la revente en l’état ou transformée (marchandise)
taux sur les prestation
taxe formation si ta région l'applique
taxe pollution si ta region l'applique
et autre peut être

Non je connais pas les taux pour un auto entrepreneur

patricktoulon · 31 Octobre 2021

je ferait une recherche ou je demanderais a l’accueil urssaf je dois y aller de toute façon

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:
je ferait une recherche ou je demanderais a l’accueil urssaf je dois y aller de toute façon

ok d'accord là je suis inculte.

Dis moi j'ai fait le devis et ça marche impèc
j'ai un souci avec facture qui me fait débogage sur (j'ai e,levé selection aussi) --->

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

patricktoulon · 31 Octobre 2021

bizarre les bugs chez toi
tu devrais faire une réparation d'office
mais si tu n'a pas le disque ou l'iso ou un compte sur MS je vois pas comment t'aider là
c'est difficile de travailler comme ça
c'est quelle version d'office que tu utilise ?

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:
bizarre les bugs chez toi
tu devrais faire une réparation d'office
mais si tu n'a pas le disque ou l'iso ou un compte sur MS je vois pas comment t'aider là
c'est difficile de travailler comme ça
c'est quelle version d'office que tu utilise ?

Sur ce que tu m'as donné il y a une ligne en + sur devis c'est a dire celle là
Set R = Range("TsauvegardeD").ListObject.ListRows.Add.Range

Est ce important ou pas ?

alain.pierrephie · 31 Octobre 2021

patricktoulon à dit:
bizarre les bugs chez toi
tu devrais faire une réparation d'office
mais si tu n'a pas le disque ou l'iso ou un compte sur MS je vois pas comment t'aider là
c'est difficile de travailler comme ça
c'est quelle version d'office que tu utilise ?

OFFICE 2007 OU 2010 D'après madame

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

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

alain.pierrephie

XLDnaute Occasionnel

Discussions similaires