condition checkbox et date dans texbox

Version imprimable

bonjour
mon code fonctionne, j'ai rajouter un checkbox et une date dans mon userform mais si j’écris les éléments comme dans le code cela me met une erreur car je ne l’ai pas cocher .celui ci n'est donc pas obliger d’être renseigné mais quand le checkbox est cocher je suis obliger de mettre la date et donc après ranger tout dans le tableau recap en pour checkbox et q pour la date
je suis perdu
merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
Dim l_info As Integer
Dim note_1 As String, note_2 As String, lanote As String
Dim Ws As Worksheet
With ThisWorkbook.Worksheets("TABLEAU RECAP")
 l_info = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
 
 
     .Range("B" & l_info).Value = ComEQUI 'libelle equipement'
        .Range("c" & l_info).Value = Textlocal 'code local"
        .Range("D" & l_info).Value = ComRESP 'Nom du responsable'
        .Range("E" & l_info).Value = CDate(TextDATEAM) 'date du constat'
        .Range("F" & l_info).Value = CDate(TextMISE) 'date de mise en service'
        .Range("G" & l_info).Value = CInt(TextDUREVIE.Value)  'Duree de vie theorique'
        .Range("H" & l_info).Value = CDate(TextREMPL) 'Date theorique de remplacement '
        .Range("I" & l_info).Value = CInt(TextDURVIERESI.Value)  'Duree de vie residuelle '
        .Range("J" & l_info).Value = TextESTIMREMPL 'Duree de vie residuelle '
        .Range("K" & l_info).Value = CInt(TextRESUETAT.Value) 'note de etat equipement'
        .Range("l" & l_info).Value = CInt(TextRESUCRIT.Value) 'note de criticite equipement'

28/11/2016, 12h52
Jean-Philippe André

Bonjour,

soit il manque une partie de ton explication et/ou de ta question, soit il manque une partie de ton code, mais en l'etat, je suis bien incapable de savoir ce que tu attends de notre aide :koi:
28/11/2016, 13h20
cbredeche
bonjour
il manque bien le code
des lors que j’écris cela
Code:

1 2 3 4 .Range("q" & l_info).Value = Cdate(TextboxdatechangeValue) 'date de remplacement equipement' .Range("p" & l_info).Value = (CheckBox1.Value) ' équipement remplacé '
cela me met une erreur
car je suis obliger de mettre la date mais moi je veux sous condition
si case cocher mettre la date et une croix dans cellule corespondante si case non cocher rien mettre donc pas d'erreur mais je n'y arrive pas
merci de ton aide

OK,

ici tu peux faire un test sur la case a cocher avec

Code:

1
2
3
4
5
6
7
If CheckBox1.Value Then
'cas case cochee
.Range("q" & l_info).Value = Cdate(TextboxdatechangeValue)
Else
'cas case non cochee
'rien ?
End if

28/11/2016, 13h36
cbredeche

merci cela fonctionne