[RESOLU] Bouton Radio qui modifient les macros d'autres Boutons

[GeGaX]

Bonjour,
Je vais essayé d'exprimer clairement mon souci.

J'ai 3 Boutons Radio qui représentent 3 types différents (AA / BB & CC)
J'ai 5 Boutons (Simple) qui représentent 5 types de compositions possibles ( 11 / 22 / 33 / 44 / 55 )

'
' A attribuer au Bouton Radio AA
'

' Macro attribuée au Bouton 11
     Sub Compo_11()
          Range("K15").Value = "11"
          Range("I21").Formula = "=I15"
          Range("I29").ClearContents
     End Sub
' Macro attribuée au Bouton  22
     Sub Compo_22()
          Range("K15").Value = "22"
          Range("I21").Formula = "=I15*(3/4)"
          Range("I29").Formula = "=I15*(1/4)"
     End Sub
' Macro attribuée au Bouton 33
     Sub Compo_33()
          Range("K15").Value = "33"
          Range("I21").Formula = "=I15*(1/2)"
          Range("I29").Formula = "=I15*(1/2)"
     End Sub
' Macro attribuée au Bouton 44
     Sub Compo_44()
          Range("K15").Value = "44"
          Range("I21").Formula = "=I15*(1/4)"
          Range("I29").Formula = "=I15*(3/4)"
     End Sub
' Macro attribuée au Bouton 55
     Sub Compo_55()
          Range("K15").Value = "55"
          Range("I21").ClearContents
          Range("I29").Formula = "=I15"
     End Sub
'
'
'
' A attribuer au Bouton Radio BB
'
' Macro attribuée au Bouton 11
     Sub Compo_11()
          Range("K15").Value = "11"
          Range("I24").Formula = "=I15"
          Range("I30").ClearContents
     End Sub
' Macro attribuée au Bouton  22
     Sub Compo_22()
          Range("K15").Value = "22"
          Range("I24").Formula = "=I15*(3/4)"
          Range("I30").Formula = "=I15*(1/4)"
     End Sub
' Macro attribuée au Bouton 33
     Sub Compo_33()
          Range("K15").Value = "33"
          Range("I24").Formula = "=I15*(1/2)"
          Range("I30").Formula = "=I15*(1/2)"
     End Sub
' Macro attribuée au Bouton 44
     Sub Compo_44()
          Range("K15").Value = "44"
          Range("I24").Formula = "=I15*(1/4)"
          Range("I30").Formula = "=I15*(3/4)"
     End Sub
' Macro attribuée au Bouton 55
     Sub Compo_55()
          Range("K15").Value = "55"
          Range("I24").ClearContents
          Range("I30").Formula = "=I15"
     End Sub
'
'
'
' A attribuer au Bouton Radio CC
'
' Macro attribuée au Bouton 11
     Sub Compo_11()
          Range("K15").Value = "11"
          Range("I25").Formula = "=I15"
          Range("I31").ClearContents
     End Sub
' Macro attribuée au Bouton  22
     Sub Compo_22()
          Range("K15").Value = "22"
          Range("I25").Formula = "=I15*(3/4)"
          Range("I31").Formula = "=I15*(1/4)"
     End Sub
' Macro attribuée au Bouton 33
     Sub Compo_33()
          Range("K15").Value = "33"
          Range("I25").Formula = "=I15*(1/2)"
          Range("I31").Formula = "=I15*(1/2)"
     End Sub
' Macro attribuée au Bouton 44
     Sub Compo_44()
          Range("K15").Value = "44"
          Range("I25").Formula = "=I15*(1/4)"
          Range("I31").Formula = "=I15*(3/4)"
     End Sub
' Macro attribuée au Bouton 55
     Sub Compo_55()
          Range("K15").Value = "55"
          Range("I25").ClearContents
          Range("I31").Formula = "=I15"
     End Sub

Je pense que vous allez hurler en voyant le code, qu'il y a moyen de faire mieux ... pour l'instant seule la partie "A attribuer au Bouton Radio BB" est active.
Les parties AA & CC sont commentées pour les laisser inactives, quant aux 3 Boutons Radio ils ne sont pas attribués a une macro et franchement je sais pas par quel bout commencé ... Un coup de pouce serait bienvenu.

 

[GeGaX]

Re : Bouton Radio qui modifient les macros d'autres Boutons

'----------------------------------------------------------------------'
' Chaque Boutons ( 100%M / 75%M-25%D / 50%M-50%D / 25%M-75%D / 100%D ) '
' doit pouvoir affecter les valeurs dans les bonnes cellules qui sont  '
' - Pour la "base" Lourds, les cellules : I21 & I29					   '
' - Pour la "base" Vétérans, les cellules : I24 & I30				   '
' - Pour la "base" Garde Royale, les cellules : I25 & I31			   '
'----------------------------------------------------------------------'


' le Bouton 100%M aura pour exercice
' les macros suivantes en fonction
' du Bouton Radio qui sera sélectionné
     Sub Compo_100_M_LOURDS()
          Range("K15").Value = "100 % M"
          Range("I21").Formula = "=I15"
          Range("I29").ClearContents
     End Sub
'
' OU
'
	 Sub Compo_100_M_VETERANS()
          Range("K15").Value = "100 % M"
          Range("I24").Formula = "=I15"
          Range("I30").ClearContents
     End Sub
'
' OU
'
     Sub Compo_100_M_GARDE_ROYALE()
          Range("K15").Value = "100 % M"
          Range("I25").Formula = "=I15"
          Range("I31").ClearContents
     End Sub



' le Bouton 75%M-25%D aura pour exercice
' les macros suivantes en fonction
' du Bouton Radio qui sera sélectionné
     Sub Compo_75_M_25_D_LOURDS()
          Range("K15").Value = "75 % M - 25 % D"
          Range("I21").Formula = "=I15*(3/4)"
          Range("I29").Formula = "=I15*(1/4)"
     End Sub
'
' OU
'
	 Sub Compo_75_M_25_D_VETERANS()
          Range("K15").Value = "75 % M - 25 % D"
          Range("I24").Formula = "=I15*(3/4)"
          Range("I30").Formula = "=I15*(1/4)"
     End Sub
'
' OU
'
     Sub Compo_75_M_25_D_GARDE_ROYALE()
          Range("K15").Value = "75 % M - 25 % D"
          Range("I25").Formula = "=I15*(3/4)"
          Range("I31").Formula = "=I15*(1/4)"
     End Sub



' le Bouton 50%M-50%D aura pour exercice
' les macros suivantes en fonction
' du Bouton Radio qui sera sélectionné
     Sub Compo_50_M_50_D_LOURDS()
          Range("K15").Value = "50 % M - 50 % D"
          Range("I21").Formula = "=I15*(1/2)"
          Range("I29").Formula = "=I15*(1/2)"
     End Sub
'
' OU
'
	 Sub Compo_50_M_50_D_VETERANS()
          Range("K15").Value = "50 % M - 50 % D"
          Range("I24").Formula = "=I15*(1/2)"
          Range("I30").Formula = "=I15*(1/2)"
     End Sub
'
' OU
'
     Sub Compo_50_M_50_D_GARDE_ROYALE()
          Range("K15").Value = "50 % M - 50 % D"
          Range("I25").Formula = "=I15*(1/2)"
          Range("I31").Formula = "=I15*(1/2)"
     End Sub



' le Bouton 25%M-75%D aura pour exercice
' les macros suivantes en fonction
' du Bouton Radio qui sera sélectionné
     Sub Compo_25_M_75_D_LOURDS()
          Range("K15").Value = "25 % M - 75 % D"
          Range("I21").Formula = "=I15*(1/4)"
          Range("I29").Formula = "=I15*(3/4)"
     End Sub
'
' OU
'
	 Sub Compo_25_M_75_D_VETERANS()
          Range("K15").Value = "25 % M - 75 % D"
          Range("I24").Formula = "=I15*(1/4)"
          Range("I30").Formula = "=I15*(3/4)"
     End Sub
'
' OU
'
     Sub Compo_25_M_75_D_GARDE_ROYALE()
          Range("K15").Value = "25 % M - 75 % D"
          Range("I25").Formula = "=I15*(1/4)"
          Range("I31").Formula = "=I15*(3/4)"
     End Sub



' le Bouton 100%D aura pour exercice
' les macros suivantes en fonction
' du Bouton Radio qui sera sélectionné
     Sub Compo_100_D_LOURDS()
          Range("K15").Value = "100 % D"
          Range("I21").ClearContents
          Range("I29").Formula = "=I15"
     End Sub
'
' OU
'
	 Sub Compo_100_D_VETERANS()
          Range("K15").Value = "100 % D"
          Range("I24").ClearContents
          Range("I30").Formula = "=I15"
     End Sub
'
' OU
'
     Sub Compo_100_D_GARDE_ROYALE()
          Range("K15").Value = "100 % D"
          Range("I25").ClearContents
          Range("I31").Formula = "=I15"
     End Sub

Voila une approche plus explicite de ce que je souhaite faire

 

[GeGaX]

Re : Bouton Radio qui modifient les macros d'autres Boutons

Personnes pour m'aiguiller dans ma quête ?

 

[Efgé]

Re : Bouton Radio qui modifient les macros d'autres Boutons

Bonjour GeGaX

Ta question montre quelques confusions.
Un contrôle (bouton, case à cocher etc...) doit posséder une et une seule macro.
A l'heure actuelle nous n'avons pas assez de renseignements.
Tes contrôles sont ils de types ActiveX ou formulaire ? Sont ils sur une feuille de classeur ou dans un UserForm ?

Tout ceci serait ,certainement, déja réglé, si tu avais déposé un fichier exemple annonyme (mais tu le sais puisque tu as , bien sur , lus la charte avant d'ouvrir ta discussion)

A toi de voir...

Cordialement

 

[GeGaX]

Re : Bouton Radio qui modifient les macros d'autres Boutons

Bonjour,
Tout d'abord merci Efgé.
Je joins un fichier exemple ( j'espère que ca sera plus compréhensible ...)

Dans le fichier, je n'utilise que la base vétérans elle est en "dure" dans les macro associées aux boutons.
Les boutons radio sont inactifs ( c'est la mon problème ), j'aimerais à l'aide de ces boutons radio pouvoir switcher de base (Lourds / Vétérans et Garde Royale)

Actuellement, si je veux affecter des soldats au type lourds ou garde royale, je fais mes tests (switch des compositions avec les boutons 'normaux' (qui sont sur la base vétérans) puis je rentre à la main les nombres sur le type de soldats souhaité.

C'est la derniers chose qui me reste à faire pour ce simulateur mais mes connaissances en VBA sont plus que limitées ...

Merci du coup de pouce, j'ai beau chercher sur le net je ne trouve pas comment relier les 3 boutons radio au 5 boutons 'normaux' qui eux même doivent pouvoir executer 3 types de calculs ( ca j'ai des pistes avec CASE )

Cdlt

 

[Efgé]

Re : Bouton Radio qui modifient les macros d'autres Boutons

Re
Une proposition.
Créer une variable public, qui pourra être utilisée par toutes les macros présentent dans le module de la feuill1
Lors du clic sur un bouton de choix, on récupère une valeur (1,2 ou 3 suivant le bouton).
Une macro par bouton (type 100M) et suivant le choix précédemmnt effectué, on lance telle ou telle macro.
J'ai fait l'exemple pour le bouton 100M

/!\ Pour être certain que la variable choix soit bien initialisée par l'utilisateur, j'ai ajouté une macro dans le module ThisworkBooK qui remet tous les option bouton a vide.

Comme tu utilises des controle formulaire, il est préférable d'enregistrer l'exemple avant de l'ouvrir.
Cordialement

 

[GeGaX]

Re : Bouton Radio qui modifient les macros d'autres Boutons

Efgé je sais pas comment te remercier !!! C'est exactement ce que je souhaitait faire.

J'ai plus qu'a coder le reste en suivant ton modèle (je vais en profiter pour comprendre la démarche et la façon de l'appliquer)
Merci encore une fois je passe le sujet en résolu

Kenavo et merci encore