Défilement Excel

[babykoala]

Bonjour,

J'utilise excel pour récupérer des données provenant d'un scanner à code barres lié en RS232. Les données transit par un logiciel billredirect et un plug in de transmission.

Les codes barres sont saisis les un après les autres dans un tableau.

Le classeur excel de réception des données est affiché sur mon écran pour controle des données.

En saisie classique dans excel, quand on arrive à la dernière cellule en bas de page, le défilement automatique se met en route et permet de suivre les dernière valeur saisie.

Avec le scanner RS232 (qui ne simule pas le clavier), le défilement auto ne s'effectue pas et du coup les valeurs se saisissent sans que je puisse controler.

Le défilement manuel n'est pas possible.

Avez-vous une solution à mon souci ?

Merci

 

[bond]

Re : Défilement Excel

A évaluer :

Dans un Module :

Option Explicit
Public TimeScroll
Sub Scroll()
    Cells(ActiveCell.SpecialCells(xlLastCell).Row, 1).Select
    TimeScroll = Now + TimeValue("00:00:01")
    Application.OnTime TimeScroll, "Scroll"
End Sub

Dans ThisWorkbook

Option Explicit
Private Sub Workbook_Open()
TimeScroll = Now + TimeValue("00:00:01")
Application.OnTime TimeScroll, "Scroll"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime TimeScroll, "Scroll", , False
End Sub

 

[JNP]

Re : Défilement Excel

Bonsoir le fil 🙂,
A tester dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 3 Then ActiveWindow.ScrollRow = Target.Row - 2
End Sub

Bonne soirée 😎

 

[babykoala]

Re : Défilement Excel

Merci pour vos réponses, je teste ça dès cet après midi et je vous tiens au courant !!

 

[babykoala]

Re : Défilement Excel

Je viens de tester vos propositions et cela ne fonctionne pas, les saisies se font bien, mais pas défilement automatique.

J'ai oublié de préciser une chose, qui doit être importante. Le plugin qui envoi les données utilise une liaison DDE.

 

[JNP]

Re : Défilement Excel

Re 🙂,
Là, on avance en territoire inconnu 🙄...
Essaie de mettre dans ThisWorkbook

Private Sub Workbook_Open()
ActiveWorkbook.SetLinkOnData _
    "WinWord|'C:\MSGFILE.DOC'!DDE_LINK1", _
    "my_Link_Update_Macro"
End Sub
Sub my_Link_Update_Macro()
MsgBox "Coucou"
End Sub

en modifiant le chemin de ton lien, ferme le fichier, rouvre-le, et si il fait Coucou à chaque coup de douchette, on devrait pouvoir s'en sortir ensuite 😛.
A + 😎

 

[bond]

Re : Défilement Excel

Le plugin qui envoi les données utilise une liaison DDE.

là, je décroche !

Edit : j'avais pas vu... un relais de JNP, à suivre...

 

[babykoala]

Re : Défilement Excel

Re 🙂,
en modifiant le chemin de ton lien

peux-tu me donner plus de détail sur le lien en question : le lien vers quel élément ?

 

[JNP]

Re : Défilement Excel

Re 🙂,
Bonne question, je n'ai pas la doc de ton DDE 😱...
A priori, le lien DDE se fait d'Excel vers un document qui doit être lié à ta douchette...
Dans l'exemple donné dans l'aide de VBA :
"WinWord|'C:\MSGFILE.DOC'!DDE_LINK1"
WinWord pour l'application Word
C\MSGFILE.DOC pour le chemin et le nom du document
DDE_LINK1 pour le nom du lien
Je ne sais pas ce qu'il en est chez toi...
Essaie de te renseigner avec celui qui t'as installé la douchette.
Bon courage 😎

 

[JNP]

Re : Défilement Excel

Re 🙂,
Pour déterminer le lien, il semblerait que tu peux utiliser ces 2 macros, et pense à noter pour la suite si c'est du OLE ou du Excel...

Sub Test1() ' source OLE
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If
End Sub
Sub Test1() ' source Excel
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If
End Sub

A + 😎

 

[babykoala]

Re : Défilement Excel

Re 🙂,
Pour déterminer le lien, il semblerait que tu peux utiliser ces 2 macros, et pense à noter pour la suite si c'est du OLE ou du Excel...

Sub Test1() ' source OLE
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If
End Sub
Sub Test1() ' source Excel
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If
End Sub

A + 😎

En scannant, une erreur apparait : erreur de compilation, nom ambigu au niveau du sub test 1 source excel ...

Le fabriquand du logiciel DDE (billproduction) m'a dit que le transfert DDE vers excel se faisait directement.

 

[Pierrot93]

Re : Défilement Excel

Bonjour,

les 2 macros portent le même nom, modie l'un d'eux, Test1 et Test2 par exemple...

bon après midi
@+

 

[JNP]

Re : Défilement Excel

Re 🙂,
Normal, j'ai pas renommer la 2ème Test1 en Test2 😱...
A + 😎

 

[babykoala]

Re : Défilement Excel

Rebonjour,

Du coup rien ne se passe en scannant...

J'ai l'impression que c'est pas évident mon problème...

 

[JNP]

Re : Défilement Excel

Re 🙂,

Du coup rien ne se passe en scannant...

Tu peux développer ?