Afficher une croix/date avec doucle-click en fonction de la colonne choisie

Bonjour,

je suis entrain de faire un fichier de suivi qui comporte un tableau avec beaucoup de colonnes.

J'aurais besoins que :

- Dans certaines colonnes, quand je double click dans une cellule, la date du jour apparaisse.

- Dans certaines autres colonnes, quand je double click dans une cellule, une croix apparaisse.

- Je puisse double clicker dans les autres cellules des autres colonnes du tableau pour y rentrer autre chose manuellement.

j'ai tenté un code trouvé sur ce forum :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("SUIVI[RÉDIGÉE];SUIVI[VALIDEE]"), Target) Is Nothing Then Exit Sub
  If UCase(Target) = "X" Then Target = "" Else Target = "X"
  Cancel = True
End Sub

mais plusieurs problèmes apparaissent :

- Je ne peux pas mettre toutes les colonnes que je souhaite de mon tableau dans mon "Range" (a partir d'un moment ca ne fonctionne plus, je dois mettre 13 colonnes qui doivent afficher des croix et 5 qui affichent la date du jour)

- je n'ai pas réussis à coupler ce code avec le même pour faire les croix et les dates dans des zones différentes.

Pourriez-vous m'aider s'il vous plait ?

Merci par avance

Bonjour,

Un truc comme ça ?

J'ai viré "Exit Sub" que j'ai remplacé par "If Not"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Union(Range("A:B"), Range("D:F"), Range("M:N"), Range("Q:Z")), Target) Is Nothing Then
  If UCase(Target) = "X" Then Target = "" Else Target = "X"
  Cancel = True
End If

If Not Intersect(Range("C:C"), Target) Is Nothing Then
  If UCase(Target) = "" Then Target = Date Else Target = ""
  Cancel = True
End If
End Sub

Les colonnes A B D E F M N Q...Z vont avoir une croix ou l'enlever au double clic
La colonne C aura la date au double clic si la cellule est vide, sinon elle vide la cellule

A+