Problème Private sub

[laurent998]

Bonjour,

Je ne suis pas expert en macro, et ,je rencontre un petit problème.
J'ai créé une private sub qui est:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("F37").Value < 0 Then
Range("F37").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
If Range("F37").Value > 0 Then
Range("F37").Select
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With
End If
End Sub

Par conséquent je ne peux plus travailler sur ma feuille, car le curseur reste bloqué sur la case F37.

Est-ce que quelqu'un peut m'aider?

Merci d'avance.

 

[mromain]

Re : Problème Private sub

bonjour laurent,

à tester :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("F37").Value < 0 Then
With Range("F37").Font
.Color = -16776961
.TintAndShade = 0
End With
End If
If Range("F37").Value > 0 Then
With Range("F37").Font
.Color = -11489280
.TintAndShade = 0
End With
End If
End Sub

a+

 

[jp14]

Re : Problème Private sub

Bonjour

Il y a une réentrance avec
Range("F37").Select,
C'est à dire la macro s'appelle.
Quand le code ci dessus ( Range("F37").Select ) est exécuté la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range) est appelé, et ainsi de suite.

Il faut interdire cette opération
en utilisant le code ci dessous

Application.EnableEvents = False

Application.EnableEvents = True

Ou un drapeau

Dim flag As Boolean ' à déclarer en tête de module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If flag = True Then Exit Sub
flag = True
corps de la macro
flag = False
end sub

JP

 

[phlaurent55]

Re : Problème Private sub

Bonjour à tous,

je pense que la solution la plus simple serait de faire une mise en forme conditionnelle sur la cellule concernée

bonne fin de journée