Discussion :

[nathe]

Gros Problème de programmation

Besoin de votre aide !!

Voila ce que je doit faire :

Je doit faire une automatisation de la mise en forme des données recueillies en vue des analyses statistique. je doit créé un programme afin d’analyser et de décrire soit les profils, soit les données.

Dans ce programme nous avons quatre parties.

• Rechercher les données dans un dossier.

Ici nous avons créé un programme afin d’allé récupérer la colonne ou la case de chaque ficher texte lisible sous excel qui nous intéresse dans un dossier. En effet car dans ce dossier nous avons plusieurs fichier qui correspond aux individus. Le ficher est numéroté par le numéro de l’individu. Donc avec ce programme nous parcourons tous ces fichiers afin de récupérer dans chacun de ces fichiers l’information qui nous intéresse. doit veut savoir comment allé pour cherché une colonne une fois ou une seul case.

• Statistique descriptives sur le profil des sujets.

Ici, le programme survirera à faire connaitre les profils, faire des moyennes, des tris à plat et tri croisé. comment on fait en VB des tri a plat et tri croisé
nous avons des donné sur le sexe, l'age, le nom, si il sont gauche ou droitier ...

• Statistique descriptives sur les données.

Ici sera fait un programme afin d’analyser les temps de réaction et les bonnes notes. veut calculer le taux de pourcentage de bonne réponse, ou encore la moyenne des temps de réaction. En effet nous avons une liste de temps ou je doit calculer la moyenne et nous avons aussi une liste des réponse que les gens au fait a leur question on c'est si elle est juste ou pas et on veut calculer la moyenne. Ces information c'est une colonne dans chaque fichier du dossier.

• Statistique analytiques sur les données.

Ici le programme servira à faire des calculs de corrélation, utilisé Anova. la veut savoir comment on fait de L'anova et corrélation avec VB

Voila ce que j'ai déjà fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub Fichiers(ByVal Résultat As String)
'compter le nombre de ficher
Dim FSO As Object
Dim DossierSource As Object
Dim Fichier As Object
Dim r As Long
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set DossierSource = FSO.GetFolder(Résultat)
 
    r = 0
    For Each Fichier In DossierSource.Files
            r = r + 1
    Next Fichier
 
    MsgBox "Nb Fichiers : " & r
 
    Set DossierSource = Nothing
    Set FSO = Nothing
End Sub
 
Public Sub STAT()
 
'lexique
 
Dim M As Double
Dim F As Double
Dim r As Integer
Dim G As Double
Dim D As Double
Dim T As Double
Dim Age As Double
Dim Sexe As String
Dim Hand As Double
Dim Age1 As Double
Dim Phono1 As Double
Dim Ortho1 As Double
Dim Moyage As Double
Dim I As Integer
Dim male As String
 
 
'Algo
'ouvrir le dossier et parcourir les fichier
Dim MaCellule As Range
For Each MaCellule In ActiveSheet.Range("A1:E5")
Next
Dim strTemp As String
strTemp = Dir("M:\Bureau\Eprime\Résultats\*.*")
Do While strTemp <> ""
   Debug.Print strTemp
   strTemp = Dir
Loop
 
'Statistique descriptives sur les profil
 
M = 0
F = 0
For I = 1 To 10
 
    Sexe = Sheets("Feuil1").Cells(5, 2).Value
 
    If Sexe = "male" Then
        M = M + 1
    Else
        F = F + 1
    End If
Next
 
Debug.Print " la nombre d'homme est de " & M
 
 
End Sub
 
Function LectureFichier(UnFichier)
MsgBox UnFichier
End Function

Mes Problèmes

j'arrive à lire les nom des fichiers dans le dossier mais suis pas sur que cela les lisent et que je puisse les utilisé pour faire mes calcul d'après
Après j'arrive a faire marché

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Sexe = "male" Then

Merci de votre aides

[DeaD78]

Bonjour,

Vu que tu n'as pas eu de retours sur ton sujet, on va essayer de faire quelque chose pour remédier à ton problème.

Tout d'abord, bien que ton explication soit complète (même trop), ça reste peu clair (en tout cas pour moi ) Il faudrait, en effet, soit que tu joignes un fichier avec des données non confidentielles plus les explications appropriées à ton problème, soit que tu joignes les bout de codes concernés.

Dans ton cas, et au vu de la partie "Ce que je dois faire", je n'ai pas compris à quoi cela servait. Est-ce pour info ? Veux-tu qu'on t'aide sur ces points ? Si c'est le cas un fichier joint ne serait pas de trop avec des commentaires précis et techniques. Ou veux-tu de l'aide sur "Tes problèmes" simplement ?

N'ayant pas compris la première partie, on la laissera pour plus tard donc.

Pour ton problème sur Sexe = "male", tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For I = 1 To 10
 
    Sexe = Sheets("Feuil1").Cells(5, 2).Value
 
    If Sexe = "male" Then
        M = M + 1
    Else
        F = F + 1
    End If
Next

A mon avis, tu devrais mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sexe = Sheets("Feuil1").Cells(I, 2).Value

sinon ton compteur ne sert à rien. Là, ça devrait marcher.

Sinon, lorsque tu lis les noms de tes fichiers, ouvre les par la même occasion voir si cela fonctionne. D'ailleurs, que veux-tu faire une fois les noms de fichiers lus ? Veux-tu les ouvrir ?

En tout cas, tu vas t'en sortir avec un petit coup de main pas de panique