Bonjour à tous.

J'ai un petit souci sur un UserForm qui contient 3 checkbox pour une demande d'étiquettes.
Ma macro devrait ajouter une ligne en mettant un 1 dans les colonnes F, G et H SI on coche les textbox.
Tout fonctionne sauf ça. Que je coche ou pas, ça me met toujours un 1 dans les 3 colonnes.
Je précise qu'il me faut un espace si la textbox n'est pas coché sinon à la prochaine demande le 1 va remonter sur la dernière cellule vide.
Je suis sûr que je suis pas loin mais je vois pas mon erreur. Si qqun peut m'aider...Voici le code de mon bouton valider.

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
30
31
32
33
34
Private Sub CmdValider_Click()
 
    If Me.TextLOG.Text = "" Then
        MsgBox "Le n° du logement est obligatoire."
        Me.TextLOG.SetFocus
        Exit Sub
    End If
    If CheckInterphonie.Value = True Then
        Me.CheckInterphonie.SetFocus
    Else
        Me.CheckInterphonie.Value = " "
        'Exit Sub
    End If
    If CheckBAL.Value = True Then
        Me.CheckBAL.SetFocus
    Else
       Me.CheckInterphonie.Value = " "
        'Exit Sub
    End If
    If CheckTableau.Value = True Then
        Me.CheckTableau.SetFocus
    Else
        Me.CheckInterphonie.Value = " "
        'Exit Sub
    End If
 
    Range("D65536").End(xlUp).Offset(1, 0).Value = Me.TextLOG.Text
    Range("F65536").End(xlUp).Offset(1, 0).Value = 1
    Range("G65536").End(xlUp).Offset(1, 0).Value = 1
    Range("H65536").End(xlUp).Offset(1, 0).Value = 1
    Range("I65536").End(xlUp).Offset(1, 0).Value = Date
    Unload Me
 
End Sub
Merci de votre retour.