Discussion :

[ordner]

Bonjour, Comment puis-je optimiser ce code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Gorfael]

Salut ordner et le forum

Comment puis-je optimiser ce code?

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

[ordner]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[drakkar_agfa]

Dans ce cas, fait une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sub ProcGlobale

Et avec ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub OptionButton5_Click()
Call OptionButton4_Click
End Sub

[Gorfael]

Salut ordner et le forum

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub OptionButton4_Click()
Macro1
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub OptionButton5_Click()
Macro1
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ordner]

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