Discussion :

[cbredeche]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'

[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

[cbredeche]

bonjour
il manque bien le code
des lors que j’écris cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

OK,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cbredeche]

merci cela fonctionne