Défilement Excel

B

babykoala

Guest

• 10 Juin 2011

• #16

Re : Défilement Excel

J'ai entré le code dans thisworkbook et lorsque je scan, la valeur du code barres s'inscrit comme d'habitude. Rien ne se passe "en plus". J'ai pas été très précis.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 10 Juin 2011

• #17

Re : Défilement Excel

Re,
Ok.
Il faut lancer Test1 (se cliquer dedans et faire F5) et noter ce qu'il te mets s'il y a des messages.
Idem pour Test2.
Ces 2 sub doivent analyser si elles trouvent des liens DDL OLE (certainement) ou Excel.
C'est ce qui permetra de complêter le premier code.
A +

 

Vote positif 0 Vote négatif

B

babykoala

Guest

• 10 Juin 2011

• #18

Re : Défilement Excel

J'ai lancé les macro, l'une après l'autre:

La N°1 ne renvoie pas de message. (avec et sans scan)

En lancant la N°2 (excel): il m'indique ceci (sans effectuer de scan, avec scan rien de plus)

LINK 1:
c:...\Gestion Client.xlsm

Il s'agit d'un fichier que j'utilise depuis un petit moment pour ma gestion client. Il me permet d'analyser les codes barres que je scan par des rechercheV.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 10 Juin 2011

• #19

Re : Défilement Excel

Re 🙂,
Pas très positif tout ça 😱...
En gros, ça corobore ce que t'a dit le fournisseur, connexion directe, vu que le seul lien renvoyé est un lien Excel de tes formules 🙄...
Par contre, qui dit lien direct devrait (à mon sens) être considéré comme une validation de cellule, ce qui n'est pas le cas, sinon, mon premier code aurait été valide 😱...
Essaie de mettre ces codes dans ThisWorkbook et de voir si lors d'un scan, un des nombreux messages s'affiche

Code:

Private Sub Workbook_Activate()
MsgBox "Activate"
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
MsgBox "Calculate"
End Sub
Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)
MsgBox "Sync"
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
MsgBox "Window"
End Sub

Si aucun ne s'affiche, je te propose d'ouvrir pour toi une nouvelle discussion plus technique pour essayer de trouver une autre solution 😉.
A + 😎

 

Vote positif 0 Vote négatif

B

babykoala

Guest

• 11 Juin 2011

• #20

Re : Défilement Excel

Bonjour JNP,

Avec ta nouvelle proposition, j'ai le message Calculate qui s'affiche après un scan.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 11 Juin 2011

• #21

Re : Défilement Excel

Re 🙂,

babykoala à dit:

Avec ta nouvelle proposition, j'ai le message Calculate qui s'affiche après un scan.

Cliquez pour agrandir...

Yes, we can 😛 !
On va casser la baraque (oh, bwana !) 🙄...
Teste

Code:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Sh.Evaluate("counta(A:A)") > 2 Then
ActiveWindow.ScrollRow = Evaluate("counta(A:A)") - 1
End If
End Sub

A + 😎

 

Vote positif 0 Vote négatif

B

babykoala

Guest

• 16 Juin 2011

• #22

Re : Défilement Excel

Bonjour, j'ai testé ta proposition mais elle ne fonctionne pas.

J'ai contourné le problème en créant un second tableau FEUIL2, reprenant les 20 dernières valeurs scannée conservée en historique FEUIL1.

Merci de vos propositions.

 

Vote positif 0 Vote négatif