Discussion :

[GTbenj]

Bonjour à tous,

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 :

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
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


donc si qqun a une idée

[Le Pierre]

bonjour

essaye cette version corrigée : http://cjoint.com/?gqqDJPRohI

à plus

[GTbenj]

MERCI BEAUCOUP

c'est exactement ce que je voulais

ps: désolé pour la faute dans le titre (checkbox ---et non chackbox), j'ai tapé trop vite