Discussion :

[Oh!Tofocus]

Saluts à tous
J'ai un déction de changement de sélection dans une feuille.
Mais dans la macro associée a cette détection je voudrais pouvoir faire une selection sans que ma routine ne le détecte.
Si non elle s'emballe et tourne en rond

comment désactiver la détection pendant l'execution de ma macro ?

voici un exemple simplifié de macro qui s'emballe:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_SelectionChange(ByVal target As Range)
 
' selectionne la case a droite de la case sélectionnée
 
Cells(target.Row, target.Column + 1).Select
 
End Sub

[SilkyRoad]

bonsoir


Tu peux utiliser la propriété EnableEvents.

http://silkyroad.developpez.com/VBA/EvenementsFeuille/


ps
est ce que tu es vraiment obligé d'utiliser le .Select ?


bonne soirée
michel

[Oh!Tofocus]

Merci beaucoup pour cette réponse rapide ça marche impec

est ce que tu es vraiment obligé d'utiliser le .Select ?

oui car je l'utilise pour afficher ou effacer une croix dans une case en faisant un click dessus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
 
If Target.Value = "x" Then
Target.Value = " "
Else
Target.Value = "x"
End If
'déplace la selection pour pouvoir effacer la croix si necessaire
Cells(Target.Row, Target.Column + 1).Select
 
Application.EnableEvents = True
End Sub

par contre je voudrais détecter si target est sur une colonne déterminée mais je n'arrive pas à utiliser Intersect avec target et range("C:C")

Code :

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

1
2
3
4
5
 
test = Intersect(Range("C:C"), Range(Target.Address))
If test Is Nothing Then
'.....
'....

ça plante à test =....

[Oh!Tofocus]

Mais peut être y a t il plus simple pour basculer d'interieurs d'une case d'un simple clic de souris dessus ?

[Oh!Tofocus]

A propos du test de colonne
je viens de trouver ceci

Code :

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

1
2
3
4
5
6
 
'execute uniquement si target est dans la colonne C:C (3)
If Target.Column = 3 Then
'....
'....
endif

mais ça ne résoud pas mon incomprehension pour Intersect

[SilkyRoad]

rebonsoir

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Test As Range
    Set Test = Intersect(Columns("C:C"), Target)
 
    If Not Test Is Nothing Then MsgBox "Ok"
End Sub

michel

[Oh!Tofocus]

EXTRA !!!!

Merci beaucoup pour ce coup de main