Macro pour case d'option

Bonjour,

je suis novice en VBA.
Voici mon problème : je souhaite réaliser une feuille excel de correction de controles sur laquelle il y a les n° de question, le nombre de points associés. Il s'agit de résultats assez binaires (en fait plutot ternaires) et j'ai créé en face de chaque question un "groupbox" contenant 3 "checkbox" (max, med et min).

Je veux que quand je coche max, la totalité des points soit allouée, med : la moitié et min : aucun.
Jusque la pas compliqué : j'associe à chaque checkbox une macro (simpliste)

Mais, lorsqu'il y a 50 questions, je ne veux pas avoir à créer une macro max_quest1, med_quest1, min_quest1, max_quest2, med_quest2, ... jusqu'à 50 (en terme de gain de temps, c'est pas ce qu'on fait de mieux.

Ce que je souhaiterais serait de faire uniquement 3 macro qui reconnaissent le groupbox (et donc la question) depuis laquelle elles ont été appelée pour ainsi savoir où aller chercher la valeur de la question et où aller écrire la résultat

Peut-être est-il possible d'associer un groupbox à une case (et donc une adresse de cellule qui servirait de base logique à l'algo) ou autre ?


Je vous remercie de l'attention que vous portez à ma petite question ;)

Merci

Salut Alfred15 et bonne et heureuse année à tous
Sur des contrôles (Zone de groupe, Case d'option) issus de la barre d'outils formulaire, sur un module général (ceux qui apparaissent dans le dossier "Module")

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test() Dim X, Y Dim Nom As String, Cel As Range Set X = ActiveSheet.Shapes(Application.Caller) Nom = X.AlternativeText MsgBox Nom Set Cel = X.TopLeftCell Nom = Cel.Address(0, 0) MsgBox Nom For Each Y In ActiveSheet.Shapes If Y.TopLeftCell.Address <> X.TopLeftCell.Address Then If Not Intersect(X.TopLeftCell, Range(Y.TopLeftCell, Y.BottomRightCell)) Is Nothing Then Nom = Y.AlternativeText MsgBox Nom Exit For End If End If Next Y End Sub

---

Je travaille directement sous VBE avec la fenêtre "variables locales" en mode pas-à-pas. J'ai mis des boîtes de dialogue pour visualiser directement le résultat sur la feuille. On se retrouve donc avec une seule macro (Test) qui donne successivement l'intitulé de la case d'option cliquée, l'adresse de la cellule en dessous (haut-gauche) du contrôle et l'intitulé de la zone de groupe : Il faut que la zone de groupe engloble la cellule en haut et à gauche de la case d'option pour que ça marche.
Pour les Groupes/Options, il suffit de faire du copier/coller et la macro reste affectée aux nouveaux contrôles.

Comme je n'avais pas trop d'éléments, je me suis contenté de ça. Pour gérer les Maxi/inter/mini, je suggère un Select Case

Bonsoir, et bonne année à vous également

Merci pour cette réponse claire nette et précise. J'ai bien étudié votre code et il me semble avoir tout compris.
Ce

Code:

---

Application.Caller

---

me paraît en effet tout à fait adéquat.


Néanmoins, comme je suis un peu faignant, j'avais pensé automatiser la création des groupbox et des 3 cases à cocher en fonction du nombre de questions présentes.

J'ai donc réalisé le prototype suivant qui fonctionne pour 9 questions (j'adapterai plus tard à une variable : c'est encore dans mes cordes me semble-t-il)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub Bouton_Valide_Exo() Dim i As Byte     For i = 1 To 9   With Feuil1   Set Group = .GroupBoxes.Add(.Cells(i + 8, 5).Left, .Cells(i + 8, 5).Top + 0.1 * .Cells(i + 8, 5).Height, 3 * .Cells(i + 8, 5).Width, 0.8 * .Cells(i + 8, 5).Height) Set BMax = .OptionButtons.Add(.Cells(i + 8, 5).Left, .Cells(i + 8, 5).Top + 0.1 * .Cells(i + 8, 5).Height, .Cells(i + 8, 5).Width, 0.8 * .Cells(i + 8, 5).Height) Set BMed = .OptionButtons.Add(.Cells(i + 8, 6).Left, .Cells(i + 8, 5).Top + 0.1 * .Cells(i + 8, 5).Height, .Cells(i + 8, 6).Width, 0.8 * .Cells(i + 8, 5).Height) Set BMin = .OptionButtons.Add(.Cells(i + 8, 7).Left, .Cells(i + 8, 5).Top + 0.1 * .Cells(i + 8, 5).Height, .Cells(i + 8, 7).Width, 0.8 * .Cells(i + 8, 5).Height) End With   Group.Name = "Groupe " & i Group.Text = "Question" & i BMax.Text = "Max" BMed.Text = "Med" BMin.Text = "Min" BMax.LinkedCell = Feuil1.Cells(i + 8, 2)     Next i   Feuil1.Shapes("Groupe " & 3).Delete Feuil1.Shapes("Groupe " & 2).Text = "Alfred"   End Sub

---

Certaines choses fonctionnent :
- positions régulières des groupbox et checkbox
- noms corrects des objets
- liens entre les checkbox d'un même groupe

Mais d'autres non :
- l'attribution dynamique des cellules liées par

Code:

---

BMax.LinkedCell = Feuil1.Cells(i + 8, 2)

---

- le changement ultérieur d'un nom (inutile ici, certes, mais j'aimerais comprendre mon erreur toute de même) par

Code:

---

Feuil1.Shapes("Groupe " & 2).Text = "Alfred"

---

alors que la commande à mes yeux presque identique

Code:

---

Feuil1.Shapes("Groupe " & 3).Delete

---

fonctionne très bien...



Bref je manque encore de beaucoup de recul sur ce langage.

Merci beaucoup