XL 2019 Affichage cellule avec case à cocher

[Did25]

Bonjour le forum XLD , je reviens vers vous pour une petite recherche de solutions :
Je m'explique sur un formulaire j'utilise un contrôle de formulaire de type case à cocher ,je m'en sert pour copier une cellule B8 "d'aujourd'hui" et la colle dans une autre cellule "B6" de la feuille et je l'ai associé à la fin du code à l'ouverture d'un USF ,mais je ne trouve pas la solution pour q'une fois décocher cela efface la cellule B6.
Merci de votre aide

 

[Wayki]

Bonjour,
une proposition
A +

 

[Did25]

Bonjour Wayki ,ça fonctionne mais que dois-je changer pour que la cellule copier ne garde pas l'entourage de la sélection ?

 

[Wayki]

Bonjour Wayki ,ça fonctionne mais que dois-je changer pour que la cellule copier ne garde pas l'entourage de la sélection ?

Range("XX").PasteSpecial Paste:=xlValues
A +

 

[Did25]

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("B8").Copy
Range("B6").PasteSpecial Paste:=xlValues
UserForm1.Show
Else
Range("B6") = ""
End If
End Sub

ça ne fonctionne pas

 

[Wayki]

Ah bah oui t'as une cellule fusionnée...
Je check ça

 

[Wayki]

Ci-joint
A +

 

[Wayki]

Pourquoi faire simple quand on peut faire compliqué
Une variante bien plus simple
A +

 

[Did25]

Super Merci Wayki ,en effet la version simple ,c'est le top ,je suis allé dans la mauvaise direction ,merci encore et surtout merci XLD