Textbox erreur d'instruction 13

Bonjour à tous.

J'ai un problème que je n'arrive pas à résoudre.

Ds une textbox "TxtDDO" je met une date sous format 12/12/2018 depuis un calendrier VBA à l'aide d'un module de class

J'utilise ce code ds une comboboxs " CboNumSemPTot" pour avoir le numéro de semaine.

Private Sub TxtDDO_Change()
    CboNumSemPTot.Value = "S" & DatePart("ww", TxtDDO.Value, vbMonday, vbFirstFourDays)   'N° semaine  en ISO 
End Sub

J'utilise un Btn pour effacer les données saisies, j'ai essayé les 2 cas:

1- Effacer uniquement TxtDDO

2- Effacer TxtDDo et CboNumSemmPTot

Tjrs la même erreur.

Un idée de mon erreur erreur d'instruction '13' d'incompatibilité de type

J'ai essayer avec l'aide de corriger, mais je ne suis n'y suis pas arrivé.

Merci de votre aide et bonne journée à tous

Ledzep

Bonjour

pense que les Textbox ses du text

A+

Maurice

Private Sub TxtDDO_Change()
    CboNumSemPTot.Value = "S" & DatePart("ww", CDate(TxtDDO.Value), vbMonday, vbFirstFourDays)   'N° semaine  en ISO
End Sub

Bonjour à tous

Bonjour Archer

J'ai essayé ton code, hélas même erreur

Par contre en regardant plus loin ds l'affichage

   CboNumSemPTot.Value = "S" & DatePart("ww", CDate(TxtDDO.Value), vbMonday, vbFirstFourDays)  

CboNumSemPTot.Value = "S50" Puisque j'ai mis ds TxtDDO la date du jour 13-12-2018

C'est CDate(TxtDDO.Value) qui donne l'erreur incompatibilité de type 13 quand je fais effacer la TxtDDO

J'ai passé du tps sur le forum ou autre, pas trouvé la solution

Merci de votre aide

Ledzep

Bonsoir à tous

       'PROCEDURE AFFICHAGE N° SEMAINE DS CboNumSemPtot  " TxtDDO "

Private Sub TxtDDO_Change()

        If TxtDDO.Value = "" Then Exit Sub

            TxtDate.Value = Date
            CboNumSemPTot.Value = "S" & DatePart("ww", CDate(TxtDDO.Value), vbMonday, vbFirstFourDays)   ' en ISO
End Sub

Voila la solution.

Si vous pouvez valider mon code. (Je préfère avoir la bonne méthode)

Bonne soirée à vous

Ledzep