Bonjour à tous,

Voila mon soucis:

J'ai besoin d'intégrer dans chaque cellule de ma colonne f:f des cases à cocher ou des carrés. Je prise que les deux solutions sont égales car les cases seront cochées à la main après impression de mon document.

Pour le moment j'ai le code suivant:

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
Sub CréerCase()
Sheets("Export").Select
'A revoir
Dim Cellule As Range
For Each Cellule In Range("F2:F300")
  With Cellule
    .Select
    ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
  End With
 
  With Selection
    .LinkedCell = Cellule.Offset(0, 1).Address
    .Characters.Text = "" & Cellule.Row
  End With
Next Cellule
 
End Sub
Celui-ci me pose deux problèmes:
- Quand je coche une case, la valeur vrai/faux remplace la valeur présente dans la cellule de droite.
- Les numéros des dernières cases ne correspondent pas aux numéros de ligne. Par exemple à la ligne F200 j'ai la case 198.

Merci par avance
Cordialement