Bonjour,
Le code ci-dessous prend une demi-seconde pour s'exécuter. Pouvez-vous l'améliorer ?
C'est l'insertion du "P" qui est anormalement longue.
PS. En calcul manuel, je passe à 0,4 sec.
Merci d'avance.
Daniel
Le code ci-dessous prend une demi-seconde pour s'exécuter. Pouvez-vous l'améliorer ?
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tabl() As Long, C As Range, Ctr As Long
deb = Timer
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target.Column = 9 Then
Target.Offset(1, -8).Select
ElseIf Target.Column = 3 Then
Target.Offset(, 3).Select
ElseIf Target.Column = 1 Then
If [L1] = 402 Then Target = "P" & Target
Debug.Print Timer - debC'est l'insertion du "P" qui est anormalement longue.
PS. En calcul manuel, je passe à 0,4 sec.
Merci d'avance.
Daniel