Discussion :

[Malek713]

pouvez vous m'aider à coder la macro correspondante au bouton Total dans le document ci-joint... c'est vraiment engoissant!!
merci d'avance

[helas]

Bonjour,
Pourquoi ne pas nommer les options

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
 Dim T1 As Integer
 If (A1 + A2 + A3 + A4 + A4 + A5 + A6) <> 0 Then T1 = T1 + 3
 If (B1 + B2 + B3 + B4 + B4 + B5 + B6) <> 0 Then T1 = T1 + 3
 '........les autres colonnes .......
 Range("G13") = T1
End Sub

A pour la première colonne d'option
B pour la seconde
C'est court et peut-être plus lisible

[Malek713]

Bonjour helas et merci pour la réponse
l'objectif de la macro est de calculer la somme des boutons radio actifs multiplier par leurs coefficients dans l'entête du tableau...

c ca enfaite le problème

Merci

[mercatog]

Sans vba

Dans la propriété de chaque OptionButton tu mets LinkedCell l'adresse de la cellule correspondante (OptionButton1: C7, OptionButton2: D7...etc)
Tu mets dans la cellule C13 la formule =NB.SI(C7:C12;VRAI)*C6
de même pour D13..F13
il ne reste que G13 = =SOMME(C13:F13)

idem pour les autres tableaux

revoir la macro reset pour ne pas supprimer la formule en G13

[Malek713]

Merci beaucoup