Microsoft 365 Déplacement curseur

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 18 Juin 2021

• #2

Bonjour JBL07, le forum

Fichier/Options/Options avancées/déplacer la sélection après validation

Bien cordialement, @+

 

Vote positif 0 Vote négatif

Solution

J

JBL07

XLDnaute Occasionnel

• 18 Juin 2021

• #3

Nickel, merci à toi !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Juin 2021

• #4

re
bonjour
ou bien uniquement dans la feuille concerné ou l'event global dans thisworkbook
en l’occurrence ici selon ton besoins le sheetchange ou selectchange
target.offset(1,1).select
et tu change rien dans tes paramètres

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Juin 2021

• #5

du genre comme ceci je l'ai retrouvé dans mes archives
et ça t’empêche pas de sélectionner avec la souris

VB:

Option Explicit
Dim oldcell As Range
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not oldcell Is Nothing Then
        If Target.Offset(-1).Address = oldcell.Address Then Target.Offset(-1, 1).Select
    End If
    Set oldcell = Selection
End Sub

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 22 Juin 2021

• #6

Merci Patricktoulon Je garde aussi l'astuce !

 

Vote positif 0 Vote négatif