Boutons Radios et macros

0

Bonjour,

Une idée pour réaliser ceci ?

 
' En partant de 3 Boutons Radios (LOURDS / VETERANS & GARDE ROYALE),
' 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
Merci

Cdlt

GeGaX

Posté le 11 septembre 2014, 13:32
par GeGaX
Répondre
0

visiblement nan ... :'(

Posté le 11 septembre 2014, 19:47
par GeGaX
0

Tchuss,
Ben fait un select case sur chaque bouton radio.
Du genre :

Select case MonBoutonRadio.value
	Case True
	Case False
End Select
mariowilli Posté le 12 septembre 2014, 11:42
par mariowilli

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :