Case à cocher

[Ricsavoy]

Bijour à toutes et tous,

P'tit coincage,

J'ai une case à cocher en A1 qui, selon qu'elle soit cochée ou pas affiche ou masque le contenu de 2 autres cellules (en même temps) sur la même ligne, A2 et A3 par exemple

J'arrive pas à trouver la solution

Je pensais bien à un truc comme :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[a2]&[a3]=True
Else
[a2]&[a3]= ""
End If
End Sub


D'avance merci.

Je sais ce type de prog va en faire mourrir de rire certains mais j'essaye au moins..

 

[Catrice]

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.

 

[phlaurent55]

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

 

[Ricsavoy]

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.

 

[James007]

Re : Case à cocher

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.

Bonjour,
Pour le contraire ...

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

A+

 

[Catrice]

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é.

 

[Ricsavoy]

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 ????????

 

[Catrice]

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 ?

 

[Ricsavoy]

Re : Case à cocher

Celle-ci :

Private Sub CheckBox1_Click()

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

 

[Ricsavoy]

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....

 

[Catrice]

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 ?

 

[Ricsavoy]

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