Réalisation d'un programme

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


Si quelqu'un peut m'aider pour faire tout ce programme se serai génial !!!!

je c'est pas si j'ai bien tout explique si vous voulez plus d'information pour le faire ou comprendre n'hésite pas demandé !!!

MERCI d'avance !!!!!

Bonjour,

quelle version de VB utilises tu ? VB6 ou VB.Net (VB.2005 ou 2008) ?

j'utilise VB6

Bonjour,

Comme tu l'auras remarqué si tu as un peu visité ce forum, on tente de répondre ici à des questions précises mais il n'est pas question d'écrire un code complet.
Il va donc falloir que tu commences de ton coté à écrire ton code et, si par la suite tu tombes sur un problème particulier, reviens nous voir en exposant ton soucis avec des extraits de code par exemple.

Tu trouveras pas mal d'infos en allant voir la FAQ et le les tutoriels, en faisant des recherches sur ce forum (par exemple fais une recherche en tapant "lecture fichier excel" pour t'aider à résoudre ton premier point)

Mais j'ai déjà commencé un truc, mais la programmation c'est vraiment pas mon fort

mais je vais essayer de faire la recherche que tu a dit

je suis dans ton cas, lis un maximum de tutoriels qui sont très explicite après tu pourras poser tes questions.

J'ai mis ca pour ouvrir mon dossier

Code:

---

Open "M:\Bureau\Eprime\Résultats" For Input As #1

---

mais après je n'arrive pas à parcourir tous les fichiers texte qui sont à l'intérieur. J'avais pensé à faire un boucle qui engloberait tout le programme.

J'avais pensé à un For mais après je ne sais pas quelle instruction utiliser pour les lire

Que veut dire ce message ??


Erreur d'exécution :"6"
Dépassement de capacité

Clique sur le bouton Aide de la fenetre d'erreur pour le savoir.

J'ai décider de tout reprendre et de faire étape par étape,

donc déjà le premier point ouvrir le fichier et lire les feuilles a l'intérieur

voila mon programme

Code:

---

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

'Algo 'ouvrir le dossier Open "M:\Bureau\Eprime\Résultats" For Input As #1 'compter le nombre de ficher Const DossierFichiers As String = "M:\Bureau\Eprime\Résultats" NBL = DossierFichiers 'parcourir tout les fichiers Dim fichier(NBL), I, Fichiers For I = 1 To NBL fichier(I) = "M:\Bureau\Eprime\Résultats" Fichiers = Array(fichier(I)) Next   For I = 0 To UBound(Fichiers) Call LectureFichier(Fichiers(I)) Next   Function LectureFichier(UnFichier) MsgBox UnFichier   End Function

---

Le NBL normalement devrais avoir comme chiffre le nombre de fichier, mais le probleme c'est que dans le DIM il le reconait pas et il veut une constante
Et je ne comprend pas pourquoi et ce qui ne vas pas.

Merci de bien vouloir jeter un petit coup d'oeil :oops:

Il va te falloir être plus prècis dans les termes que tu employes.
"M:\Bureau\Eprime\Résultats" est un fichier ou un répertoire ?
Un répertoire, çà ne s'ouvre pas, on le parcours à la rigeur, pour obtenir la liste des fichiers qui sont stockés dedans. Cela se fait avec la fonction Dir

Voici un petit exemple

Code:

---

1 2 3 4 5 6

Dim strTemp as String strTemp = Dir("M:\Bureau\Eprime\Résultats\*.*") Do While strTemp<>"" Debug.Print strTemp strTemp= Dir Loop

---

Houlala... quand tu dis que la programmation n'est pas ton fort, je te crois volontiers ;)
Vu ce que doit faire ton programme et vu comment ça part, n'y vois aucune méchanceté mais ça me semble très mal engagé.

Si malgré tout, il n'y a que toi qui peut faire ce programme dans la boite où tu es, voici de quoi commencer pour lister les fichiers d'un répertoire :
http://vb.developpez.com/faq/?page=Fichiers#contenu_rep

De manière générale, il est INDISPENSABLE d'aller voir la FAQ et les tutos, de faire des recherches sur ce forum avant de poser une question.

Pour en revenir au code au dessus, oublie tout et repars de 0, il y a trop d'énormités dedans, une au hasard, tu déclares DossierFichiers comme string et NBL comme nombre (enfin je suppose vu ce que tu tentes d'en faire ensuite) mais ça t'empeche pas d'écrire que l'un égale l'autre :

Code:

---

1 2 3

Const DossierFichiers As String = "M:\Bureau\Eprime\Résultats" NBL = DossierFichiers

---

Non c'est pas du tout mon fort et de très loin mais doit passer par là c'est pour ça que je suis un peu désespéré:D

Et non personne dans la boite peut m'aider malheureusement

Je vais reprendre ça et je vous montre ^^

Petite question

Code:

---

1 2 3 4 5 6

Sexe = Sheets("Feuil1").Cells(5, 2).Value If Sexe = "male" Then M = M + 1 Else F = F + 1 End If

---

Comment faut faire pour que ça lise le mot "male" dans un fichier sur Excel.

Si tu parles de feuille excel, c'est que tu ne traites pas des fichiers textes!
Vb ne sait pas lire des fichiers Excel. Par contre Vb sait piloter Excel, qui lui sait lire des fichiers Excel. Commence par lire les tutoriels pour apprendre à utiliser cette technique

J'ai un doute affreux. Comment as tu déterminé que tu utilisais VB6 ?
Ne serais tu pas en fait en train de programmer à l'intérieur d'Excel ? Au quel cas tu n'utiliserais pas VB6 mais VBA pour Excel, La derniere mouture étant la version 6 ! Si les languages ont de grandes similitudes, ils sont différents et tu n'es pas dans le bon forum.

Citation:

---

Envoyé par nathe

Petite question

Code:

---

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

---

---

J'ai bien peur que ton doute soit on ne plus fondé !! :mouarf: