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

G

GeGaX

XLDnaute Nouveau
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 )

Code: 
'
' 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.
 
Dernière édition:
Trier par date Trier par votes
G

GeGaX

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

Code: 
'----------------------------------------------------------------------'
' 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
 
Vote positif 0 Vote négatif
Efgé

Efgé

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif
G

GeGaX

XLDnaute Nouveau
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
 

Pièces jointes

  • Exemple.xlsm
    35.2 KB · Affichages: 32
  • Exemple.xlsm
    35.2 KB · Affichages: 35
  • Exemple.xlsm
    35.2 KB · Affichages: 39
Vote positif 0 Vote négatif
Efgé

Efgé

XLDnaute Barbatruc
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
 

Pièces jointes

  • Exemple(2).xlsm
    26.5 KB · Affichages: 32
  • Exemple(2).xlsm
    26.5 KB · Affichages: 37
  • Exemple(2).xlsm
    26.5 KB · Affichages: 36
Vote positif 0 Vote négatif
G

GeGaX

XLDnaute Nouveau
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. :D

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 ;)
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
530
phoceenjo
P
tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
406
tactic6
tactic6
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
950
Vermithor
V
Nicolas JACQUIN
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
886
Nicolas JACQUIN
Nicolas JACQUIN
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
879
Phil69970
Phil69970
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
220
crocrocro
C
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
3 K
fanou06
F
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
770
fanfan38
fanfan38
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
697
TooFatBoy
TooFatBoy
F
  • Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
520
job75
job75

Membres actuellement en ligne

10 membres et 74 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 644
Messages
2 111 529
Membres
111 189
dernier inscrit
Laurent.