bonsoir,
essayes ceci:
Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 22/10/2006 par Admin
'
'
i = 3
j = 36
While i < 60
ActiveSheet.OptionButtons.Add(59.25, j, 24, 17.25).Select
Selection.Characters.Text = "1"
ActiveSheet.OptionButtons.Add(89.25, j, 24, 17.25).Select
Selection.Characters.Text = "2"
ActiveSheet.OptionButtons.Add(119.25, j, 24, 17.25).Select
Selection.Characters.Text = "3"
With Selection
.Value = xlOff
.LinkedCell = "E" & i
.Display3DShading = False
End With
ActiveSheet.GroupBoxes.Add(45.75, j - 11, 114, 34.5).Select
i = i + 1
j = j + 36
Wend
End Sub
Cordialement
Message édité par seniorpapou le 22-10-2006 à 21:54:37