Aide sur excel pour tableau de cotations

[patsel71]

Bonjour à tous,
Je viens vers vous chercher de l'aide pour améliorer un tableau de cotations (cf pièce jointe).

Ce tableau croise 6 critères de compétences par 5 niveaux.

Le principe retenu est de mettre une croix dans la case correspondant au choix retenu, ce qui détermine un nombre de points.

Mon problème se situe lorsque je veux changer de choix, cad mettre une croix à un autre niveau. Dans ce cas, le tableau conserve en mémoire la valeur donnée par la première croix et l'additionne à la nouvelle, ce qui n'est pas le but du jeu !
J'ai trouvé un biais, il suffit de taper sur la touche SUPPR dans la cellule de la première croix pour pallier ce défaut. Mais ce n'est pas top.
Qui pourrait m'apporter une aide pour que lorsque je tape un nouvelle croix, les valeurs de la ou des croix précédentes (dans la même colonne) soient supprimées automatiquement.

Un grand merci d'avance à ceux ou celles qui pourront m'apporter une aide.

 

[Compte Supprimé 979]

Re : Aide sur excel pour tableau de cotations

Salut Patsel71,

Avec un peu de VBA tu peux faire des miracles 😉

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim MemCel As Range
  ' Si la cellule sélectionnée est en dehors des cellules de compétence => on sort
  If Intersect(Target, Range("B6:B11,D6:D11,F6:F11,H6:H11,J6:J11")) Is Nothing Then Exit Sub
  ' si le nombre de cellules sélectionnées est >1 => on sort
  If Target.Count > 1 Then Exit Sub
  ' L'utilisateur à cliqué dans la bonne colonne
  ' Mémorise l'adresse de la cellule sélectionnée
  Set MemCel = Target
  ' Efface toutes les valeurs de la colonne
  Range(Cells(6, Target.Column), Cells(11, Target.Column)).ClearContents
  ' Inscrit le X au bon endroit
  Target.Value = "X"
End Sub

Voir fichier joint

A+