format cdate + texte en vba

[fr832]

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😉

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

 

[Pierrot93]

Re : format cdate + texte en vba

Re,

non, si tu tapes "end if", comme ce sont des mots clés connus de vba, les majuscules sont positionnées automatiquement...

bonne soirée
@+