Limitation de l'encodage à une seule cellule dans un ensemble de cellule

[gog232]

Bonjour à tous,

J'ai un petit tableau où mes collègues doivent répondre en mettant un X dans la case correspondante à leur niveau (soit en A1,B1,C1 ou D1); Je voudrai qu'il ne puisse mettre qu'un X et ce uniquement dans une seule cellule.

J'ai également une partie de ce tableau dans laquelle j'ai mis une mise en forme conditionnelle (couleur) dépendant du chiffre noté dans une autre cellule. Je voudrai pouvoir empêché que l'on ne note quoi que ce soit dans les cellules qui se grisent lors de la mise en forme conditionnelle. Et aussi appliquer le principe décris au premier paragraphe.


Un petit exemple en annexe

Merci d'avance à tous

Gog232

 

[Victor21]

Re : Limitation de l'encodage à une seule cellule dans un ensemble de cellule

Bonsoir, gog232

Pourquoi ne pas utiliser les cases d'option de la barre d'outils formulaire ?

 

[Gorfael]

Re : Limitation de l'encodage à une seule cellule dans un ensemble de cellule

Salut gog232 et le forum
Une proposition
Nota : on ne tient pas compte des cellules "grisée par MFC", n'étant pas exploitable par macro. on s'occupe des cellules définies par G14
A+

 

[kjin]

Re : Limitation de l'encodage à une seule cellule dans un ensemble de cellule

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G10:J11,G16:J19")) Is Nothing Then
    Application.EnableEvents = False
    If Target.Row > [G14] + 15 Then Application.Undo
    If Application.CountA(Range("G" & Target.Row & ":J" & Target.Row)) > 1 Then Application.Undo
    Application.EnableEvents = True
End If
End Sub

A+
kjin