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 !!!

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:

et oui ca fait partie des control qu'il faut ajouter maintenant pour blinder les variable et les valeur
cdbl plante si c'est pas numeric ou si c'est vide donc on place le controle

change cette sub

VB:

'les quatres  boutons d'en bas
Private Sub Ajout_Click()
    Dim Ok As Boolean, DevNumber&, r As Range, critere

    critere = nom <> "" And prenom <> "" And telephone <> "" And mail <> "" And adresse <> ""
    If Not critere Then MsgBox "Veuillez saisir tous les champs SVP!!": Exit Sub
    'sheets("Sauvegarde").Unprotect ("5158")
    Ok = IsDate(DateConsultation.Value)
    If Ok Then
        Set r = Range("Tsauvegarde").ListObject.ListRows.Add.Range
        MsgBox r.Address
        DevNumber = Application.Max(Range("tsauvegarde[N° Devis]")) + 1
        r.Value = Array(nom, CDate(DateConsultation.Value), prenom, DevNumber, telephone, mail, adresse, _
                        designation1, iff(IsNumeric(montant1), CDbl(montant1), ""), _
                        designation2, IIf(IsNumeric(montant2), CDbl(montant2), ""), _
                        designation3, IIf(IsNumeric(montant3), CDbl(montant3), ""))
        With Sheets("devis")
            .Activate
            .Range("j16") = CDate(DateConsultation.Value)
            .[k7] = nom
            .[L10] = prenom
            .[H3] = DevNumber
            .[j13] = adresse
            .[j16] = CDate(DateConsultation.Value)
            .[A21:A23] = Application.Transpose(Array(designation1, designation2, designation3))
            .[M21:M23] = Application.Transpose(Array(montant1, montant2, montant3))

        End With
        'sheets("sauvegarde").Protect Password:="5158"
        If Clientexistant.ListIndex = -1 Then
            Set r = Range("tclient").ListObject.ListRows.Add.Range
            r.Value = Array(nom, prenom, adresse, telephone, mail)
            MsgBox "leclient n'existait pas dans la base de donnée " & vbCrLf & "il a été ajouté "
        End If
        Unload Me
    End If
End Sub

OK ça devrait le faire. Je te remercie beaucoup d'avoir pris de ton temps pour t'occuper de mon gloubi boulga VBA. Je te souhaite une bonne semaine et si j'ai un truc qui cloche et que j'arrive pas a le faire, promis je demande à un pro. Merci encore
alain

patricktoulon · 25 Octobre 2021

hoh c'est pas fini il nous reste le usf facture encore

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:
hoh c'est pas fini il nous reste le usf facture encore

Ha bon ! t'as des trucs à changer sur l'usf facture ? Bon ok tu verras ça demain. Je serai là demain sauf entre 9 et 12h00. A demain

Bernard_XLD · 25 Octobre 2021

Re,

alain.pierrephie à dit:
tu peux changer ce qui te va mieux ou supprimer des trucs qui vont pas. Carte blanche

patricktoulon à dit:
carte blanche t'a dis hein !!!

Là, c'est sûr, vous avez pris un risque !

alain.pierrephie à dit:
Ha bon ! t'as des trucs à changer sur l'usf facture ?

Bonne nuit !

alain.pierrephie · 25 Octobre 2021

Yeahou à dit:
Re,

Là, c'est sûr, vous avez pris un risque !

Bonne nuit !

Vivre prudemment, sans prendre de risques, c'est risquer de ne pas vivre.

patricktoulon · 25 Octobre 2021

@Yeahou il rigole derrière

non l usf facture je n'y ai pas encore touché j'ai peur avrai dire
je pense que je vais faire pareil que les autres
hop page blanche , un pars et ça repart

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:
@Yeahou il rigole derrière
non l usf facture je n'y ai pas encore touché j'ai peur avrai dire
je pense que je vais faire pareil que les autres
hop page blanche , un pars et ça repart

Celui qui n’a pas peur n’a pas de courage.

patricktoulon · 25 Octobre 2021

bon voila la version 4
j'ai encore supprimer 2 userforms devenu inutile
l'usf ajout de client sert pour modifier aussi
si on selectionne un client on peut modifier ses coordonnées
si on tape ça ajoute
j'ai bien entendu apporté les corrections précedemment citées dans mes précédents messages concernant l'usf devis

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:
bon voila la version 4
j'ai encore supprimer 2 userforms devenu inutile
l'usf ajout de client sert pour modifier aussi
si on selectionne un client on peut modifier ses coordonnées
si on tape ça ajoute
j'ai bien entendu apporté les corrections précedemment citées dans mes précédents messages concernant l'usf devis

ok je regarde

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:
bon voila la version 4
j'ai encore supprimer 2 userforms devenu inutile
l'usf ajout de client sert pour modifier aussi
si on selectionne un client on peut modifier ses coordonnées
si on tape ça ajoute
j'ai bien entendu apporté les corrections précedemment citées dans mes précédents messages concernant l'usf devis

Je remplie et ça me fait ça je fait OK et ... débogage
dur dur le VBA alors imagine pour moi.

patricktoulon · 25 Octobre 2021

oui c'est uncontrol pour voir si la ligne est bien ciblée
on peut l'enlever

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:
oui c'est uncontrol pour voir si la ligne est bien ciblée
on peut l'enlever

c'est le débogage qui est génant en fait

patricktoulon · 25 Octobre 2021

quel debogage?????
si tu me dis pas ou ça coince ça va pas être facile

alain.pierrephie · 25 Octobre 2021

patricktoulon à dit:
quel debogage?????
si tu me dis pas ou ça coince ça va pas être facile

Punaise oui désolé...

r.Value = Array(nom, CDate(DateConsultation.Value), prenom, DevNumber, telephone, mail, adresse, _
designation1, IIf(IsNumeric(montant1.Value), CDbl(montant1.Value), ""), _
designation2, IIf(IsNumeric(montant2.Value), CDbl(montant2.Value), ""), _
designation3, IIf(IsNumeric(montant3.Value), CDbl(montant3.Value), ""))

patricktoulon · 25 Octobre 2021

bon je verrais demain là je suis crevé je vois plus tellement clair là
c'est vrai que ce fichier a un comportement bizarre
des erreur aléatoires sans raisons va savoir pourquoi

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

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Pièces jointes

alain.pierrephie

XLDnaute Occasionnel

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

alain.pierrephie

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires