Bonjour tout le monde ,
J'aurais besoin d'un petit coup de main. Je m'expliques.
J'utilise dans mon tableau Excel des cases à coche. Lorsque ma case à coche en "A6" est décochée et donc renvoie la valeur "FAUX"
J'aimerais qu'une dizaine de cases en dessous soit verrouillées afin qu'il ne soit pas possible de les modifier.
J'ai tenté ce code un peu amateur mais rien à faire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CheckBox1_Click()
Dim Variable As Long
Variable = 7 + ActiveSheet.Range("C3") - 1
If CheckBox1.Value = False Then
Range("c7", "c" & Variable).Locked = True
Else
If CheckBox1.Value = True Then
Range("c7", "c" & Variable). Locked = False
  End If
   End If
End Sub
Le problème provient de mon application de la fonction Locked qui semble être incorrect