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

Guy Bl · 5 Mars 2020

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 · 5 Mars 2020

Re

Pourquoi -1 et pourquoi ActiveCell ?

Staple1600 · 5 Mars 2020

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 · 5 Mars 2020

Staple1600 à dit:
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 · 5 Mars 2020

Re

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

Guy Bl · 5 Mars 2020

Staple1600 à dit:
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 · 5 Mars 2020

Re

C'était pas si compliqué, non ?

VB:

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 · 5 Mars 2020

Staple1600 à dit:
Re

C'était pas si compliqué, non ?

VB:

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 · 5 Mars 2020

Re

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

VB:

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 · 5 Mars 2020

Guy Bl à dit:
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 · 5 Mars 2020

Re

Pourquoi -1 et pourquoi ActiveCell ?

Guy Bl · 5 Mars 2020

Staple1600 à dit:
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.

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

Guy Bl

XLDnaute Nouveau

Staple1600

Staple1600

XLDnaute Barbatruc

Guy Bl

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Guy Bl

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Guy Bl

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Guy Bl

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Guy Bl

XLDnaute Nouveau

Discussions similaires