Affichage selon une checkbox

Bonjour,

L'objectif est de copier des valeurs si la checkbox = True et de supprimer ces mêmes valeurs si la checkbox =False. Le code est plutôt simple mais je n'arrive pas à faire fonctionner les deux conditions soit uniquement l'affichage des valeurs ce fait soit uniquement la suppression.

Private Sub CheckBox3_click()
If CheckBox3.Value = True Then
      Range("AN1:AP15").Select
    Range("AP15").Activate
    Selection.Copy
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 1
    Range("R11").Select
    ActiveSheet.Paste
If CheckBox3.Value = False Then
  Range("R11:T25").Select
    Range("T25").Activate
    Selection.ClearContents
    Range("U22").Select
    Selection.Copy
    Range("R11:T25").Select
    Range("T25").Activate
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    End If
End If
End Sub

Bonjour

Fil cloturé ou pas ?

L'objectif est de copier des valeurs si la checkbox = True et de supprimer ces mêmes valeurs si la checkbox =False.

Ok mais là dans le code cela ne fait pas du tout ce que vous écrivez
Si TRUE : vous copiez AP15 vers R11
Si FALSE : vous supprimez T25 et vous copiez U22 vers T25

Quid ?

Bonjour,

Oui j'ai corrigé l'erreur 5 min après avoir créer le sujet ^^'.

J'ai juste remplacer mon deuxième If par Else et cela marche parfaitement

Ok. Votre code comme ceci pour simplifier un peu

Private Sub CheckBox3_click()
With CheckBox3
    If .Value = True Then
        Range("AP15").Copy Range("R11")

    ElseIf .Value = False Then
        Range("T25").ClearContents
        Range("U22").Copy
        Range("T25").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
    End If
End With
End Sub

Crdlt