XL 2013 Amélioration code VBA

vgendron

XLDnaute Barbatruc

• 21 Avril 2023

• #2

Bonjour

Si je devine ton besoin
tu as un tableau avec plusieurs colonnes
tu souhaites pouvoir mettre UNE seule croix parmis ces colonnes..

à chaque clic, il faut donc effacer les colonnes (de la ligne concernée) et mettre la croix sur la target
un bout de fichier serait utile

 

Vote positif 0 Vote négatif

K

Kaizers

XLDnaute Occasionnel

• 21 Avril 2023

• #3

Sur une seule colonne, en fait je mets un X, comme ca j'ai une recherchev aui cherche ce X
Donc si je clique ailleurs il me faut que 1 seul X

de A1:A20 et uniquement sur cette plage un seul X

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Avril 2023

• #4

ha ok..
ton clearcontents est bon je pense.. il faut juste le placer au bon endroit dans ton code
en prenant soin de desactiver les évènements pour éviter de lancer en boucle le code de l'évent change..

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F8:F19")) Is Nothing Then 'modifie ton tableau
application.enableevents=false
Range("F8:F19").clearcontents
target.Value = iif(Tarrget.Value = "X";"";"X")
End If
application.enableevents=true
End Sub

 

Vote positif 0 Vote négatif

Solution

K

Kaizers

XLDnaute Occasionnel

• 21 Avril 2023

• #5

C'est exactement ca
merci bcp

 

Vote positif 0 Vote négatif

K

Kaizers

XLDnaute Occasionnel

• 21 Avril 2023

• #6

ca a fonctionné et maintenant plus je sais pas ce que j'ai fait ^^

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 21 Avril 2023

• #7

vu l'erreur dans mon code

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F8:F19")) Is Nothing Then 'modifie ton tableau
application.enableevents=false
Range("F8:F19").clearcontents
target.Value = iif(Target.Value = "X";"";"X") 'il y avait un r de trop sur target dans iif
End If
application.enableevents=true
End Sub

 

Vote positif 0 Vote négatif