Macro auto + Lecteur code barre

mamour60 · 13 Juillet 2012

Bonjour a tous,

Si quelqu'un peut m'aider je vous en remercie d'avance. je suis sous excel 2003.

Lorqsue je lit le code barre d'un dvd il se met en C6 et automatiquement les info de C10/C12/C14 et C16
sont mis dans excel mais si lorsque je remplis avec le lecteur de code barre la cellule C16 je veux que automatiquement
soit lancé une autre macro (ex : Modif ) mais c'est la que ça bloque.

J'ai mis ce code dans la feuil "Menu".
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then Call Recup
If Target.Address = "$C$16" Then Call Modif
End Sub

Dans l'attente de votre aide encore merci.

youky(BJ) · 13 Juillet 2012

Re : Macro auto + Lecteur code barre

Bonjour,
Voici quelques modifs de tes macros dans le fichier.
Explications en macro même.
Bruno

mamour60 · 13 Juillet 2012

Re : Macro auto + Lecteur code barre

Bonjour Youky(BJ),

Merci de ton aide mais lorsque je fais une modification sur la cellule C16
il ne faut pas ajouter un ligne mais modif la ligne qui correspond au N° du
code barre.

Bon week-end

Bruno

youky(BJ) · 13 Juillet 2012

Re : Macro auto + Lecteur code barre

Re,
Si j'ai bien compris....

Bruno

Code:

Sub Modif()
Dim i As Long
code = [C16]
With Sheets("Liste")
i = Application.Match(code, Feuil2.[E1:E65000], 0) 'indique le N° ligne
If Not IsNumeric(i) Then MsgBox "annuler": Exit Sub
.Cells(i, 2).Value = [C10] 'Acteur 1
.Cells(i, 3).Value = [C12] 'Acteur 2
.Cells(i, 4).Value = [C14] 'Genre
.Cells(i, 5).Value = [C16] 'Support
.Cells(i, 1).Value = [C6] 'C ou O
End With
Application.EnableEvents = False
[C6:C16].ClearContents
Application.EnableEvents = True
End Sub

mamour60 · 13 Juillet 2012

Re : Macro auto + Lecteur code barre

Re,

Merci c'est exactement ça que je voulais faire.

Bon week end

Macro auto + Lecteur code barre

mamour60

XLDnaute Junior

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

mamour60

XLDnaute Junior

youky(BJ)

XLDnaute Barbatruc

mamour60

XLDnaute Junior

Discussions similaires