XL 2010 Déplacement curseur 2 cases vers la droite suite à lecture code barre

[Guy Bl]

Bonsoir à tous.

Je fait la lecture d'un code barre avec douchette dans une cellule la colonne B, et je voudrais que lors de la validation le curseur se déplace de deux cellule vers la droite (par code VB)

Merci pour votre aide.

Guy B

 

[Staple1600]

Bonsoir le fil

Guy BI
Tu as déjà de quoi te mettre sur la piste, non ?
Dans tes deux précédentes questions...
(je le sais, j'y suis passé 😉)

 

[Guy Bl]

Bonsoir le fil

Guy BI
Tu as déjà de quoi te mettre sur la piste, non ?
Dans tes deux précédentes questions...
(je le sais, j'y suis passé 😉)

Je vais regarder les autres code... je n'est pas besoin d'autre instruction que celle utilisé?

 

[Staple1600]

Re

Poser des questions c''est bien
Chercher à comprendre les réponses fournies (en étudiant le code VBA c'est mieux) 😉

 

[Guy Bl]

Re

Poser des questions c''est bien
Chercher à comprendre les réponses fournies (en étudiant le code VBA c'est mieux) 😉

C'est ce que je vais faire... (je fais mes premier pas en VB)

 

[Staple1600]

Re

C'était pas si compliqué, non ? 😉

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
MsgBox Target.Offset(, 1).Address
MsgBox Target.Offset(, 3).Address
MsgBox Target.Offset(, Val("Staple") + 1600).Address ' pour le gag ;-)
MsgBox Target.Offset(, 2).Address(False, False)
End If
End Sub

Tu sais désormais déplacer le curseur vers la droite 😉

 

[Guy Bl]

Re

C'était pas si compliqué, non ? 😉

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
MsgBox Target.Offset(, 1).Address
MsgBox Target.Offset(, 3).Address
MsgBox Target.Offset(, Val("Staple") + 1600).Address ' pour le gag ;-)
MsgBox Target.Offset(, 2).Address(False, False)
End If
End Sub

Tu sais désormais déplacer le curseur vers la droite 😉

Désolé Staple 1600...

j'ai mis le code, j'ai des boites de dialogue qui s'ouvre et déplacement du curseur vers le bas...

 

[Staple1600]

Re

Le code présenté était un exemple censé être illustratif... 🙄
Le même avec des commentaires

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
MsgBox Target.Offset(, 1).Address 'décale d'une cellule vers la droite
'd'où le 1
MsgBox Target.Offset(, 3).Address ' décale de 3 d'où le 3
MsgBox Target.Offset(, Val("Staple") + 1600).Address ' pour le gag ;-)
MsgBox Target.Offset(, 2).Address(False, False) 'donc ici on décale de ?
'je te laisse deviner ;)
'L'emploi de MsgBox était pour montrer le déplacement
End If
End Sub

 

[Guy Bl]

Désolé Staple 1600...

j'ai mis le code, j'ai des boites de dialogue qui s'ouvre et déplacement du curseur vers le bas...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
ActiveCell.Offset(-1, 2).Select
End If
End Sub


Je viens de mettre se code.
Merci pour ton aide

 

[Staple1600]

Re

Pourquoi -1 et pourquoi ActiveCell ?

 

[Guy Bl]

Re

Pourquoi -1 et pourquoi ActiveCell ?

Car si je mets 0 le curseur se déplace de 2 cellules vers la droite et 1 cellule en dessous.
En mettant Target.Offset(0, 2).Select, tout va bien.
Merci de m'avoir fait la remarque.