fr832
XLDnaute Occasionnel
format cdate ou texte dans textbox
Bonjour à tous, j'ai ce code dans un userform qui fonctionne trés bien, mais je souhaite qu'il m'affiche soit un format date (cdate) soit "non conforme".
Le code actuel plante si il y a "non conforme" , merci pour vos lumières, amitiés😉
Bonjour à tous, j'ai ce code dans un userform qui fonctionne trés bien, mais je souhaite qu'il m'affiche soit un format date (cdate) soit "non conforme".
Le code actuel plante si il y a "non conforme" , merci pour vos lumières, amitiés😉
Code:
Compteur = 0
For I = 1 To 28 'à 25 si tu ne prends pas en compte TB_26, TB_27 et TB_28
Dat = Me.Controls("TB_" & I)
If Dat <> "" Then Dat = [COLOR="RoyalBlue"]CDate(Dat)[/COLOR]
If Dat <= Date Then
Me.Controls("TB_" & I).BackColor = &HFF& 'ici
Compteur = Compteur + 1
Me.TB_29 = Compteur
End If
Next
End With
End Sub
Dernière édition: