Discussion :

[TonyRc]

Bonjour a tous,

Je cherche a implementer une formule variable en fonction d'un userform avec 3 options :

1 - Consolider Caption => Consolider!
2 - Ecart => Variance!
3 - Global => Global!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim x As object
 
Sheets("Sheet1").Select
 
x = Ctrl.Object.Caption
 
'
    Sheets("Report").select
    Range("S6").Select
    ActiveCell.FormulaR1C1 = "=SUMIF(" & x & "!C21,RC4," & x & "!C[-10])"
    Selection.AutoFill Destination:=Range("S6:S13")

Mais je n'arrive pas a obtenir la valeur du caption dans le private sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OptionButton1_Click()
 
Dim x as object
Dim Ctrl as control
 
Ctrl = OptionButton1.Value
 
If Ctrl = True Then
x = Ctrl.Caption.Value
End If
 
 
End Sub

Avez-vous une idee? Ou une autre methode de proceder? Comment puis-je realiser mon code?

Il y a 12 colonnes de 1400 lignes chacune. Le test est effectue sur les lignes 6 a 13 seulement.

Merci d'avance,

[rvtoulon]

Bonjour,peux etre comme çà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim x As String
Sheets("Sheet1").Select
 
If Me.OptionButton1.Value = True Then
x = Me.OptionButton1.Caption
End If
 
'
    Sheets("Report").Select
 '   etc.....