Discussion :

[tienne1]

Bonjour a tous.

Je suis en train de travailler sur un code depuis qq heures et je bute sur qqchose. Pour vous expliquer, j'ai reussi a afficher par ligne 3 option button. en fonction de celui qui est cocher par ligne, j'aimerai que cela me renvoie dans une colonne 2 valeurs situer cote-cote ds mon fichier excel. Donc, en gros, j'ai 6 colonnes (3 pr le min et 3 pr le max) En fonction de l'option button cocher, j'aurais une derniere colonne qui m'affichera en fonction de l'option button cocher , le min et le max.
ci dessous le 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 22/10/2006 par Admin
'
 
'
 
ActiveSheet.OptionButtons.Delete
ActiveSheet.GroupBoxes.Delete
i = 1
j = 36
While i < 60
 
 
    ActiveSheet.OptionButtons.Add(59.25, j, 24, 17.25).Select
   Selection.Characters.Text = ""
    OptionButtons.Value = True
    ActiveSheet.OptionButtons.Add(89.25, j, 24, 17.25).Select
    Selection.Characters.Text = ""
 
 
    ActiveSheet.OptionButtons.Add(119.25, j, 24, 17.25).Select
    Selection.Characters.Text = ""
 
    With Selection
.Value.xlOff
        .LinkedCell = "D" & "Sheet1!" & .Cells(i, 4).Address
        .Display3DShading = False
    End With
 
   ActiveSheet.GroupBoxes.Add(45.75, j - 2, 114, 34.5).Select
   GroupBoxes.Text = ""
    i = i + 1
    j = j + 30
    Wend
End Sub

J'aimerais savoir comment faire le lien avec les differentes cellules.
Merci par avance pour votre aide.