1 pièce(s) jointe(s)
caption de Checkbox dans un tableau ?
Bonjour à tous:coucou:,
voilà, dans mon UF, j'aimerais que les captions de checkbox enrichissent une colonne, tous en passant 20 lignes à chaque saisie
j'ai utilisé ça:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Dim DerL7 As Integer
'1 coder les checkbox metiers avec la feuil7'
Dim CB58 As String
Dim CB59 As String
If CheckBox58.Value = False Then
CB58 = " "
Else
CB58 = CheckBox58.Caption
End If
If CheckBox59.Value = False Then
CB59 = ""
Else
CB59 = CheckBox59.Caption
End If
With Feuil7
If .Range("F2") = "" Then
DerL7 = 2
Else
DerL7 = Feuil7.Range("F65535").End(xlUp).Row + 1
End If
.Range("F" & DerL7).Value = CB58
.Range("F" & DerL7).Value = CB59
End With |
mais ça ne marche que pour une checkbox,, car quand je rajoute plusieurs lignes (en rouge), cela ne marche pas
je joint un fichier excel où je mets en apparence, à quoi cela doit ressembler, avec également les 2 tableaux utlisés, et les formules qui ne marchent
pas:bug:
donc si qqun a une idée
