Case à cocher

C

Catrice

XLDnaute Barbatruc

• 27 Février 2009

• #2

Re : Case à cocher

Bonjour,

Le probleme, c'est que si tu mets les cellule à "", tu enleves les données.

Ci-joint un code qui les masque en utilisant le format/nombre.
Les données passent de visible à invisible mais restent dans la feuille.

Private Sub CheckBox1_Click()
Range("A2:A3").NumberFormat = IIf(CheckBox1.Value, ";;;", "General")
End Sub

On pourrait aussi changer la couleur de la police.

On peut aussi le faire sans Macro, Voir le fichier joint.

 

Pièces jointes

• Classeur2.xls

  25.5 KB · Affichages: 82
• Classeur2.xls

  25.5 KB · Affichages: 79
• Classeur2.xls

  25.5 KB · Affichages: 79

Dernière édition: 27 Février 2009

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Février 2009

• #3

Re : Case à cocher

Bonjour Ricsavoy

une solution en pièce jointe

ne modifie rien en A1
il y a une MFC en B2et B3

à+

Edit: Bonjour Catrice

 

Pièces jointes

• Classeur5.xls

  23 KB · Affichages: 74
• Classeur5.xls

  23 KB · Affichages: 82
• Classeur5.xls

  23 KB · Affichages: 74

Vote positif 0 Vote négatif

R

Ricsavoy

Guest

• 27 Février 2009

• #4

Re : Case à cocher

Merci à vous deux ! Big Up

J'opte pour la solution de Catrice, car les MFC de laurent c'est un peu du chinois pour moi. Il faut que je m'y penche.

Donc Catrice ton petit bout de code marcherait vachement bien mais à l'envers pour l'usage que j'en fais. C'est à dire que lorsque je coche les valeurs disparaissent et c'est le contraire que je voudrais. 😉

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 27 Février 2009

• #5

Re : Case à cocher

Ricsavoy à dit:

Donc Catrice ton petit bout de code marcherait vachement bien mais à l'envers pour l'usage que j'en fais. C'est à dire que lorsque je coche les valeurs disparaissent et c'est le contraire que je voudrais. 😉

Cliquez pour agrandir...

Bonjour,
Pour le contraire ...

Code:

IIf(CheckBox1.Value [COLOR="Red"]= 0[/COLOR], ";;;", "General")

A+

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 27 Février 2009

• #6

Re : Case à cocher

Re,

Ou bien :
Range("A2:A3").NumberFormat = IIf(CheckBox1.Value, "General" , ";;;")

La MFC reste une tres bonne solution.
Je l'ai rajouté en exemple dans mon fichier précédemment posté.

 

Dernière édition: 27 Février 2009

Vote positif 0 Vote négatif

R

Ricsavoy

Guest

• 27 Février 2009

• #7

Re : Case à cocher

Yeeeees ça marche.......
Mais suivant le viel adage quand on solutione un problème, y'en a un autre qui surgit....
J'ai besoin de faire la somme de plusieurs cellules dont les fameuses B2 & B3 et elles ne sont plus prises en compte ????????

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 27 Février 2009

• #8

Re : Case à cocher

Re,

Dans mes exemples, 3 solutions sur 3 conservent les valeurs pour la Somme !?

La solution "Sans Macro" effectivement ne permet pas de faire la somme des valeurs invisibles.

Quelle solution utilises tu ?

 

Dernière édition: 27 Février 2009

Vote positif 0 Vote négatif

R

Ricsavoy

Guest

• 27 Février 2009

• #9

Re : Case à cocher

Celle-ci :

Private Sub CheckBox1_Click()

Range("B39😀39").NumberFormat = IIf(CheckBox1.Value = 0, ";;;", "General")
End Sub

 

Vote positif 0 Vote négatif

R

Ricsavoy

Guest

• 27 Février 2009

• #10

Re : Case à cocher

Si maintenant y'a des smileys qui se glissent dans les codes.... C'est vraiment que VBA se fout de ma g....😀

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 27 Février 2009

• #11

Re : Case à cocher

Bonsoir,

Dans mon Post d'origine, j'ai reposté le fichier avec des SOMME.
Chez moi, ça fontionne (cf. Classeur2.xls).

Si ça ne fontionne toujours pas chez toi, peux tu poster ton probleme ?

 

Vote positif 0 Vote négatif

R

Ricsavoy

Guest

• 3 Mars 2009

• #12

Re : Case à cocher

Bonsoir,

Oui catrice ça marche très bien (Cf Classeur2.xls)
Merci beaucoup à toi et aux autres aussi qui se sont penchés sur mon petit problème....

Ciaooo
🙂

 

Vote positif 0 Vote négatif