Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel déplacer pointeur (offset ?)

déplacer pointeur (offset ?)

3 réponses
Avatar
j-pascal
Bonjour à tous,

Je cherche à déplacer mon pointeur dans la cellule du dessous après saisie
d'une valeur au moyen d'une liste déroulante.

J'ai essayé d'adapter ce code de Claudy - 26/02/06

à placer dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([N:N], Target) Is Nothing Then
Range("N" & Target.Row + 1).Select
End If
End Sub

Ca ne marche pas !

Auriez-vous une idée ?

Un grand merci d'avance pour votre aide éventuelle,

JP
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
j-pascal
Re

Archi désolé, je viens de trouver ! (Je n'avais pas mis le code dans la
bonne feuille ;-( )

Bon dimanche,

JP

j-pascal wrote:
Bonjour à tous,

Je cherche à déplacer mon pointeur dans la cellule du dessous après
saisie d'une valeur au moyen d'une liste déroulante.

J'ai essayé d'adapter ce code de Claudy - 26/02/06

à placer dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([N:N], Target) Is Nothing Then
Range("N" & Target.Row + 1).Select
End If
End Sub

Ca ne marche pas !

Auriez-vous une idée ?

Un grand merci d'avance pour votre aide éventuelle,

JP


Avatar
JB
Bonjour,

http://cjoint.com/?gyuFFMJVhQ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([N:N], Target) Is Nothing Then
Target.Offset(1, 0).Select
End If
End Sub

Cordialement JB




Bonjour à tous,

Je cherche à déplacer mon pointeur dans la cellule du dessous après saisie
d'une valeur au moyen d'une liste déroulante.

J'ai essayé d'adapter ce code de Claudy - 26/02/06

à placer dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([N:N], Target) Is Nothing Then
Range("N" & Target.Row + 1).Select
End If
End Sub

Ca ne marche pas !

Auriez-vous une idée ?

Un grand merci d'avance pour votre aide éventuelle,

JP


Avatar
j-pascal
Bonsoir JB,

Merci pour la réponse et le fichier joint.

Comme je le disais plus haut, le code :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([N:N], Target) Is Nothing Then
Range("N" & Target.Row + 1).Select
End If
End Sub

... marche, mais je m'étais trompé de feuille !!

Le tien est plus concis, donc je vais le conserver pour le cas présent.

Bon dimanche,

JP


wrote:
Bonjour,

http://cjoint.com/?gyuFFMJVhQ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([N:N], Target) Is Nothing Then
Target.Offset(1, 0).Select
End If
End Sub

Cordialement JB




Bonjour à tous,

Je cherche à déplacer mon pointeur dans la cellule du dessous après
saisie d'une valeur au moyen d'une liste déroulante.

J'ai essayé d'adapter ce code de Claudy - 26/02/06

à placer dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect([N:N], Target) Is Nothing Then
Range("N" & Target.Row + 1).Select
End If
End Sub

Ca ne marche pas !

Auriez-vous une idée ?

Un grand merci d'avance pour votre aide éventuelle,

JP