Quelle syntaxe pour ActiveCell.Offset...

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
 

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
361
Réponses
2
Affichages
569

Statistiques des forums

Discussions
312 895
Messages
2 093 384
Membres
105 715
dernier inscrit
Yoenai