Format date dans plusieur textbox

[creolia]

Bonjour

je viens vers vous pour un probleme assez special

je cherche a formater des textbox pourqu'ont ne puisse mettre que la date ex. 24/09/2009

sa je sais que c'est possible sauf que en plus j'aimerais pouvoir le faire en lot.

je m'explique j'ai 282 textbox dont les numero se suivent c'est a dire de 1 à 282 et j'aimerais assez rapidement qu'il soit tous formater sans je passe des heures svp merci es ce possible

[Staple1600]

Bonsoir


Voir ici ce code de Pierrot93

Et il y d'autre exemples sur le forum...

En complément
Voir aussi du côté des modules de classe

[creolia]

merci j'essais

[creolia]

re j'ai regarder le code il me permet de formater la textbox en date sauf que je recherche une solution pour les faire tous d'un coup car comme j'ai precisez j'en est 282 a faire merci tout de meme

[Staple1600]

Re


Oui je sais lire

D'où ma phrase parlant des modules de classe.

[creolia]

dsl je ne sais pas ce que sais un module de classe et a quoi sa sert je vais me renseigner merci

[Staple1600]

Re


Tu peux utiliser le moteur de recherche du forum pour trouver des fils relatifs au modules de classe.

J'attendais de savoir quelles sont tes connaissances en VBA, avant d'aller plus loin.

[creolia]

houlla apparement pour utiliser les module de classe faut etre balaise malheureusement je bidouille le vba mais pas au point d'est un balaise donc je crois sa va pas etre possible pour l'instant

[Staple1600]

RE


Si non tu copies et adapte les codes suivants (qui sont ceux que je citais à 22h10 )
pour tes 282 textbox

Option Explicit
Private Sub UserForm_Initialize()
TextBox1.MaxLength = 10
End Sub
Private Sub TextBoxN_Change()
    If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then TextBox1 = TextBox1 & "/"
End Sub
Private Sub TextBoxN_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub TextBoxN_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Exit Sub
If Not IsDate(TextBoxN) Then MsgBox "saisie erronée": TextBoxN = "":Cancel = True
End Sub

remplacer N par le numéro de la TextBox
(donc faire cela 282 fois )


Et c'est là qu'on apprécie l'existence des modules de classe

[creolia]

merci je crois c'est ce que je vais faire toute façon mes connaissance me permet pas de m'attaquer a ses modules pour l'instant merci pour les info