XL 2019 Affichage cellule avec case à cocher

Wayki

XLDnaute Impliqué

• 18 Septembre 2021

• #2

Bonjour,
une proposition
A +

 

Pièces jointes

• Formulaire.xlsm

  72.7 KB · Affichages: 8

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 18 Septembre 2021

• #3

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

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 18 Septembre 2021

• #4

Did25 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 18 Septembre 2021

• #5

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

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 18 Septembre 2021

• #6

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

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 18 Septembre 2021

• #7

Ci-joint
A +

 

Pièces jointes

• Formulaire (1).xlsm

  73.2 KB · Affichages: 2

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 18 Septembre 2021

• #8

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

 

Pièces jointes

• Formulaire (1).xlsm

  72.9 KB · Affichages: 11

Vote positif 0 Vote négatif

Solution

D

Did25

XLDnaute Occasionnel

• 18 Septembre 2021

• #9

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

 

Vote positif 0 Vote négatif