Bonsoir,
j'ai depuis peu pris l'habitude de laisser la feuille Excel d'afficher la date au bon format.
Pour ce faire je ne transfert plus les dates des TextBox avec la valeur de leur contenu mais en transférant ces valeurs en tant que date grâce à CDATE()
Donc pour la colonne B vous pouvez apporter cette modification au code du bouton valider :
Private Sub CommandButton1_Click() 'bouton "Valider"
Dim I As Integer 'déclare la variable I
For I = 1 To 11
If I = 2 Then
Range("TB").Item(LI, I) = CDate(Me("C" & I).Value)
Else
Range("TB").Item(LI, I) = Me("C" & I).Value
End If
Next 'renvoie la valeur des contrôle dans la ligne LI
If TEST = False Then TB.ListRows.Add 'si la variable TEST est [Faux] ajoute une ligne au tableau structuré TB (la variable TEST est déclarée publique dans le module [Module1])
Unload Me 'vide et ferme l'UserForm en cours
If TEST = False Then UserForm1.Show 'si la variable TEST est [Faux] ouvre l'UserForm1 (la variable TEST est déclarée publique dans le module [Module1])
End Sub
Vous pouvez en faire autant avec la colonne J en faisant un test If I=10 donc :
If I=2 or I=10 then
Il y a eu un temps où j'utilisais FORMAT(TextBox1.Value,"MM/DD/YYYY") et il arrivait encore qu'il y ait des problèmes, avec Cdate et une mise en forme sur la feuille Excel, je trouve que c'est plus simple.
@ bientôt
LouReeD