Recuperer la valeur d'une caption

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:

---

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:

---

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,

Bonjour,peux etre comme çà :

Code:

---

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.....

---