Compter des gens....

[DanielS]

Bonjour à tous et à toutes

Dans le cadre de mon activité professionnelle, je dois compter le nombre de personnes qui passent par minute par un point donné (un self service)

Je me suis fait un petit tableau excel sur mon PDA et je saisis minute après minute le nombre de personnes que je compte mentalement

N'y aurait-il pas une autre solution ?

Du style...

On clique sur un bouton (ou une cellule) et l'heure de ce clic (heure, minute et secondes) s'inscrit dans une cellule et ainsi de suite, les enregistrements s'inscrivant les uns en dessous des autres.

Une fois cette liste d'heures éditée, on pourrait ainsi facilement obtenir le nombre d'enregistrements minute par minute.

Merci de votre aide

Daniel S

 

[G.David]

Salut
en
a1
=nb(b:B)=1

dans le code de la feuille

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cells(Cells(1, 1).Value, 2) = Time
Cancel = True
End Sub

un clic droit marque l'heur dans les cellules de la colonne b
le nombre de personne est egal à a1-1
Cordialement
G.David

 

[@Christophe@]

Bonjour,

Il y a possibilité sur excel pc mais je ne crois pas que cela soit possible sur excel version pda! Excel pda ne prends pas en charge les macros.

bonne journée

@christophe@

 

[PascalXLD]

Bonjour

j'ai fait une petite appli pour mon boulot sur cela

Je l'épure et je te l'envoies

 

[PascalXLD]

Oups

En lisant ce que dis Christophe en effet moi c'est par macro donc ça ne marchera certaienemnt pas sur un pda

 

[Daniels]

Re bonjour

Et merci pour ces réponses si rapides

J'ai un petit problème avec la formule (c'est quoi ce smiley ?? lol)

dans la case A1 quelle formule rentre t on ?
=nb(......) ?


J'ai un petit problème avec le code ... (désolé suis pas très doué)

Outil > Macro > Visual Basic Editor ?
et on copie ce qui suit où ?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cells(Cells(1, 1).Value, 2) = Time
Cancel = True
End Sub

Re merci de votre aide

Daniel S

 

[Abel]

Bonjour Daniels, Pascal76, @Christophe@, G.David,

J'avais fait ça il y a quelques temps pour ma moitié.

Cela nécessite d'avoir un PC sous la main.

A installer comme macro complémentaire, c'est à dire :
- à copier où on veut sur le disque dur mais de préférence avec les autres macro complémentaires,
- puis, 'Outils/Macros complémentaires',
- puis cocher la macro 'CompteurEntres'.

Cela crée un fichier texte dans C:Mes documents' qui peut être ouvert par la suite à l'aide d'Excel pour pouvoir en récupérer les information.
Cet macro crée aussi un bouton qui se rajoute dans la barre d'outils. Il suffit de cliquer dessus à chaque passage. Ca marche même s'il n'y a pas de fichier Excel ouvert. Il faut quand même que Excel soit ouvert.
Regarde Lien supprimé pour la récupération de données.


En espérant que cela te dépanne.

Abel. [file name=CompteurEntreesMagV2.zip size=10371]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CompteurEntreesMagV2.zip[/file]

Message édité par: Abel, à: 23/03/2005 14:37

 

[PascalXLD]

Re

Chose promise chose due

[file name=Comptegens.zip size=40177]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Comptegens.zip[/file]

 

[Abel]

Re,

Vééééé ...

Pascal, c'est chouette, ça !

Abel.

 

[G.David]

Ce smiley c'est une coquille j'avais mis un :B mais il m'a mis B) à voir le code de ce truc c'est la majuscule qui n'est pas passé
par contre ce que je t'ai envoyé est pour Excel pour le reste je ne connait pas les pad et PDA mais je suppose qu'il doit y avoir moyen d'adapter
Cordialement
G.David :woohoo: <- celui là est volontaire

 

[DanielS]

Merci à tous pour ces réponses

J'ai essayé comptegens sur mon PC .... ca marche du tonnerre, exactement ce que je cherche

Par contre, le transfert sur PDA fait que la macro ne suit pas ... pas glop

Encore mille mercis

DanielS

PS : si quelqu un a la solution pour PDA ... je suis preneur

 

[G.David]

s'cuse j'avais pas lu tous les messages

Alt F11 te place dans VBE
tu cliques droit sur la feuille de compte
dans le menu qui s'ouvre tu coche code
une fenetre a deux fenetre entet doit etre active
dans la premiere fenetre tu choisis Worksheet
dans la seconde beforerightclic
et la tu colle le code (tu ne rajoute pas la ligne sub machin chose
ni end sub
les opération ci dessus remplissent ces deux lignes
c'est une macro evenementielle qui agit sur la feuille qui la contient
un clic droit sur la feuille lance le code
la formule en A1 est =nb(b:b) ce qui compte les valeurs de la colonne B j'ai mis plus 1 pour avoir les numero de ligne par contre on aurait aussi bien put rajouter ce 1 dans le code
cells(cells(1.1).value +1,1)=time
le compteur de personne aurait été direct a1 = nombre de clics droit sur la feuille
mais bon on ne pense pas à tout
Cordialement
G.David