Bouton radio agissant sur bouton qui gère 3 macros

Bonjour,

Je reviens à nouveau vers vous (le VBA, c 'est top ! ) mais mes connaissances sont limitées, je fais du bricolage fonctionnel si vous verriez le code vous me diriez arrête toi de suite et retourne faire autre chose ...

Ma feuille excel est un simulateur de combat pour un jeu populaire en ce moment, et il me reste une dernière chose à faire pour quelle soit 100% fonctionnelle pour tout ceux de mon alliance.

J'aimerais attribuer à un bouton radio un type de soldats, ex: Soldats_Lourds, cette attribution me sert pour switcher leurs compositions, ex: 100%M ou 75%M-25%D, ces compos se font automatiquement cliquant sur un bouton et inscrit le nombre de Soldats en conséquence dans le tableau seulement j'arrive pas a attribuer mon module1 au bouton radio 1 etc ...

En Vert : Les fameux Bouton Radio qui définissent le type de soldats (Non fonctionnels)

En Jaune : Les boutons qui repartissent automatiquement le nombres de soldats au type de soldat (ex si je clic sur 100%M et que j'ai rempli la case NB_Soldats_Flancs avec 150, les 150 sont attribués automatiquement au Epées 2 Mains ) (Fonctionnel)

En Rouge : c'est la que je visualise l'attribution des boutons compositions

Voila le code pour les boutons Composition:

Sub Compo_100_M()
    Range("K15").Value = "100 % M"
    Range("I24").Formula = "=I15"
    Range("I30").ClearContents
End Sub
Sub Compo_75_M_25_D()
    Range("K15").Value = "75 % M - 25 % D"
    Range("I24").Formula = "=I15*(3/4)"
    Range("I30").Formula = "=I15*(1/4)"
End Sub
Sub Compo_50_M_50_D()
    Range("K15").Value = "50 % M - 50 % D"
    Range("I24").Formula = "=I15*(1/2)"
    Range("I30").Formula = "=I15*(1/2)"
End Sub
Sub Compo_25_M_75_D()
    Range("K15").Value = "25 % M - 75 % D"
    Range("I24").Formula = "=I15*(1/4)"
    Range("I30").Formula = "=I15*(3/4)"
End Sub
Sub Compo_100_D()
    Range("K15").Value = "100 % D"
    Range("I24").ClearContents
    Range("I30").Formula = "=I15"
End Sub

Les boutons radio doivent agir sur les cellules suivantes

Lourds : I21 et I29

Vétérans : I24 et 30

Garde Roy : I25 et I31

et c 'est la que je peche je vois pas comment faire ... je pensais que j'aurais pu attribuer le module 1 contenant les formules pour les Lourds puis le module 2 pour les Vétérans et en dernier le module 3 pour la Garde Roy. mais quand je vais ça il me dit nom ambiguë ... surement car il détecte 3 formule identiques ...

Si vous voulez bien me donner un dernier coup de pouce ça serait top

Merci

Cdlt

GeGaX

je me permet un petit up

Ma requête doit pas être ton complexe je pense mais la c'est trop compliqué pour moi ... dites moi de quels cotés chercher si vous avez pas le temps svp

Merci

Cdlt

GeGaX

Salut le Forum

Un fichier serait utile afin de nous éviter de tous recréer.

Mytå

J'ai édité et ajouté le fichier comme conseillé

Merci

Cdlt

GeGaX

'----------------------------------------------------------------------------------------------------------------'
' 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 pour ce que je souhaite faire

Si vous avez des questions je me ferais une joie d'y répondre

Bon visiblement ca doit être trop compliqué ...

Bonjour,

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