Autoriser seulement les chiffres et pas les lettres

Résolu
AntoineDr Messages postés 15 Statut Membre -  
AntoineDr Messages postés 15 Statut Membre -
Bonjour,

Je me pose la question de savoir comment interdire l'entrée d'une lettre pour le numéro d'identification de la textoBox1. Ca fait buguer tout mon programme. 

Private Sub Valider_Click()

Dim i As Integer


i = TextBox1 + 1
If Feuil2.Cells(i, 1) = "" Then
MsgBox ("Numéro client incorrect")


Else

If TextBox2 <> Feuil2.Cells(i, 5) Then
MsgBox ("Veuillez entrer un mot de passe correct")

Else

gestion.Show
End If
End If
 
TextBox1 = ""
TextBox2 = ""


End Sub


Merci de votre aide.

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 730
 
Bonjour,

Essaie ceci: 

If Not IsNumeric(Right(TextBox1, 1)) Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
        Exit Sub
    End If
 

 

                
                

    
        

    
            
        1
                                
                
    

            



    

        
        

            
        

    


        

        

                    

    

        

                    

                    


            
    
    

        



    

                    

    
        

    

            


    
    


    
    

                

    quent




 

    






    D'après le code que tu propose, je pense qu'il faudrait mettre ce code à l'intérieur des lignes

Private Sub TextBox1_Change()

End Sub


et non pas à l'intérieur des lignes

Private Sub Valider_Click()

End Sub


car tu ne vérifie que le dernier caractère
    




    
      

    
    
    0

            
    


    

            



    

        
        

            
        

    



    

    
            

        

                    


                
        
    
    

        



    

                    

    
        

    

            


    
    


    
    

                

        


     
             

                    AntoineDr
    
        
    
                    Messages postés
            
                


     
             

            15
        
            
                                    Statut
            Membre
                    



    
    



 

    






    Merci ça à l'air de fonctionner !
    




    
      

    
    
    0

            
    


    

            



    

        
        

            
        

    



    

    
            

        

        

    

        

            
        

    

    

    

        

    


    

    
    





    
Discussions similaires

                                        
            

                
                    CONNEXION IMPOSSIBLE SUR CERTAINS SITES
                    

                        

    

            


    
    


                        

                                                                                    ELISE8000 - 

                            
                                                                                    titicris58 - 
                        

                    

                    

                    

                        4 réponses
                    

                
            

                                            
            

                
                    rectangle derrière le texte
                    

                        

    

            


    
    


                        

                                                                                    khadija - 

                            
                                                                                    Le queniau - 
                        

                    

                    

                    

                        1 réponse
                    

                
            

                                            
            

                
                    Table des matières dont les titres n'apparaissent pas..
                    

                        

    

            


    
    


                        

                                                                                    Synua - 

                            
                                                                                    ggg - 
                        

                    

                    

                    

                        10 réponses
                    

                
            

                                            
            

                
                    Toutes les combinaisons à 4 chiffres de 0000 a 9999
                    

                        

    

            


    
    


                        

                                                                                    Sarah - 

                            
                                                                                    baladur13 - 
                        

                    

                    

                    

                        11 réponses
                    

                
            

                                            
            

                
                    Mon clavier est bloqué, il n'écrit plus !
                    

                        

    

            


    
    


                        

                                                                                    MURIEL - 

                            
                                                                                    Coline - 
                        

                    

                    

                    

                        24 réponses