Discussion :

[Veronique45]

Bonsoir à tous,
voila mon petit soucis, j'ai un USF qui me place dans 10 textbox les valeurs de d'une ligne que je selectionne (colonne par colonne).
Avec un bouton, je peux modifier ces valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
With Sheets("BASE-VERO")
For i = 1 To 10
    If Me.Controls("Textbox" & i) <> "" Then
    .Cells(Lig, i) = Me.Controls("Textbox" & i)
    End If
Next i
End With
Unload UserForm5
End Sub

Mon soucis, est que j'aimerais que le textbox2, texbox4 et textbox8 soit toujours en format chiffre, et que le textbox1 soit toujours en format date ....
Pour les autres, ce sont des commentaires ....
J'avoue que je suis un peu perdu ....
Si quelqu'un peut m'aider ...

[laetitia]

bonsoir veronique le forum
tu peus t' orienter sur un truc comme cela!!
corrigez a la source avant click sur ton bouton

pour la textbox1 2 methodes

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not TextBox1 Like "##/##/##" Then
        MsgBox "entrez  au format jj/mm/aa"
        TextBox1 = ""
        Cancel = True
    End If
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) = True Then
MsgBox "entrez au format jj/mm/aa"
TextBox1 = ""
Cancel = True
End If
End Sub

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789/", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

pour les autres textboxs 2 4 8

Code :

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

1
2
3
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Code :

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

1
2
3
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Code :

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

1
2
3
Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

pour les autres textboxs il faut voir si on peut renter des chiffres dans tes commentaires!!!

[Veronique45]

Merci pour les formules, je vais tester tout ça ...