Discussion :

[floflo50100]

Bonjour à tous,
J'aimerai faire une boucle For pour que le code ci-dessous puisse s'appliquer à toute les textboxs de mon userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Textbox33_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
     Case Asc(".")
 
     Case Asc(",")
        KeyAscii = Asc(".") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
 
End Sub

Je suis novice et je ne comprend pas encore tout à fait bien les boucle...
Merci

[antonysansh]

Bonjour floflo50100,

Je ne comprends pas ta demande car ton code marche alors je te le commente un peu (une simple traduction):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Ctrl As Control 'variable de type controle
 
For Each Ctrl In UserForm4.Controls 'Pour chaque controle dans la collection des controles de l'uf "UserForm4"
    If TypeName(Ctrl) = "TextBox" Then 'Si le type de controle est un TextBox alors
        Ctrl.Value = Replace(Ctrl.Value, ",", ".") 'On remplace les ',' dans la valeur du controle par '.'
    End If 'fin du Si
Next 'prochaine controle

Si tu as trouvé ce code et que tu veux juste l'adapter, vérifie que ton UF s'appel bien UserForm4

[joe.levrai]

Bonjour,

ton code s'applique en l'état au textbox33, DURANT la saisie

si tu veux généraliser cet évènement à tous les textbox de ton Userform, il y a deux méthodes :

1) Ecrire cette macro pour chaque textbox, c'est pas pratique mais c'est du niveau débutant
2) Utiliser un module de classe pour écrire une procédure évènementielle applicable à tous les textbox, mais là c'est plus du tout le même niveau


après, il est possible d'effectuer le remplacement en une seule fois, en appuyant sur un bouton que tu places dans le userform
si le bouton s'appelle par exemple CommandButton1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton1_Click()
    Dim Ctrl As Control
 
    With Me
        For Each Ctrl In .Controls
            If TypeOf Ctrl Is msforms.TextBox Then
                Ctrl = Replace(Ctrl, ".", ",")
            End If
        Next Ctrl
    End With
 
End Sub

EDIT : oups antonysansh, on s'est croisé avec la même idée

[kiki29]

Salut, à lire, assimiler et appliquer : Obliger une saisie numérique dans une TextBox
à voir également : ceci

[floflo50100]

Bonjour,
Vous avez du voir le mauvais code quand vous avez lu mon post il s'agit de celui ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Textbox33_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
     Case Asc(".")
 
     Case Asc(",")
        KeyAscii = Asc(".") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
 
End Sub

Dsl

[Docmarti]

Bonjour.

La classe événements :


Dans le Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim TextB(1 To 2) As New Classe1
 
Private Sub UserForm_Initialize()
 For i = 1 To 2: Set TextB(i).LesTextbox = Me("TextBox" & i): Next i
End Sub

Dans le module de classe Classe1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public WithEvents LesTextbox As MSForms.TextBox
 
Private Sub LesTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
     Case Asc(".")
 
     Case Asc(",")
        KeyAscii = Asc(".") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
 
End Sub

[floflo50100]

Bonjour,
Je suis novice en vba, je ne comprends pas trop..
J'ai mis votre second code dans le module 4, il indique une erreur Public qui précède un private Sub.
Et dans votre premier code le Dim est avant le private sub ?

[Docmarti]

Le module 4, c'est un module standard.
Il faut un module de classe. Vous devez faire menu Insertion/Module de classe.

Le premier Dim de mon code doit aller en tête du module Userform avant toute procédure.