copier coller boite à cocher (1074 fois)

[yann]

Bonjour à tous ma question semble simple mais je n'ai pas trouvé de réponse sur le forum !!

voici mon problème:
Je doit faire un tableau avec 179 lignes et chaque ligne comportera 7 boites à cocher !

comment faire une copie de ma première ligne sur les 178 autres avec les boites à cocher qui seraient lièes à une cellule de sa nouvelle ligne (format / contrôle / cellule liée) (voit fichier joint)
avec un simple copier coller la case à cocher reste liée à sa ligne d'origine !!!

merci d'avance si quelqu'un à une solution

YANN

P.S je suis en excel 97 / niveau VBA trés faible

 

[Ronan]

Bonsoir,

Une petite macro

Sub InsereListBox()
Application.ScreenUpdating = False
Cells.Select
Selection.RowHeight = 24
Range("a1").Select
a = 7.5
b = 3
For i = 1 To 179
Cells(i, 1).Select
ActiveSheet.DropDowns.Add(a, b, 202.5, 15.75).Select
With Selection
.ListFillRange = "" 'la liste des valeurs
.LinkedCell = "$E$" & i
.DropDownLines = 8
.Display3DShading = False
End With
b = b + 24
Next i
Range("a1").Select
Application.ScreenUpdating = True
End Sub

@+

Ronan