Optimisation de mon code

Version imprimable

Bonjour, Comment puis-je optimiser ce code?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub OptionButton4_Click()
    Select Case ActiveSheet.Name
        Case "Janv"
        [Janv!N1].Value = 2
        Case "Fév"
        [Fév!N1].Value = 2
        Case "Mars"
        [Mars!N1].Value = 2
        Case "Avril"
        [Avril!N1].Value = 2
        Case "Mai"
        [Mai!N1].Value = 2
        Case "Juin"
        [Juin!N1].Value = 2
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub OptionButton5_Click()
    Select Case ActiveSheet.Name
        Case "Janv"
        [Janv!N2].Value = 2
        Case "Fév"
        [Fév!N2].Value = 2
        Case "Mars"
        [Mars!N2].Value = 2
        Case "Avril"
        [Avril!N2].Value = 2
        Case "Mai"
        [Mai!N2].Value = 2
        Case "Juin"
        [Juin!N2].Value = 2
    End Select
End Sub

Merci.

05/03/2009, 18h20
Gorfael

Salut ordner et le forum

Citation:

Comment puis-je optimiser ce code?

Et si tu expliquais ce que tu veux faire ?
A+

Bjr,

Je souhaiterais ne créer qu'une fonction car la seule chose qui différencie ces deux fonctions est le nom des boutons d'option. Le contenu reste le même.

Par exemple mais cela ne marche pas:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub OptionButton(4,5)_Click() Select Case ActiveSheet.Name Case "Janv" [Janv!N2].Value = 2 Case "Fév" [Fév!N2].Value = 2 Case "Mars" [Mars!N2].Value = 2 Case "Avril" [Avril!N2].Value = 2 Case "Mai" [Mai!N2].Value = 2 Case "Juin" [Juin!N2].Value = 2 End Select End Sub
Je ferais ainsi un gain de place.
Merci.

05/03/2009, 18h54
drakkar_agfa
Dans ce cas, fait une fonction

Code:

sub ProcGlobale

Et avec ceci
Code:

1 2 3 4 5 6 7 Private Sub OptionButton4_Click() Call ProcGloabale End Sub Private Sub OptionButton5_Click() Call ProcGloabale End Sub
Dans les deux boutons, tu apelles la même procédure.

Sinon, tu peux laisser ta fonction Bouton4 comme elle est et
Code:

1 2 3 4 Private Sub OptionButton5_Click() Call OptionButton4_Click End Sub
05/03/2009, 19h13
Gorfael
Salut ordner et le forum

Citation:

Je souhaiterais ne créer qu'une fonction car la seule chose qui différencie ces deux fonctions est le nom des boutons d'option. Le contenu reste le même.
Code:

1 2 3 4 5 6 7 8 Sub test() Select Case application.caller case "OptionButton4" ActiveSheet.[N1] = 2 case "OptionButton5" ActiveSheet.[N2] = 2 End Select End Sub
Tes deux OptionButton lancent la macro test
A+
06/03/2009, 10h46
laetitia
bonjour ordner drakkar_agfa Gorfael le forum

a moins de passer par un module de classe pour avoir le resultat que tu cherches!! le pb.. cree un module de classe pour 2 malheureux optio..
par contre tes optio...sont numerotes 4 & 5 si tu en as d autres qui font la meme chose sur des cellules differentes le module de classe peut etre interessant

je t ais aussi fais un petit ex j appelle les feuilles par leur numero & non leur nom
dans un userform

Option Explicit
Dim s As Variant
Code:

1 2 3 Private Sub OptionButton4_Click() Macro1 End Sub
Code:

1 2 3 Private Sub OptionButton5_Click() Macro1 End Sub
Code:

1 2 3 4 5 Sub Macro1() For Each s In Array(1, 2, 3, 4, 5, 6) Sheets(s).Activate: If OptionButton4 = True Then [n1] = 2 Else [n2] = 2 Next s End Sub
06/03/2009, 16h19
ordner

Merci pour vos réponses. Bonne journée à tous.