XL 2016 Comment je peux activer et désactiver les matières que je ne veux pas parmi les 9 matières

JHA à dit:

Bonjour à tous,

En groupant les matières.
Réorganise les matières pour les avoir côte à côte.

JHA

Cliquez pour agrandir...

mapomme à dit:

En mettant le coeff de la matière à zéro ?

Cliquez pour agrandir...

Sub CheckBox_Click()
Dim s As Shape, x$, r As Range
Set s = ActiveSheet.Shapes(Application.Caller)
x = s.TextFrame.Characters.Text 'la matière
Set r = Cells(15, Application.Match(x, Rows(15), 0) - 1)
r.Resize(, 4).EntireColumn.Hidden = s.ControlFormat.Value = xlOff 'masque/affiche les 4 colonnes
If r(2, 3) > 0 Then ThisWorkbook.Names.Add Replace(x, " ", ""), r(2, 3).Value 'stockage dans un nom défini
If s.ControlFormat.Value = xlOff Then r(2, 3) = 0 Else r(2, 3) = Evaluate(Replace(x, " ", ""))
End Sub

job75 à dit:

Bonjour kahlouch, JHA, mapomme,

Oui, tout à fait d'accord, voyez le fichier joint et la macro affectée aux 9 cases à cocher :

VB:

Sub CheckBox_Click()
Dim s As Shape, x$, r As Range
Set s = ActiveSheet.Shapes(Application.Caller)
x = s.TextFrame.Characters.Text 'la matière
Set r = Cells(15, Application.Match(x, Rows(15), 0) - 1)
r.Resize(, 4).EntireColumn.Hidden = s.ControlFormat.Value = xlOff 'masque/affiche les 4 colonnes
If r(2, 3) > 0 Then ThisWorkbook.Names.Add Replace(x, " ", ""), r(2, 3).Value 'stockage dans un nom défini
If s.ControlFormat.Value = xlOff Then r(2, 3) = 0 Else r(2, 3) = Evaluate(Replace(x, " ", ""))
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

Bonjour kahlouch,

Votre fichier en retour, j'ai corrigé votre formule en AO19 pour qu'elle tienne compte des cas où les Coeff sont nuls.

A+

Cliquez pour agrandir...