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]

il te faut un bouton là aussi sinon tu a la croix en haut elle marche tres bien

Rôôô punaise la croix, j'avais zappé

 

[patricktoulon]

oui tu peux créer un bouton et unload Me si tu veux

 

[patricktoulon]

alors tout marche ?

 

[alain.pierrephie]

oui tu peux créer un bouton et unload Me si tu veux

Sylvain est encore plus nul que moi, c'est dire. Me reste a faire le 2éme problème imprimdocument. Me rappelle déjà plus !!! je vais voir

 

[patricktoulon]

j'oubliais
le calendrier re fonctionne au moins sur cette version 6 dis moi
te casse pas la tète (je l'ai fait pour toi)
tu sélectionne tout le code tu supprime et tu colle l'autre c'est pas compliqué

 

[patricktoulon]

bon je bais me faire un café

 

[alain.pierrephie]

bon je bais me faire un café

OK je me bagarre avec imprime document

 

[patricktoulon]

a bon
vide le code et colle celui du post138

 

[alain.pierrephie]

ça y est tu a changé le code ???
ben maintenant change celui de imprimdocument au complet pour celui ci
je viens de tester on est bon j'avais meme oublier la bascule devis/facture avec la variable "F"

Option Explicit

Public mode As String
Public document As String


Private Sub UserForm_Activate()
    Dim rname$, t
    If document = "facture" Then rname = "tsauvegardeF" Else rname = "tsauvegardeD"
    If mode = "pdf" Then
        BtImprim.Caption = "en pdf"
        Titre.Caption = "faire un PDF " & document
    Else
        Titre.Caption = "ré Imprimer " & document
        BtImprim.Caption = "Imprimmer"
    End If
    t = Range(rname).Value
    With Me.liste
        .ColumnCount = 10 ' UBound(t, 2)
        .ColumnWidths = "70;70;70;70;0;0;0;0;0;0;0;0;0"
        If UBound(t) = 1 Then liste.Column = Application.Transpose(t) Else liste.List = t
    End With
End Sub

Private Sub BtClose_Click(): Unload Me: End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
clearPageDevis
ClearPageFacture
End Sub

Private Sub BtImprim_Click()
    Dim t, plage As Range, col, cel As Range, F As Worksheet, I&
    With liste
        If .ListIndex = -1 Then Exit Sub
        t = Application.Index(.List, .ListIndex + 1, 0)
    End With
    If document = "devis" Then Set F = Feuil3 Else Set F = Feuil4
    Set plage = F.[H3,K7,L10,j13,j16,A21,M21,A22,M22,A23,M23]
    col = Array(0, 4, 1, 3, 7, 2, 8, 9, 10, 11, 12, 13)
    For Each cel In plage
        I = I + 1
        If LCase(Replace(t(col(I)), "€", "")) Like "*[A-z|/]*" Or t(col(I)) = "" Then cel.Value = CStr(t(col(I))) Else cel = CDbl(t(col(I)))
    Next
    Feuil3.Calculate
    Feuil4.Calculate
     If mode <> "pdf" Then
        F.PrintOut
      
     Else
        If document = "devis" Then createdevisPDF Else CreateFacturePDF
    End If
    mode = "": document = ""
End Sub

voila on devrait être bons là

Rôôô punaise j'ai réussit j'ai cru que j'allais me faire dessus quand j'ai tout supprimé

 

[patricktoulon]

ha !! a la bonne heure
bon alors
teste maintenant

 

[alain.pierrephie]

ha !! a la bonne heure
bon alors
teste maintenant

Me reste a faire pour le calendrier mais j'ai pas saisi ta consigne

 

[alain.pierrephie]

j'oubliais
le calendrier re fonctionne au moins sur cette version 6 dis moi
te casse pas la tète (je l'ai fait pour toi)
tu sélectionne tout le code tu supprime et tu colle l'autre c'est pas compliqué

Quel autre code j'ai rien reçu au sujet de calendar

 

[patricktoulon]

holala non!!!!!!!!!!! ne touche pas au calendar on est dans un codage un peu plus compliqué là je te perds définitivement

normalement il fonctionne
tu click avec le bouton droite de la souris sur le textbox dans ufdevis ou uffacture c'est tout c'est codé tu touche a rien je te demande juste d'essayer

 

[patricktoulon]

alors?

 

[alain.pierrephie]

Me reste a faire pour le calendrier mais j'ai pas saisi ta consigne

DAns "transférer un devis en facture" j'ai ça dans les moyens de paiement #N/A ce qui fait que lorsque je veux pointer le paiement j'ai le débogage. C'est le souci que j'ai eu tout a l'heure et que j'ai remarqué en cherchant.



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 €

Cheque

MARCHAND

10/20/2021

ALBERT

2

02 58 79 45 69

albert@

33 rue du pinard 45 orleans

fgfsddf

777,00 €

#N/A

#N/A