Verrouillage conditionnelle des cellules Résolu/Fermé

Question

Bonjour, 

j'ai un questionnaire pur lequel il y a 5 possibilités de réponse (très mauvais, mauvais,moyen, bien ,très bien).

Une seule cellule doit etre cochée. Donc j'aimerai verruiller les autres cellules, si une cellule est déjà coché..

j'ai essayé avec les instructions (if not is empty... locked ) en vain ...

Quelqu'un pourrait m'aider s'il vous plait ????


Configuration: Windows 7 / Internet Explorer 9.0

Utilisateur anonyme · Answer

Bonjour Lilidevv,

Je peux t'aider, mais pour cela, il me faut d'autres renseignements :

----------------------------------------------------------------------------------

1) Quel est l'emplacement des 5 cellules à cocher ?

Exemple 1 : des cellules B2 à F2 (disposition horizontale)
Exemple 2 : des cellules B2 à B6 (disposition verticale)

Si ces cellules ne sont pas contigües, tu dois m'indiquer l'emplacement
de chacune ! Exemple : B2, E8, C4, J12, G9

----------------------------------------------------------------------------------

2) Quel signe utilises-tu pour cocher la case ? Est-ce par exemple avec :

a) La lettre X minuscule : x ?
b) La lettre X majuscule ?
c) Une croix : × ?

Remarque : la croix × est obtenue au clavier de cette façon :

Appuie sur la touche < Alt > gauche (celle qui est contre le bord gauche
de la barre d'espace), et SANS la relâcher, tape sur le pavé numérique le
nombre 0215 (le 0 doit être tapé, même s'il est devant, et juste après
appui de la touche 5, relâche la touche < Alt > gauche).

Si tu as réussi, le signe × doit apparaître à l'écran ; sinon, c'est que tu as
fait une fausse manœuvre : tu as relâché la touche < Alt > trop tôt ou
tu t'es trompé en entrant le code numérique.

Pour mettre une coche, j'utilise souvent la lettre X minuscule (x),
mais tu peux choisir n'importe quel symbole de ton choix.

----------------------------------------------------------------------------------

Ensuite, je te dirai quelle est la formule à utiliser ; mais sache que
le locked dont tu parles sert à verrouiller ou non une cellule (vrai ou
faux) ; ainsi, lorsque la feuille de calcul est protégée, l'utilisateur ne
pourra pas saisir une valeur dans cette cellule si elle est verrouillée
(si locked = True) ; à l'inverse, saisie autorisée si locked = False.
Mais la solution que je te proposerai n'en n'a pas besoin.

Cordialement. 😊

Patrice33740 · Answer

Bonjour,

Avec des cases à cocher :
https://www.cjoint.com/c/FDqmNI74u2B

Patrice33740 · Answer

Re,

Pour prendre aussi en compte la saisie directe dans les cellules (en plus du clic droit), il vaut mieux :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim c As Range
  Set r = Range("C6:H8")
  Set c = Intersect(r, Target.Cells(1, 1))
  If c Is Nothing Then Exit Sub
  Cancel = True
  c.Formula = "X"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim c As Range
  Set r = Range("C6:H8")
  Set c = Intersect(r, Target.Cells(1, 1))
  If c Is Nothing Then Exit Sub
  Cancel = True
  Application.EnableEvents = False
  r.Rows(c.Row - r.Row + 1).ClearContents
  c.Formula = "X"
  Application.EnableEvents = True
End Sub

Verrouillage conditionnelle des cellules

3 réponses

Discussions similaires