1 choix sur 4 propositions

Question

Bonjour,
je fais un petit programme pour gerer les finances d un club, je bute sur une fonction de choix ! j ai dans mon formulaire 4 boutonoption ( cheque, virement, prelevemnt, especes) tout fonctionne bien dans mon formulaire mais ça coince quand je veux valider pour envoyer sur ma feuille excel
ci joint le debut de mes codes
Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
    If Me.TXT_Date.Text = "" Then
        MsgBox "Vous devez entrer une date"
        Me.TXT_Date.SetFocus
        Exit Sub
    End If
    
    'On teste la saisie de la pieceN°...
    If Me.TXT_PieceN°.Text = "" Then
        MsgBox "Vous devez entrer un numero de piece"
        Me.TXT_PieceN°.SetFocus
        Exit Sub
    End If
    
    'On teste la saisie de l'editeur...
    If Me.ComboBox_Editeur.Text = "" Then
        MsgBox "Vous devez entrer un editeur"
        Me.ComboBox_Editeur.SetFocus
        Exit Sub
    End If
    
             'On teste la saisie du N° de cheque...
                If Me.TXT_ChequeN°.Text = "" Then
                MsgBox "Vous devez entrer un N° de chèque"
                Me.TXT_ChequeN°.SetFocus
                Exit Sub
    
            'On teste la saisie du Prelevement...
                ElseIf Me.TXT_Prelevement.Text = "" Then
                MsgBox "Vous devez entrer Prelevement"
                Me.TXT_Prelevement.SetFocus
                Exit Sub
            
            'On teste la saisie du virement...
                ElseIf Me.TXT_Virement.Text = "" Then
                MsgBox "Vous devez entrer virement"
                Me.TXT_Virement.SetFocus
                Exit Sub
            'On teste la saisie d' especes...
                ElseIf Me.TXT_Especes.Text = "" Then
                MsgBox "Vous devez entrer Especes"
                Me.TXT_Especes.SetFocus
                Exit Sub
            
            End If
    
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Prelevement.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    
    Unload Me 'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture
End Sub
merci de votre aide
Gilles

cs_Exploreur · Answer

Salut,

Faudra revoir ta "vérification" de tes conditions, car là tu ne fais que le test sur des champs vide....comme pour la date...car si je met "toto" la condition est vrai, et je passe au reste...pour la date regarde du côté de  : IsDate et voir dans certains cas : Format

A+
Exploreur

 Linux a un noyau, Windows un pépin 

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire
mettez comme parrain : exploreur

LIBRE_MAX · Answer

Bonsoir, si tu utilises des Options, c' est parceque tu ne veux prendre en compte qu' un mode de payement parmi les 4. Tu dois donc tester d' abord sue le choix, ensuite tester sur, et uniquement sur, les controls correspondants à cette option. Car si le choix est "espèces", pourquoi tester sur le numéro de chèque, prèlèvement et autres ? (qui doivent d' ailleur rester vides dans ce cas) If Option1=True Then 'espèces If Me.TXT_Especes.Text = "" Then MsgBox "Vous devez entrer Especes" Me.TXT_Especes.SetFocus Exit Sub End If ElseIf Option2.Value=True Then 'chèque If Me.TXT_ChequeN°.Text = "" Then MsgBox "Vous devez entrer un N° de chèque" Me.TXT_ChequeN°.SetFocus Exit Sub End If ElseIf Option3.Value=True Then 'Prélèvement If Me.TXT_Prelevement.Text = "" Then MsgBox "Vous devez entrer Prelevement" Me.TXT_Prelevement.SetFocus Exit Sub End If ElseIf Option4.Value=True Then 'Virement If Me.TXT_Virement.Text = "" Then MsgBox "Vous devez entrer virement" Me.TXT_Virement.SetFocus Exit Sub End If End If

... Y'en a même qui disent qu'ils l'ont vu voler.

/P>

us_30 · Answer

Bonsoir,

Peux-tu préciser ta question : "mais ça coince quand je veux valider pour envoyer sur ma feuille excel"

Où est-ce que cela coince ?

Car en terme de logique de programmation (hors test insuffisant, comme dit précédemment (salut à tous), je ne vois pas de véritable problème, ni d'envoi sur Excel, hormis les dernières lignes...

Amicalement,
Us.

jrivet · Answer

Salut, Sans revenir sur ce qui a été dit, voici une petite version en couleur et simplifiée du code. PS: ou en est le problème d'hier? avec les Textbox Grisé? Private Function TestText(Obj As Object, Txt As String) As Boolean TestText = True If Obj.Text = vbNullString Then Call MsgBox("Vous devez entrer " & Txt) Obj.SetFocus TestText = False End If End Function

Private Sub BTN_Valider_Click() 'On teste la saisie de la date... If Not TestText(TXT_Date, "une date") Then Exit Sub 'On teste la saisie de la pieceN... If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub 'On teste la saisie de l'editeur... If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub 'On teste la saisie du N de cheque si c'est le paiement par chèque choisi If BTN_Cheque.Value And Not TestText(TXT_ChequeN°, "un numéro de chèque") Then Exit Sub 'On teste la saisie du prélèvement si c'est le paiement par Prélèvement choisi If BTN_Prelevement.Value And Not TestText(TXT_Prelevement, "Prélèvement") Then Exit Sub 'On teste la saisie du Virement si c'est le paiement par Virement choisi If BTN_Virement.Value And Not TestText(TXT_Virement, "Virement") Then Exit Sub 'On teste la saisie des Especes si c'est le paiement par Especes choisi If BTN_Especes.Value And Not TestText(TXT_Especes, "Especes") Then Exit Sub Range("Comptes_2008!B65536").end(xlUp).Offset(1, 0).Value = TXT_Date.Value Range("Comptes_2008!C65536").end(xlUp).Offset(1, 0).Value = TXT_PieceN°.Value Range("Comptes_2008!D65536").end(xlUp).Offset(1, 0).Value = TXT_ChequeN°.Value Range("Comptes_2008!D65536").end(xlUp).Offset(1, 0).Value = TXT_Prelevement.Value Range("Comptes_2008!E65536").end(xlUp).Offset(1, 0).Value = ComboBox_Editeur.Value 'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture Call Unload(Me) End Sub

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

Gil369 · Answer

Bonjour a tous et merci de vos reponses, je suis un vrai novice ( je ne connaisais rien a vba il y a 4 jours ) et inscrit sur ce forum depuis hier.
LIBRE_MAX,  j ai copie tes codes, mais j ai "erreur de compilation, variable non definie" sur option1. Je suis au debut de mon projet et avance petit a petit. jusqu a present je suis arrete sur mon frame (cheque, prelevemnt, virement, especes) j aimerai aussi pouvoir griser les 3 textbox verrouillees. Je ne sais pas si ça se fait, mais je joins l integralite des codes de mon formulaire,  en bleu ce dont je n ai pas encore codé. merci d avance
A+ Gilles

Private Sub Image1_Triathlon_Laneuveville_Click() 
   End Sub


Private Sub INT_Formulaire_de_saisies_Click() 
   End Sub


Private Sub Calendar1_Click()
    TXT_Date.Value = Calendar1.Value
         End Sub


Private Sub INT_Date_Click() 
   End Sub
    
 Private Sub TXT_Date_Change()
      End Sub


Private Sub INT_Piece_Click()
   End Sub
    
Private Sub TXT_PieceN°_Change()
   End Sub


Private Sub INT_Editeur_Click()
   End Sub
    
Private Sub Combobox_Editeur_Initialize()
    Dim i As Byte
     For i = 1 To 100
        ComboBox_Editeur.AddItem "Ligne" & i
    Next i
      End Sub


Private Sub Frame_Nature_Click()
Private Sub DisableControls()
   
   TXT_ChequeN°.Enabled = BTN_Cheque.Value
    TXT_Prelevement.Enabled = BTN_Prelevement.Value
    TXT_Virement.Enabled = BTN_Virement.Value
    TXT_Especes.Enabled = BTN_Especes.Value
         End Sub


Private Sub BTN_Cheque_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_ChequeN°_Click()
          End Sub
                
                Private Sub TXT_ChequeN°_Change()
                   End Sub


Private Sub BTN_Prelevement_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_Prelevement_Click()
             End Sub
                
                Private Sub TXT_Prelevement_Change()
                     End Sub


Private Sub BTN_Virement_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_Virement_Click()
             End Sub
                
                Private Sub TXT_Virement_Change()
                     End Sub


Private Sub BTN_Especes_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_Especes_Click()
            End Sub
                
                Private Sub TXT_Especes_Change()
                     End Sub



Private Sub INT_Categorie_Click()
   End Sub
    
    Private Sub ComboBox_Categorie_Change()
         End Sub



Private Sub INT_Tireur_Click()
   End Sub
    
    Private Sub ComboBox_Tireur_Change()
       End Sub



Private Sub INT_Libelle_Click()
      End Sub
   
 Private Sub ComboBox_Libelle_Change()
    End Sub



Private Sub CheckBoxDebit_Click()
   End Sub



Private Sub CheckBox_Credit_Click()
   End Sub



Private Sub INT_Montant_Click()
   End Sub
    
    Private Sub TXT_Montant_Change()
       End Sub


Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
    If Me.TXT_Date.Text = "" Then
        MsgBox "Vous devez entrer une date"
        Me.TXT_Date.SetFocus
        Exit Sub
    End If
    
    'On teste la saisie de la pieceN°...
    If Me.TXT_PieceN°.Text = "" Then
        MsgBox "Vous devez entrer un numero de piece"
        Me.TXT_PieceN°.SetFocus
        Exit Sub
    End If
    
    'On teste la saisie de l'editeur...
    If Me.ComboBox_Editeur.Text = "" Then
        MsgBox "Vous devez entrer un editeur"
        Me.ComboBox_Editeur.SetFocus
        Exit Sub
    End If
    
    
            If Option1.Value = True Then 'chèque
            If Me.TXT_ChequeN°.Text = "" Then
            MsgBox "Vous devez entrer un N° de chèque"
            Me.TXT_ChequeN°.SetFocus
                Exit Sub
        End If
        
            ElseIf Option2.Value = True Then 'Prélèvement
            If Me.TXT_Prelevement.Text = "" Then
            MsgBox "Vous devez entrer Prelevement"
            Me.TXT_Prelevement.SetFocus
                Exit Sub
                    End If


            ElseIf Option3.Value = True Then 'Virement
            If Me.TXT_Virement.Text = "" Then
             MsgBox "Vous devez entrer virement"
            Me.TXT_Virement.SetFocus
                Exit Sub
                    End If


            ElseIf Option4 = True Then 'espèces
            If Me.TXT_Especes.Text = "" Then
            MsgBox "Vous devez entrer Especes"
             Me.TXT_Especes.SetFocus
                Exit Sub
                    End If


    End If
          
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    
    Unload Me 'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture


End Sub


Private Sub LanceFRM_Accueil_Click()
    FRM_Accueilshow
         End Sub


Private Sub BTN_Fermer_Click()
   Unload Me
         End Sub


Private Sub BTN_Annuler_Click()
    Unload
         End Sub


Private Sub Label1_Click()


End Sub




Private Sub UserForm_Click()


End Sub

Gil369 · Answer

Bonjour a tous et merci de vos reponses, je suis un vrai novice ( je ne connaisais rien a vba il y a 4 jours ) et inscrit sur ce forum depuis hier.
LIBRE_MAX,  j ai copie tes codes, mais j ai "erreur de compilation, variable non definie" sur option1. Je suis au debut de mon projet et avance petit a petit. jusqu a present je suis arrete sur mon frame (cheque, prelevemnt, virement, especes) j aimerai aussi pouvoir griser les 3 textbox verrouillees. Je ne sais pas si ça se fait, mais je joins l integralite des codes de mon formulaire,  en bleu ce dont je n ai pas encore codé. merci d avance
A+ Gilles

Private Sub Image1_Triathlon_Laneuveville_Click() 
   End Sub


Private Sub INT_Formulaire_de_saisies_Click() 
   End Sub


Private Sub Calendar1_Click()
    TXT_Date.Value = Calendar1.Value
         End Sub


Private Sub INT_Date_Click() 
   End Sub
    
 Private Sub TXT_Date_Change()
      End Sub


Private Sub INT_Piece_Click()
   End Sub
    
Private Sub TXT_PieceN°_Change()
   End Sub


Private Sub INT_Editeur_Click()
   End Sub
    
Private Sub Combobox_Editeur_Initialize()
    Dim i As Byte
     For i = 1 To 100
        ComboBox_Editeur.AddItem "Ligne" & i
    Next i
      End Sub


Private Sub Frame_Nature_Click()
Private Sub DisableControls()
   
   TXT_ChequeN°.Enabled = BTN_Cheque.Value
    TXT_Prelevement.Enabled = BTN_Prelevement.Value
    TXT_Virement.Enabled = BTN_Virement.Value
    TXT_Especes.Enabled = BTN_Especes.Value
         End Sub


Private Sub BTN_Cheque_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_ChequeN°_Click()
          End Sub
                
                Private Sub TXT_ChequeN°_Change()
                   End Sub


Private Sub BTN_Prelevement_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_Prelevement_Click()
             End Sub
                
                Private Sub TXT_Prelevement_Change()
                     End Sub


Private Sub BTN_Virement_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_Virement_Click()
             End Sub
                
                Private Sub TXT_Virement_Change()
                     End Sub


Private Sub BTN_Especes_Click()
    Call DisableControls
         End Sub
        
        Private Sub INT_Especes_Click()
            End Sub
                
                Private Sub TXT_Especes_Change()
                     End Sub



Private Sub INT_Categorie_Click()
   End Sub
    
    Private Sub ComboBox_Categorie_Change()
         End Sub



Private Sub INT_Tireur_Click()
   End Sub
    
    Private Sub ComboBox_Tireur_Change()
       End Sub



Private Sub INT_Libelle_Click()
      End Sub
   
 Private Sub ComboBox_Libelle_Change()
    End Sub



Private Sub CheckBoxDebit_Click()
   End Sub



Private Sub CheckBox_Credit_Click()
   End Sub



Private Sub INT_Montant_Click()
   End Sub
    
    Private Sub TXT_Montant_Change()
       End Sub


Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
    If Me.TXT_Date.Text = "" Then
        MsgBox "Vous devez entrer une date"
        Me.TXT_Date.SetFocus
        Exit Sub
    End If
    
    'On teste la saisie de la pieceN°...
    If Me.TXT_PieceN°.Text = "" Then
        MsgBox "Vous devez entrer un numero de piece"
        Me.TXT_PieceN°.SetFocus
        Exit Sub
    End If
    
    'On teste la saisie de l'editeur...
    If Me.ComboBox_Editeur.Text = "" Then
        MsgBox "Vous devez entrer un editeur"
        Me.ComboBox_Editeur.SetFocus
        Exit Sub
    End If
    
    
            If Option1.Value = True Then 'chèque
            If Me.TXT_ChequeN°.Text = "" Then
            MsgBox "Vous devez entrer un N° de chèque"
            Me.TXT_ChequeN°.SetFocus
                Exit Sub
        End If
        
            ElseIf Option2.Value = True Then 'Prélèvement
            If Me.TXT_Prelevement.Text = "" Then
            MsgBox "Vous devez entrer Prelevement"
            Me.TXT_Prelevement.SetFocus
                Exit Sub
                    End If


            ElseIf Option3.Value = True Then 'Virement
            If Me.TXT_Virement.Text = "" Then
             MsgBox "Vous devez entrer virement"
            Me.TXT_Virement.SetFocus
                Exit Sub
                    End If


            ElseIf Option4 = True Then 'espèces
            If Me.TXT_Especes.Text = "" Then
            MsgBox "Vous devez entrer Especes"
             Me.TXT_Especes.SetFocus
                Exit Sub
                    End If


    End If
          
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    
    Unload Me 'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture


End Sub


Private Sub LanceFRM_Accueil_Click()
    FRM_Accueilshow
         End Sub


Private Sub BTN_Fermer_Click()
   Unload Me
         End Sub


Private Sub BTN_Annuler_Click()
    Unload
         End Sub


Private Sub Label1_Click()


End Sub




Private Sub UserForm_Click()


End Sub

Gil369 · Answer

Salut Julien,
je viens de voir ta proposition, je dois m absenter ce matin mais je reviens vite essayer ta version et te tiens au courant, j ai posté plus haut mon formulaire entier sans savoir si ça se fait, ni les conventions de ce site !
A+
Gilles

jrivet · Answer

Re, Petite version en couleur avec quelques COMMENTAIRES importants. QUAND tu as une erreur comme celle ci; "erreur de compilation, variable non definie" sur option1 C'est que soit il manque Dim Option1 as TypeDeDonnees, mais dans l'exemple de [auteur/LIBREMAX/1050148.aspx LIBRE_MAX] , c'était juste pour t'aiguiller vers les optionbutton. Option Explicit Private Sub Calendar1_Click() TXT_Date.Value = Calendar1.Value End Sub

'QUI APPELLE CETTE PROCEDURE? 'Combobox_Editeur n'est PAS le nom de ton Formulaire? 'ET de ton combobox????? evite si tu ne veux pas 'te melanger les pinceaux Private Sub Combobox_Editeur_Initialize() Dim i As Byte For i = 1 To 100 ComboBox_Editeur.AddItem "Ligne" & i Next i End Sub

'Private Sub Frame_Nature_Click() 'INUTILE TU NE PEUX PAS METTRE D'AUTRE PROCEDURE DANS 'UNE PROCEDURE Private Sub DisableControls() TXT_ChequeN°.Enabled = BTN_Cheque.Value TXT_Prelevement.Enabled = BTN_Prelevement.Value TXT_Virement.Enabled = BTN_Virement.Value TXT_Especes.Enabled = BTN_Especes.Value End Sub

Private Sub BTN_Cheque_Click() Call DisableControls End Sub

Private Sub BTN_Prelevement_Click() Call DisableControls End Sub

Private Sub BTN_Virement_Click() Call DisableControls End Sub

Private Sub BTN_Especes_Click() Call DisableControls End Sub

Private Function TestText(Obj As Object, Txt As String) As Boolean TestText = True If Obj.Text = vbNullString Then Call MsgBox("Vous devez entrer " & Txt) Obj.SetFocus TestText = False End If End Function

Private Sub BTN_Valider_Click() 'On teste la saisie de la date... If Not TestText(TXT_Date, "une date") Then Exit Sub 'On teste la saisie de la pieceN... If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub 'On teste la saisie de l'editeur... If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub 'On teste la saisie du N de cheque si c'est le paiement par chèque choisi If BTN_Cheque.Value And Not TestText(TXT_ChequeN°, "un numéro de chèque") Then Exit Sub 'On teste la saisie du prélèvement si c'est le paiement par Prélèvement choisi If BTN_Prelevement.Value And Not TestText(TXT_Prelevement, "Prélèvement") Then Exit Sub 'On teste la saisie du Virement si c'est le paiement par Virement choisi If BTN_Virement.Value And Not TestText(TXT_Virement, "Virement") Then Exit Sub 'On teste la saisie des Especes si c'est le paiement par Especes choisi If BTN_Especes.Value And Not TestText(TXT_Especes, "Especes") Then Exit Sub Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = TXT_Date.Value Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = TXT_PieceN°.Value Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = TXT_ChequeN°.Value Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = TXT_Prelevement.Value Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = ComboBox_Editeur.Value 'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture Call Unload(Me) End Sub

Private Sub LanceFRM_Accueil_Click() FRM_Accueilshow End Sub

Private Sub BTN_Fermer_Click() Call Unload(Me) End Sub

Private Sub BTN_Annuler_Click() 'INUTILE DONNERA UNE ERREUR 'Unload End Sub

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

Gil369 · Answer

Re, avant de tester tout ça et surtout d essayer de "comprendre", quand tu me dis :

C'est que soit il manque Dim Option1 as TypeDeDonnees, mais dans l'exemple de LIBRE_MAX , c'était juste pour t'aiguiller vers les optionbutton.

pour :   If Option1.Value = True Then 'chèque
            If Me.TXT_ChequeN°.Text = "" Then
            MsgBox "Vous devez entrer un N° de chèque"
            Me.TXT_ChequeN°.SetFocus
                Exit Sub
        End If
Option 1 , 2 etc doit etre remplacé par le nom du bouton ou du texte ?

Je rame sec, mais je me soigne !
A+ Gilles

jrivet · Answer

Re,
Regarde mon code tu comprendra => Par BTN_X

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

re,
avant tout est ce que je dois valider "reponse acceptee" a chaque lecture ??

Autrement je plante sur : obj.setfocus quand je valide mon formulaire de saisies

Private Function TestText(Obj As Object, Txt As String) As Boolean
   TestText = True
   If Obj.Text = vbNullString Then
       Call MsgBox("Vous devez entrer " & Txt)
       Obj.SetFocus
       TestText = False
   End If
End Function


Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
   If Not TestText(TXT_Date, "une date") Then Exit Sub
   
   'On teste la saisie de la pieceN...
   If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub
  
   'On teste la saisie de l'editeur...
   If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub
   
     If BTN_Cheque.Value = True Then 'chèque
            If Me.TXT_ChequeN°.Text = "" Then
            MsgBox "Vous devez entrer un N° de chèque"
            Me.TXT_ChequeN°.SetFocus
                Exit Sub
        End If
        
            ElseIf BTN_Prelevement.Value = True Then 'Prélèvement
            If Me.TXT_Prelevement.Text = "" Then
            MsgBox "Vous devez entrer Prelevement"
            Me.TXT_Prelevement.SetFocus
                Exit Sub
                    End If


            ElseIf BTN_Virement.Value = True Then 'Virement
            If Me.TXT_Virement.Text = "" Then
             MsgBox "Vous devez entrer virement"
            Me.TXT_Virement.SetFocus
                Exit Sub
                    End If


            ElseIf BTN_Especes = True Then 'espèces
            If Me.TXT_Especes.Text = "" Then
            MsgBox "Vous devez entrer Especes"
             Me.TXT_Especes.SetFocus
                Exit Sub
                    End If




End If


    'On teste la saisie du N de cheque si c'est le paiement par chèque choisi
   If BTN_Cheque.Value And Not TestText(TXT_ChequeN°, "un numéro de chèque") Then Exit Sub
   
   'On teste la saisie du prélèvement si c'est le paiement par Prélèvement choisi
   If BTN_Prelevement.Value And Not TestText(TXT_Prelevement, "Prélèvement") Then Exit Sub
   
   'On teste la saisie du Virement si c'est le paiement par Virement choisi
   If BTN_Virement.Value And Not TestText(TXT_Virement, "Virement") Then Exit Sub
   
   'On teste la saisie des Especes si c'est le paiement par Especes choisi
   If BTN_Especes.Value And Not TestText(TXT_Especes, "Especes") Then Exit Sub
    


          
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    
    Call Unload(Me)  'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture


End Sub

A+ Gilles

jrivet · Answer

Re,
1- NOn
2- Quel est l'erreur?

@+: Ju£i?n
Pensez: Réponse acceptée

LIBRE_MAX · Answer

Salut tout le monde, Peut être qu' il faudra tester sur le type de l' obj avant. (Certains objets n' int pas de focus). If Obj.Text = vbNullString Then Call MsgBox("Vous devez entrer " & Txt) If TypeOf(Obj)="TextBox" Then Obj.SetFocus TestText = False End If

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

LIBRE_MAX · Answer

ou alors Private Function TestText(Obj As TextBox, Txt As String) As Boolean TestText = True If Obj.Text = vbNullString Then Obj.SetFocus Call MsgBox("Vous devez entrer " & Txt) TestText = False End If End Function Passes le message après, car il a tendance à interrompre le traitement.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

jrivet · Answer

Re,
j'ai mis Object Car il y a un comboBox dans le lot je crois.

Donc peu etre faut il tester. mais théoriquement tu ne passes à la porcédure que ce que tu sais avoir un SetFocus.

@+: Ju£i?n
Pensez: Réponse acceptée

LIBRE_MAX · Answer

Théoriquement oui, mais l' erreur du SetFocus est assez courante. Même pour un control désigné. J' en recontre parfois même dans: Private Sub TextBox1_Validate(Cancel As Boolean) If .....Then TextBox1.SetFocus Cancel=True ' ou False End If End Sub et ce, sans raison apparente.

... Y'en a même qui disent qu'ils l'ont vu voler.

/P>

LIBRE_MAX · Answer

Validate est un maivais exemple. Le control a déjà le focus Mais la remarque reste valable.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

Gil369 · Answer

re,
quand je coche "optionbuton cheque"  et qu ensuite j entre un N° de cheque dans "textbox cheque", si je valide, j ai le msgbox "entrer prelevement", en validant par OK  : "erreur d execution2110, le focus ne peut etre deplace car celui ci est invisible, non active, ou d un type n acceptant pas le focus" et le debogage me ramene sur 

Private Function TestText(Obj As Object, Txt As String) As Boolean
   TestText = True
   If Obj.Text = vbNullString Then
       Call MsgBox("Vous devez entrer " & Txt)
       Obj.SetFocus
       TestText = False
   End If
End Function

A+ Gilles

jrivet · Answer

Salut,
Et bien l'erreur t'aide.

Est ce que au moment ou tu souhaites faire le SetFocus sur OBJ, OBJ est VISIBLE, ENABLED?

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

re, je viens d essayer en passant le message apres; pas d amelioration


Merci A+


Gilles

LIBRE_MAX · Answer

et ce parceque tu testes sur prélèvement alors que tu as opté pour chèque. N' appelles ta fonction Test que pour l' objet correspondant à l' option choisie Private Sub BTN_Valider_Click() -testes sur la date -Testes sur l' éditeur If BTN_Especes = True Then If TestText (Me.TXT_Especes.Text ,"Vous devez....") Then Exit Sub ElseIf BTN_Virement = True Then If TestText (Me.TXT_Virement.Text ,"Vous devez....") Then Exit Sub ElseIf BTN_Cheque = True Then If TestText (Me.TXT_Cheque.Text ,"Vous devez....") Then Exit Sub ElseIf BTN_Prelevement = True Then If TestText (Me.TXT_Prelevement Text ,"Vous devez....") Then Exit Sub End If tu continues le traitement... Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value End Sub n' oublies pas de rendre visible ou pas et enabled ou pas les objets correspondants à l' option choisie.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

LIBRE_MAX · Answer

pardon! ajoutes Not devant la fonction If Not(TestText (Me.TXT_Especes.Text ,"Vous devez...."))) Then Exit Sub pareil pour les autres appels

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

LIBRE_MAX · Answer

de mieux en mieux enlèves les .Text If Not TestText (Me.TXT_Especes~~.Text~~ ,"Vous devez....") Then Exit Sub

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

Gil369 · Answer

re, apres essai sur la derniere version, j ai un message "erreur de compilation: incompatibilite de type" sur:

Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
   If Not TestText(TXT_Date, "une date") Then Exit Sub
   
   'On teste la saisie de la pieceN...
   If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub
  
   'On teste la saisie de l'editeur...
   If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub
   
   If BTN_Especes = True Then
      If Not (TestText(Me.TXT_Especes.Text, "Vous devez....")) Then Exit Sub
      
   ElseIf BTN_Virement = True Then
      If Not (TestText(Me.TXT_Virement.Text, "Vous devez....")) Then Exit Sub
    
   ElseIf BTN_Cheque = True Then
      If Not (TestText(Me.TXT_Cheque.Text, "Vous devez....")) Then Exit Sub
  
  ElseIf BTN_Prelevement = True Then
      If Not (TestText(Me.TXT_Prelevement.Text, "Vous devez....")) Then Exit Sub
  
 End If
     
    
    'On teste la saisie du N de cheque si c'est le paiement par chèque choisi
   If BTN_Cheque.Value And Not TestText(TXT_ChequeN°, "un numéro de chèque") Then Exit Sub
   
   'On teste la saisie du prélèvement si c'est le paiement par Prélèvement choisi
   If BTN_Prelevement.Value And Not TestText(TXT_Prelevement, "Prélèvement") Then Exit Sub
   
   'On teste la saisie du Virement si c'est le paiement par Virement choisi
   If BTN_Virement.Value And Not TestText(TXT_Virement, "Virement") Then Exit Sub
   
   'On teste la saisie des Especes si c'est le paiement par Especes choisi
   If BTN_Especes.Value And Not TestText(TXT_Especes, "Especes") Then Exit Sub
    


          
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    
    Call Unload(Me)  'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture


End Sub

ça se complique pour moi , j essaie de comprendre, mais bcp de fonctions ....
A+ Gilles

LIBRE_MAX · Answer

d' abord Private Sub BTN_Valider_Click() 'On teste la saisie de la date... If Not TestText(TXT_Date, "une date") Then Exit Sub 'On teste la saisie de la pieceN... If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub 'On teste la saisie de l'editeur... If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub 'c' est de ma faute ! If BTN_Especes.Value = True Then If Not (TestText(Me.TXT_Especes.Text, "Vous devez....")) Then Exit Sub ElseIf BTN_Virement .Value = True Then If Not (TestText(Me.TXT_Virement.Text, "Vous devez....")) Then Exit Sub ElseIf BTN_Cheque.Value = True Then If Not (TestText(Me.TXT_Cheque.Text, "Vous devez....")) Then Exit Sub ElseIf BTN_Prelevement .Value = True Then If Not (TestText(Me.TXT_Prelevement.Text, "Vous devez....")) Then Exit Sub End If 'On teste la saisie du N de cheque si c'est le paiement par chèque choisi If BTN_Cheque.Value And Not TestText(TXT_ChequeN°, "un numéro de chèque") Then Exit Sub 'On teste la saisie du prélèvement si c'est le paiement par Prélèvement choisi If BTN_Prelevement.Value And Not TestText(TXT_Prelevement, "Prélèvement") Then Exit Sub 'On teste la saisie du Virement si c'est le paiement par Virement choisi If BTN_Virement.Value And Not TestText(TXT_Virement, "Virement") Then Exit Sub 'On teste la saisie des Especes si c'est le paiement par Especes choisi If BTN_Especes.Value And Not TestText(TXT_Especes, "Especes") Then Exit Sub tu viens de faire les testes. Tu ne va pas les refaire ! !!

... Y'en a même qui disent qu'ils l'ont vu voler.

/P>

Gil369 · Answer

re et merci pour tes conseils, je plante sur 

Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
   If Not TestText(TXT_Date, "une date") Then Exit Sub
   
   'On teste la saisie de la pieceN...
   If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub
  
   'On teste la saisie de l'editeur...
   If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub
   
   If BTN_Especes.Value = True Then
      If Not (TestText(Me.TXT_Especes.Text, "Vous devez....")) Then Exit Sub      (des la validation = erreur de compilation, incompatibilite de type )
      
   ElseIf BTN_Virement.Value = True Then
      If Not (TestText(Me.TXT_Virement.Text, "Vous devez....")) Then Exit Sub
    
   ElseIf BTN_Cheque.Value = True Then
      If Not (TestText(Me.TXT_Cheque.Text, "Vous devez....")) Then Exit Sub
  
  ElseIf BTN_Prelevement.Value = True Then
      If Not (TestText(Me.TXT_Prelevement.Text, "Vous devez....")) Then Exit Sub
  
 End If
     
          
    Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
    Range("Comptes_2008!C65536").End(xlUp).Offset(1, 0).Value = Me.TXT_PieceN°.Value
    Range("Comptes_2008!D65536").End(xlUp).Offset(1, 0).Value = Me.TXT_ChequeN°.Value
    Range("Comptes_2008!E65536").End(xlUp).Offset(1, 0).Value = Me.ComboBox_Editeur.Value
    
    Call Unload(Me)  'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture


End Sub

Je dois quitter, je reviens ce soir, encore merci
A+ Gilles

jrivet · Answer

Re,
VIre les .TEXT  TestText attends des objets graphiques pas des variables de type String

@+: Ju£i?n
Pensez: Réponse acceptée

LIBRE_MAX · Answer

j' avais déjà corrigé ! If Not (TestText(Me.TXT_Especes.~~Text~~, "Vous devez....")) Then Exit Sub le 1 ier paramètre est un objet Me.TXT_Especes et non du texte ~~Me.TXT_Especes.Text~~ et donc If Not (TestText(Me.TXT_Especes, "Vous devez....")) Then Exit Sub pareil pour les autres.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

LIBRE_MAX · Answer

^post croisé !

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

Gil369 · Answer

re, ça fonctionne mieux ! en relisant le tout je me suis aperçu que j avais un message d erreur parce que j avais oublie le "N°" sur TXT_Cheque N° Private Function TestText(Obj As Object, Txt As String) As Boolean TestText = True If Obj.Text = vbNullString Then Call MsgBox("Vous devez entrer " & Txt) Obj.SetFocus TestText = False End If End Function Private Sub BTN_Valider_Click() 'On teste la saisie de la date... If Not TestText(TXT_Date, "une date") Then Exit Sub 'On teste la saisie de la pieceN... If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub 'On teste la saisie de l'editeur... If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub If BTN_Cheque.Value = True Then If Not TestText(Me.TXT_ChequeN°, "Cheque") Then Exit Sub = manquai le N° ElseIf BTN_Prelevement.Value = True Then If Not TestText(Me.TXT_Prelevement, "Prelevement") Then Exit Sub ElseIf BTN_Virement.Value = True Then If Not TestText(Me.TXT_Virement, "Virement") Then Exit Sub ElseIf BTN_Especes.Value = True Then If Not TestText(Me.TXT_Especes, "Especes") Then Exit Sub End If j ai egalement supprimer les ( ) sur : If BTN_Cheque.Value = True Then If Not ( TestText(Me.TXT_ChequeN°, "Cheque") )Then Exit Sub sans noter de modification dans le fonctionnement 1) par contre si je valide en laissant vide les TXT date, pieceN° ou editeur le msgbox me le signale mais accepte sans msgbox si je laisse vide un des 4 TXT cheque, prelevement, virement ou especes , dois je intervenir sur le frame pour cela ? sachant que ces 4 optionbuttton sont dans ce frame 2) Pour repondre a Julien a la question de ce matin concernant les TXT grisees quand elles sont inactives : non je n ai pas resolu ce probleme pour le moment mais mon projet avance petit a petit grace a votre aide precieuse meme si je ne controle pas encore toutes les subtilite de l ecriture vba A+ Gilles PS: ou en est le problème d'hier? avec les Textbox Grisé?

LIBRE_MAX · Answer

Bonsoir, ..."dois je intervenir sur le frame pour cela ? Beh c' est préférable . C' est même primordiale ! Schatiquement : Sub ETAT_INITIAL 'Tous sont vides TXT_Especes.Text="" TXT_ChequeN.Text="" TXT_Prelevement.Text="" TXT_Virement.Text="" 'Tous sont désactivés TXT_Especes.Enabled=False TXT_ChequeN.Enabled=False TXT_Prelevement.Enabled=False TXT_Virement.Enabled=False End Sub Au lancement, une option est par défaut à True. Disons BTN_Espèces. ETAT_INITIAL TXT_Especes.Enabled=True A chaque fois que tu cliques sur une option, tu réinitialises et tu actives le control correspondant. Sub BTN_Cheque _Click() ETAT_INITIAL TXT_Cheque.Enabled=True End Sub Sub BTN_Prelevement_Click() ETAT_INITIAL TXT_Prelevement.Enabled=True End Sub Sub BTN_Virement _Click() ETAT_INITIAL TXT_Virement.Enabled=True End Sub Sub BTN_Especes _Click() ETAT_INITIAL TXT_Especes.Enabled=True End Sub

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

jrivet · Answer

Re,
Quelque chose me tracasse. est ce que au final il n'y a pas deux topic pour le même problème.
J'avoue que même après 4 Pages de discution, je n'ai pas l'impression d'avoir saisi le problème.

>[auteur/LIBREMAX/1050148.aspx LIBRE_MAX] : "Au lancement, une option est par défaut à True." ah bon????

De plus le sujet des TextBox Enabled à dejà été traité dans l'autre post et avait donnée cette procédure à appelé à chaque click sur une option

Private Sub DisableControls()
    TXT_ChequeN°.Enabled = BTN_Cheque.Value
    TXT_Prelevement.Enabled = BTN_Prelevement.Value
    TXT_Virement.Enabled = BTN_Virement.Value
    TXT_Especes.Enabled = BTN_Especes.Value
End Sub

On se disperse là non?

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

Re, tout fonctionne bien avec ces codes : 1 seul optionbutton ne peut etre actif dans le frame et la txtbox correspondante est activee, les 3 autres sont verrouillees.(NICKEL)
   1)Je souhaitai seulement pouvoir griser les 3 textbox inactives
2) Activer un msgbox en cas d oubli de cocher 1 optionbutton  du frame et du remplissage du textbox correspondant avant de passer au textbox suivant ("categorie")
        PS : Les msgbox "date" "pieceN°" et "editeur" sont bien actives en cas d oubli 

Private Sub DisableControls()
   
   TXT_ChequeN°.Enabled = BTN_Cheque.Value
   TXT_Prelevement.Enabled = BTN_Prelevement.Value
   TXT_Virement.Enabled = BTN_Virement.Value
   TXT_Especes.Enabled = BTN_Especes.Value
            End Sub




Private Sub BTN_Cheque_Click()
    Call DisableControls
End Sub
        
        Private Sub INT_ChequeN°_Click()
            

 End Sub
                
                Private Sub TXT_ChequeN°_Change()
                     End Sub
  
      .... Idem pour les 3 autres

Private Function TestText(Obj As Object, Txt As String) As Boolean
   TestText = True
   If Obj.Text = vbNullString Then
       Call MsgBox("Vous devez entrer " & Txt)
       Obj.SetFocus
       TestText = False
   End If
End Function




Private Sub BTN_Valider_Click()
    
    'On teste la saisie de la date...
   If Not TestText(TXT_Date, "une date") Then Exit Sub
   
   'On teste la saisie de la pieceN...
   If Not TestText(TXT_PieceN°, "un numéro de pièce") Then Exit Sub
  
   'On teste la saisie de l'editeur...
   If Not TestText(ComboBox_Editeur, "un éditeur") Then Exit Sub
   
        If BTN_Cheque.Value = True Then
            If Not TestText(Me.TXT_ChequeN°, "Cheque") Then Exit Sub
   
        ElseIf BTN_Prelevement.Value = True Then .... pour les 3 autres

      End If
     
                      Range("Comptes_2008!B65536").End(xlUp).Offset(1, 0).Value = Me.TXT_Date.Value
                       Range .......

Call Unload(Me)  'De cette façon, à la prochaine saisie, les TextBoxs sont vides à l'ouverture


End Sub

Merci A+
Gilles

LIBRE_MAX · Answer

Bonjour, "Au lancement, une option est par défaut à True." Pourquoi pas ? ça fait partie de l' initialisation du formulaire. Dans un même cas de figure, je choisirais la plus courante. Cela explique le: ETAT_INITIAL TXT_Especes.Enabled=True + Dans DisableControls, il manque à mon avis la remise à "" de tous les TXT. Si je choisi chèques et que je remplis N chèquepuis puis que je me retracte et que je choisi Espèces,sans remettre à "" le TXT_Cheque, il va figurer dans ma feuille alors que je suis sur espèces. Pour le topic qui s' éternise, beh , si ça ne dépendait que de nous...!

... Y'en a même qui disent qu'ils l'ont vu voler.

/P>

Gil369 · Answer

bonjour a vous,
desolé de faire "durer" le topic, je ne savais pas qu il fallait faire court
merci

LIBRE_MAX · Answer

Bonjour, Mais non Gil ! il ne faut pas le prendre comme ça ! Tu peut poster autant que tu veux... Ce que voulais dire Julien, c' est que le but est que la solution soit trouvée le plus rapidement possible. Nous on est dispo à continuer... C' est à toi qu' on pense.Il faut que ton travail avance.

... Y'en a même qui disent qu'ils l'ont vu voler.

/PRE>

Gil369 · Answer

ok, merci mais comme je suis nouveau en vbexcel et sur le site , je ne connais pas les conventions et ne veux pas abuser.
J essaie les "" dans disablecontrols
A+
gilles

1 choix sur 4 propositions

37 réponses

Votre réponse

Discussions similaires