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

A

alain.pierrephie

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
patricktoulon

patricktoulon

XLDnaute Barbatruc
non pas du tout
je suis un parfait autodidacte
j'aime les choses carrés c'est presque une obsession😅😅

je viens de teste le userform pointageReglement et je n'ai pas d'erreur
je le met en option explicit


met ce code au complet a la place de celui qui y est dans le userform pointageReglement
VB: 
Option Explicit
Dim R As Range
Private Sub liste_Click()
Set R = Range("tsauvegardeF").ListObject.ListRows(liste.ListIndex + 1).Range
End Sub

Private Sub modeP_Change()
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub
R.Cells(14) = modeP
Range("pointagereglement").ListObject.ListRows(liste.ListIndex + 1).Range(1) = Date
End Sub

Private Sub UserForm_Activate()
  Dim t
  t = Range("tSauvegardeF").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
modeP.List = Array("Espece", "Cheque", "Carte bleue")
End Sub
 
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
patricktoulon à dit:
non pas du tout
je suis un parfait autodidacte
j'aime les choses carrés c'est presque une obsession😅😅

je viens de teste le userform pointageReglement et je n'ai pas d'erreur
je le met en option explicit


met ce code au complet a la place de celui qui y est dans le userform pointageReglement
VB: 
Option Explicit
Dim R As Range
Private Sub liste_Click()
Set R = Range("tsauvegardeF").ListObject.ListRows(liste.ListIndex + 1).Range
End Sub

Private Sub modeP_Change()
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub
R.Cells(14) = modeP
Range("pointagereglement").ListObject.ListRows(liste.ListIndex + 1).Range(1) = Date
End Sub

Private Sub UserForm_Activate()
  Dim t
  t = Range("tSauvegardeF").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
modeP.List = Array("Espece", "Cheque", "Carte bleue")
End Sub
Cliquez pour agrandir...
ok je m'y met
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
ç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"
Code: 
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à
 
Dernière édition:
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
patricktoulon à dit:
non pas du tout
je suis un parfait autodidacte
j'aime les choses carrés c'est presque une obsession😅😅

je viens de teste le userform pointageReglement et je n'ai pas d'erreur
je le met en option explicit


met ce code au complet a la place de celui qui y est dans le userform pointageReglement
VB: 
Option Explicit
Dim R As Range
Private Sub liste_Click()
Set R = Range("tsauvegardeF").ListObject.ListRows(liste.ListIndex + 1).Range
End Sub

Private Sub modeP_Change()
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub
R.Cells(14) = modeP
Range("pointagereglement").ListObject.ListRows(liste.ListIndex + 1).Range(1) = Date
End Sub

Private Sub UserForm_Activate()
  Dim t
  t = Range("tSauvegardeF").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
modeP.List = Array("Espece", "Cheque", "Carte bleue")
End Sub
Cliquez pour agrandir...
Avant de faire une bétise:
dans pointage règlement j'en ai 3 je les écrase tous pour le remplacer par cet unique que tu m'as envoyé ?

Les 3 existants


Dim R As Range
Private Sub liste_Click()
Set R = Range("tsauvegardeF").ListObject.ListRows(liste.ListIndex + 1).Range
End Sub

Private Sub modeP_Change()
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub
R.Cells(14) = modeP
Range("pointagereglement").ListObject.ListRows(liste.ListIndex + 1).Range(1) = Date
End Sub

Private Sub UserForm_Activate()
t = Range("tSauvegardeF").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
modeP.List = Array("Espece", "Cheque", "Carte bleue")
End Sub
 
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
patricktoulon à dit:
non pas du tout
je suis un parfait autodidacte
j'aime les choses carrés c'est presque une obsession😅😅

je viens de teste le userform pointageReglement et je n'ai pas d'erreur
je le met en option explicit


met ce code au complet a la place de celui qui y est dans le userform pointageReglement
VB: 
Option Explicit
Dim R As Range
Private Sub liste_Click()
Set R = Range("tsauvegardeF").ListObject.ListRows(liste.ListIndex + 1).Range
End Sub

Private Sub modeP_Change()
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub
R.Cells(14) = modeP
Range("pointagereglement").ListObject.ListRows(liste.ListIndex + 1).Range(1) = Date
End Sub

Private Sub UserForm_Activate()
  Dim t
  t = Range("tSauvegardeF").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
modeP.List = Array("Espece", "Cheque", "Carte bleue")
End Sub
Cliquez pour agrandir...
Débogage ici
If R.Cells(14) <> "" Then MsgBox " cette facture a déjà été pointée": Exit Sub
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
quand tu clique sur debogage le message te dis quoi ????
ecoute regarde
demo.gif
 
Vote positif 0 Vote négatif

Discussions similaires

E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
353
escudo
E
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
1 K
pelerin65
P
C
  • Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
707
TooFatBoy
TooFatBoy
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
595
Xender
X
M
  • Question
Microsoft 365 N'afficher que la dernière ligne d'un tableau dans listbox
Réponses
9
Affichages
415
meyscal
M
O
  • Question
XL 2013 Arrêter une Macro si une condition n'est pas remplie (if... then... endif...)
Réponses
2
Affichages
1 K
onyirimba
O
G
  • Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
750
vgendron
vgendron
B
  • Question
XL 2010 Alimenter une valeur issue d'une base de donnée dans une textbox crée dynamiquement avec variable
Réponses
6
Affichages
1 K
Bob O' Deville
B
C
  • Question
XL 2019 Je rencontre une erreur 9 : "L'indice n'appartient pas à la sélection"
Réponses
3
Affichages
1 K
chris4785478547
C
A
  • Résolu(e)
XL 2013 Ajouter des formules dans un tableau de dimensions variables
2 3 4
Réponses
48
Affichages
4 K
Ananas94
A

Membres actuellement en ligne

Aucun membre en ligne actuellement.
0 membres et 29 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 413
Messages
2 088 199
Membres
103 763
dernier inscrit
p.michaux