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

[kahlouch]

bonjour s'il vous plait
Comment je peux activer et désactiver les matières que je ne veux pas parmi les 9 matières sans perdre les formules
par exemple :
une fois j'ai eu besoin de 6 matières
et fois j'ai eu besoin de 8 matières

 

[JHA]

Bonjour à tous,

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

JHA

 

[kahlouch]

Bonjour à tous,

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

JHA

bonjour JHA
merci pour votre aide je pense que vous n'avez pas compris ma demande
moyenne et le total de points reste le même
- mon problème est de savoir comment cacher une matières avec la formule dans le (AK19) et (AL19)
par exemple : lorsque je sélectionnez 8 matières je trouve le total de 8 matières seulement pas de 9

 

[mapomme]

Bonjour à tous, @JHA 🙂

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

edit: bonsoir @job75 🙂

 

[JHA]

Bonjour à tous,

Tu sélectionnes tes matières en mettant un "1" dans les cellules de la ligne "14"

JHA

 

[job75]

Bonjour kahlouch, JHA, mapomme,

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

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

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+

 

[job75]

Je viens de supprimer la liaison parasite qui polluait le fichier.

 

[kahlouch]

bonjour
merci beaucoup à tout le forum
excellent travail .formidable

 

[kahlouch]

Bonjour kahlouch, JHA, mapomme,

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

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+

bonjour job75
merci pour votre aide
et je suis désolé j'ai trouvé le même problème avec la fonction de le résultat de l'examen en (AO15)

 

[job75]

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+

 

[kahlouch]

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+

bonjour job75
bon travail c'est exactement ce que je cherche
mille mercis
A+