VBA > Isoler des utilisateurs et les compter

Bonjour,

Mon problème est très simple:

Je dois en VBA, faire un programme pour automatiser la tache suivante;

Dans un tableau Excel je me retrouve avec des utilisateurs (dans la colonne G), des documents lus (dans la colonne C) et le temps passé par document (colonne H)

J'ai pleins de lignes, parce que pleins de documents ouverts, par plusieurs utilisateurs.

Evidement, tout est constament variable, y compris le nombre des utilisateurs (donc je ne peux pas écrire son nom dans le code)

Mon but:

Récuperer dans un onglet:

- le nombre de documents lu par utilisateurs, et le temps total passé par cet utilisateur
- les 10 documents les plus vu, en temps et en nombre.

Exemple:

Utilsateur David
A lu 25 documents et a passé 25 minutes sur le système

Utilisateur Franck
A lu 10 document, et a passé 5 minutes sur le système

etc....

Documents les plus regardés:
1 - Britney spears nue (5h25:30)
2 - Table a manger (3h55:50)
3 - moissonneuse batteuse
4 - Poule
5 - Etc
6 - Etc
7 - Etc
8 - Etc
9 - Etc
10 - Etc




Si une âme charitable pouvais me donner un coup de main

Citation:

---

Envoyé par Mechsangoku

Si une âme charitable pouvais me donner un coup de main

---

Te donner un coup de main oui, faire ton boulot non.

Donc commence ton code, pose des question précise et on t'aidera

Une piste pour commencer les grande étape, essaye de les travailler une par une

Code:

---

1 2 3 4 5 6 7 8 9

récupérer la liste des utilisateur Boucler sur les utilisateur parcourir ta liste si la colonne utilisateur corespond a l'utilisateur en cours regarde le document utilisé si déja consulté ajoutrer le temps sinon ajouter a la liste des document visité et stocker le temps fin de la boucle parcour de la liste utilisateur suivant

---

Après j'ignore ce que tu sais faire. Est ce que tu sais parcourir une colonne dela première a la dernière ligne? Est ce que tu sais créer une variable tableau ou une collection pour lister les utilisateur? Est ce que tu sais créer un tableau pour lister les document consulté par l'utilisateur et et socker les durée?....

Essaye de réfléchir au différente étape commence ton code étape par étape et quand tu bloque sur une étape viens nous voir

Alors mon niveau : Null

Ce que j'ai fait juste la:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub Suppression() Worksheets("Calculs").Activate Cells.Select Selection.Delete Shift:=xlUp   Worksheets("Rapport I").Activate Dim i% For i = 256 To 1 Step -1 If Cells(i, 9) = "ADMIN" Then Rows(i).Delete Next   Columns("G:G").Select Application.CutCopyMode = False Selection.Copy Sheets("Calculs").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A1:A16").AdvancedFilter Action:=xlFilterInPlace, Unique:=True Range("A7:A29").Select Selection.Copy Sheets("Exécutables").Select Range("B13").Select ActiveSheet.Paste Application.CutCopyMode = False     End Sub

---

C'est le seul moyen que j'ai trouvé pour isoler les utilisateurs, et en faire une liste (limité a 10 utilisateurs je crois)
Après ca devrait être plus simple en fait

Mais je ne sais rien faire de ce que tu me demande :/

Un conseil
N'utilise pas l'instruction select.
AAAAA.select
selection.BBBB
devient
AAAA.BBBB
ton code donne

Code:

---

1 2 3 4 5 6 7 8

Application.CutCopyMode = False Columns("G:G").Copy Sheets("Calculs").Range("A1").Paste Application.CutCopyMode = False Range("A1:A16").AdvancedFilter Action:=xlFilterInPlace, Unique:=True Range("A7:A29")..Copy Sheets("Exécutables").Range("B13").Paste Application.CutCopyMode = False

---

Il ne te viendrais pas a l'esprit de dire:
va devant la table
prend la tasse sur lobjet devant toi
lave lobjet dans ta main
tu le dit en nue fois
lave la tasse qui est sur la table

donc ne dit pas

Code:

---

1 2 3

Sheets("Calculs").Select 'prend la feuille Calculs Range("A1").Select 'prend la celluleA1 de la feuille active ActiveSheet.Paste 'copie sur le dernier truc que tu as pris

---

Dit

Code:

---

Sheets("Calculs").Range("A1").Paste

---

de droite a gauche
colle de la cellule A1 de la feuille calculs

Bon une fois que cela est fais
tu va devoir je pense t'interesser au variable tableau
lit ce tuto et essaye de faire quelque exo
http://silkyroad.developpez.com/vba/tableaux/
(tu aura besoin d'utiliser redim preserve entre autre chose)

pour avoir la liste des utilisateur il faut utiliser une colection ca je te le fais
(je commence tout juste a me débrouiller avec j'ai besoin d'entrainement :mouarf:)

Voici comment récupérer la liste des utilisateur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Utilisateurs As New Collection Dim i As Long Dim DerniereLigne As Long Dim liste As String DerniereLigne = Range("A65536").End(xlUp).Row 'dernière ligne de la colonne A   For i = 2 To DerniereLigne 'pour i allant de 2 à la dernière ligne On Error Resume Next 'desactive les erreur Utilisateurs.Add Cells(i, 1), CStr(Cells(i, 1)) ' on ajoute la cellule ligne i colonne 1 a la liste utilisateur Next i On Error GoTo 0 'reactive la gestion d'erreur   MsgBox "Il y a " & Utilisateurs.Count & " le premier trouvé est " & Utilisateurs.Item(1) & " le dernier étant " & Utilisateurs.Item(Utilisateurs.Count)     For i = 1 To Utilisateurs.Count liste = liste & Utilisateurs.Item(i) & Chr(13) Next i MsgBox "Voici tous les utilisateur" & Chr(13) & liste

---

Par contre si tu débute vraiment de 0 ne commence pas ton programme lit des tutos fait des exemple essaye de suivre le discutions du forum pour voir différent exemple de code
Et une fois que tu comprend un peu ce qui se passe là tu peux attaquer vraiment

Merci pour ton aide

J'imagine que j'ai encore beaucoup à apprendre, et si lire le code est une chose, l'écrire en est une autre.

je vais voir un peu coté tutos, mais c'est pas simple de toujours trouver ce que l'on veux.

Merci encore

Hello,

ça me paraît assez compliqué de vouloir faire ça en VBA pur.
Vu qu'il y a pas mal de données et que leur structure ressemble à une table, pourquoi ne pas passer par une requête SQL que l'on peut facilement implémenter par DAO ?

Toi y'en a parler une langue qui moi pas comprendre du tout pour le coup.
Autant je sais que le SQL est un language de base de donnée, mais ca s'arrète la...