Code VBA ne fonctionne qu'à moitié

Bonjour à tous,

J'ai un code VBA pour mettre une croix (X) par double clic dans certaine cellule, mais à partir de la colonne BB (oui j'ai beaucoup de colonne) la croix s'affiche et disparait aussitôt!!!
Toute les cellule avant fonctionne bien.

Quelqu'un peux m'aidé svp??

Si dessous mon code VBA:

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("AD11:DE41"), Target) Is Nothing Then If UCase(Target) = "X" Then Target = "" Else Target = "X" Cancel = True End If

---

Merci d'avance

J'ai essayé le code.

pour moi ca fonctionne.

Y aurait il une autre macro qui effacerait le X ???

Je sais pas mais effectivement j'ai d'autre code similaire...
je suis autodidacte sur Excel alors il est possible qu'il y ai des formules ou macro mal écrite ou pas optimisées...
voici mon fichier ca sera plus simple peut être.


Pièce jointe 635009

Salut,
Bé oui ça ne fonctionne pas c'est normal avec ce code, pour par exemple double clic sur BB11 tu va remplir cette condition

Code:

---

If Not Intersect(Range("AD11:DE41"), Target) Is Nothing Then

---

Puis le code continue et on tombe sur :

Code:

---

If Not Intersect(Range("BB11:BB41,BD11:BD41,BF11:BF41,BH11:BH41......."), Target) Is Nothing Then

---

Qui va être aussi validé cela va donc décocher la cellule

Verrifie bien toutes tes adresses...

Ah put*** je suis trop c**...
A force de modifier mes codes j'ai pas vu qu'il y avait doublon.... et c'est pas faute d'avoir lu et relu...
Merci infiniment... Vous êtes super
c'est génial. j'ai réparé et ça fonctionne.
je tacherai d'être plus vigilant. :D