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.
Merci pour votre aide
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.
VB:
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