Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Je ne trouve pas la bonne syntaxe pour dire que ;
si je saisis en ligne 14 alors après validation je me déplace sur la ligne du dessous (même colonne)
que faut-il mettre devant : ActiveCell.Offset(1, 0).Select pour signifier la ligne 14...
(code actuel ci-dessous)
mais si je saisis en ligne 15 alors après validation je me déplace sur la ligne du dessus (+1 colonne)
que faut-il mettre devant : ActiveCell.Offset(-1, 1).Select pour signifier la ligne 15...
If Not Intersect([ChampMFC], Target) Is Nothing Then ' CODE DE J.B
Application.EnableEvents = False
On Error Resume Next
[couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
ActiveCell.Offset(1, 0).Select
Application.EnableEvents = True
End If
Merci pour votre aide si précieuse.
Cordialement,
Christian
Je ne trouve pas la bonne syntaxe pour dire que ;
si je saisis en ligne 14 alors après validation je me déplace sur la ligne du dessous (même colonne)
que faut-il mettre devant : ActiveCell.Offset(1, 0).Select pour signifier la ligne 14...
(code actuel ci-dessous)
mais si je saisis en ligne 15 alors après validation je me déplace sur la ligne du dessus (+1 colonne)
que faut-il mettre devant : ActiveCell.Offset(-1, 1).Select pour signifier la ligne 15...
If Not Intersect([ChampMFC], Target) Is Nothing Then ' CODE DE J.B
Application.EnableEvents = False
On Error Resume Next
[couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
ActiveCell.Offset(1, 0).Select
Application.EnableEvents = True
End If
Merci pour votre aide si précieuse.
Cordialement,
Christian