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:
J'aimerais savoir comment faire le lien avec les differentes cellules.
Merci par avance pour votre aide.
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:
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.
Dernière édition: