Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2010Déplacement curseur 2 cases vers la droite suite à lecture code barre
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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)
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 😉
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 😉
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
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.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD