optimisation de code

[gege21]

bonsoir a tous

ne peut t’ont pas faire plus cours ?

Private Sub R1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R1 = ""
End Sub
Private Sub R2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R2 = ""
End Sub
Private Sub R3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)  
R3 = ""
End Sub
Private Sub R4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)  
R4 = ""
End Sub
Private Sub R5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R5 = ""
End Sub
Private Sub R6_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R6 = ""
End Sub
Private Sub R7_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R7 = ""
End Sub
Private Sub R8_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R8 = ""
End Sub
Private Sub R9_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R9 = ""
End Sub
Private Sub R10_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R10 = ""
End Sub
Private Sub R11_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R11 = ""
End Sub
Private Sub R12_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R12 = ""
End Sub
Private Sub R13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R13 = ""
End Sub
Private Sub R14_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R14 = ""
End Sub
Private Sub R15_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R15 = ""
End Sub
Private Sub R16_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R16 = ""
End Sub
Private Sub R17_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
R17 = ""
End Sub
Private Sub R18_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R18 = ""
End Sub
Private Sub R19_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
R19 = ""
End Sub

r1 a r19 sont des textbox

 

[Pierrot93]

Re : optimisation de code

Bonjour,

si..; regarde du coté des modules de classe, de nombreux exemples sur le forum...

bonne journée
@+

 

[laetitia90]

Re : optimisation de code

bonjour gege21 , l'ami Pierrot🙂🙂🙂
j'avais un exemple a peu prés pareil en archives

 

[gege21]

Re : optimisation de code

bonsoir Pierrot93,laetitia90

merci pour votre répons c tout a fait se que je voulais

mais comment faire pour n'avoir que des nombres dans les textbox et interdire le texte et le signaler par un msbox

 

[Pierrot93]

Re : optimisation de code

Bonjour Gégé, Laetitia🙂,

essaye ceci, à placer dans le module de classe (autorise également la virgule) :

Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0: MsgBox "saisie invalide"
End Sub

bonne journée
@+

 

[gege21]

Re : optimisation de code

bonjour

merci sa marche parfaitement

 

[gege21]

Re : optimisation de code

bonsoirs

(autorise également la virgule)

il faudrait en plus
que je puis y entre des chiffre négatif (-10.-5.5)
bref que "-"soir autorise

 

[laetitia90]

Re : optimisation de code

re,
tu rajoutes simplement le tiret ??

If InStr("0123456789,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0: MsgBox "saisie invalide"

 

[gege21]

Re : optimisation de code

bonjours et merci laetitia90