Bonjour à toutes et à tous
J'ai un souci dans mon code TARGET :
Contexte
j'ai à saisir des valeurs dans les cellules de I6 à I12
par exemple pour I6 que si la valeur saisie est supérieure à K6 alors I6 prend la valeur de K6
I6 prend bien la valeur de K6
Mais le fichier beug en se refermant. J'ai du zapper un truc lol
Pourriez-vous m'aider ?
En cas, je joins le fichier test.
Un grand merci par avance...
J'ai un souci dans mon code TARGET :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("i6:i12")) Is Nothing Then
Target.Activate
If Target > [k6] Then
Target = [k6].Value
[a1].Select
Exit Sub
Else
Target.Activate
Target = Target.Value
[a1].Select
Exit Sub
End If
End If
End Sub
j'ai à saisir des valeurs dans les cellules de I6 à I12
par exemple pour I6 que si la valeur saisie est supérieure à K6 alors I6 prend la valeur de K6
I6 prend bien la valeur de K6
Mais le fichier beug en se refermant. J'ai du zapper un truc lol
Pourriez-vous m'aider ?
En cas, je joins le fichier test.
Un grand merci par avance...