Discussion :

[PtiLu01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

J'ai essayé le code.

pour moi ca fonctionne.

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

[PtiLu01]

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.


EFFECTIF SALARIES 2023.xlsm

[Valtrase]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Puis le code continue et on tombe sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      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...

[PtiLu01]

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.