Bonsoir Apprenti
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Concernant votre demande, voici un petit bout de code
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Lng As Integer
If InStr(1, "01234567989.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
Lng = Len(Me.TextBox2)
If Lng = 2 Or Lng = 5 Or Lng = 8 Or Lng = 11 Then
If Chr(KeyAscii) <> "." Then
Me.TextBox2 = Me.TextBox2 & "."
End If
End If
End Sub
Merci pour votre participation
Cordialement