bonjour  
 
je cherche à programmer une macro excel
 
qui me permettrait de gérer des cases à option (3 ou 4 par ligne)
 
mais forcément indépendante sur chaque ligne
 
genre ça : http://bount.free.fr/excel/case_a_cocher_par_ligne.xls
 
comme je débute j'ai commencé à me familiariser avec le code
 
en enregistrant une macro et en regardant le code
 
malheureusement au bout de 2 cases déjà une réponse :
 

 
en cherchant la cause j'en reviens toujours à la même ligne en faute:

 
la définition de l''option button" manque d'arguments
 
si quelqu'un a une suggestion, une explication, un lien vers une aide plus détaillé que l'aide Excel
 
merci de votre aide  
 
en dernier recours je voudrais pouvoir le faire à la main mais toutes les cases à cocher sont liées
 
à la même cellule quelquesoit la ligne  
   
 

La collection Shapes ne contient que les formes, les dessins, pas les contrôles

d'accord merci
 
c'est sûrement pour ça qu'il m'insulte ...
 
j'ai vais chercher comme définir cette case alors.

oh merci merci merci
 
l'activesheet etait une fonction parasite qui me plantait ma macro    
 
juste une petit dernière question
 
elle se pose en programmation et en mode '" je fais tout à la main"
 
à chaque fois qu'on rajoute une case à cocher elle se lie automatiquement à toutes celles présentes sur la feuille
 
alors que moi je voudrais qu'elles soient indépendantes !!
 
merci en tout cas

voilà j'en suis proche mais la cellule liée est la même pour toutes les cases à cocher générées    
 

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

merci !!
 
définir une zone de groupe par ligne et englobant mes cases à option marche nickel !!
 
a+
 
noidecoc

Bonsoir à tous,
 
noidecoc : Et comment tu as écrit maintenant cette ligne :
 

 
pour éviter le message d'erreur :
 

 
Merci.

Si tu veux cocher l'option bouton, tu dois utiliser  

Je crois que même la premiere syntaxe est juste ..