Problème de séparateur des milliers vba

Résolu
LANGAZOU Messages postés 100 Statut Membre -  
LANGAZOU Messages postés 100 Statut Membre -
Bonjour,

je veux que lorsque je tape des montants dans mes textbox, ils affichent le séparateur des milliers au fur et à mesure.

Merci pour votre réponse

2 réponses

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

Voici un exemple à adapter: 

Option Explicit
Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TextBox1)
If Valeur = 3 Or Valeur = 7 Then TextBox1 = TextBox1 & "," 'a adapter "," ou "."
End Sub
'valeurs numériques uniquement
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) And Not Chr(KeyAscii) = ":" Then KeyAscii = 0
End Sub





 

 

                
                

    
        

    
            
        0
                                
                
    

            



    

        
        

            
        

    


        

        

                    

    

        

                    

        

    

        

            
        

    

    

    

        

        
        
        

                        Réponse 2 / 2
        


                    
                    

                

        

                    

        


     
             

            

    

            


    
    


        
        

                

        


     
             

                    LANGAZOU
    
        
    
                    Messages postés
            
                


     
             

            100
        
            
                                    Statut
            Membre
                    



    
                        

                             

    


    

                        

                    Merci beaucoup ;)
                
                

    
        

    
            
        0
                                
                
    

            



    

        
        

            
        

    


        

        

                    

    

        

                    

        

    

        

            
        

    

    

    

        

    


    

    
    





    
Discussions similaires

                                        
            

                
                    WORD Séparateur de milliers champs fusionné
                    

                        

    

            


    
    


                        

                                                                                    bibike - 

                            
                                                                                    Shaaa - 
                        

                    

                    

                    

                        13 réponses
                    

                
            

                                            
            

                
                    Erreur d'exécution 13 Incompatibilité de type
                    

                        

    

            


    
    


                        

                                                                                    grace - 

                            
                                                                                    pijaku - 
                        

                    

                    

                    

                        5 réponses
                    

                
            

                                            
            

                
                    "L'indice n'appartient à la sélection" + VBA
                    

                        

    

            


    
    


                        

                                                                                    fleur.31 - 

                            
                                                                                    geosevda - 
                        

                    

                    

                    

                        2 réponses
                    

                
            

                                            
            

                
                    VBA excel : résoudre problème de capacité.
                    

                        

    

            


    
    


                        

                                                                                    Juan Pedro - 

                            
                                                                                    Kunzi - 
                        

                    

                    

                    

                        9 réponses
                    

                
            

                                            
            

                
                    Erreur d'exécution '13': Incompatibilité de Type
                    

                        

    

            


    
    


                        

                                                                                    SLM-BHY  - 

                            
                                                                                    Heliotte - 
                        

                    

                    

                    

                        8 réponses