Microsoft 365 Simplification code

[Francky79]

Bonjour,

Il y a un moyen de rendre ce code plus simple et plus rapide ?
Remplir les cellules J et jusqu'à AB avec n de la ligne active par double clic.

If Not Intersect([J6:J600], Target) Is Nothing Then
    a = Array("n")
    p = Application.Match(Target, a, 0)
    If IsError(p) Then
       Target = a(0)
    Else
       If p > UBound(a) Then p = 0
       Target = a(p)
    End If
    Cancel = True
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 3).Activate
 ActiveCell.Value = "n"
    ActiveCell.Offset(0, 1).Activate
 ActiveCell.Value = "n"
    
  End If

Merci pour votre aide

 

[sylvanu]

Bonjour Francky,
Peut être avec :

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Range("J" & Target.Row & ":AB" & Target.Row) = "n"
End Sub

A mettre dans la feuille concernée.

 

[Francky79]

Merci sylvanu 👍