Probleme VB

[gaby]

bonjour forum

j'ai deux colonnes (A,B)

je voudrais copier leurs données par bolc de 50 puis calculer la mayenne et ecart type et coller le resultats sur une autre feuille

est ce que personne a une idée

merci d'avance

 

[dg62]

re

une procedure à tester

Sub decoupe()
Dim drow As Integer

drow = Sheets('feuil1'Â'Â').Range('A65536'Â'Â').End(xlUp).Row
frow = 0
interRow = 0

For i = 1 To drow

interRow = interRow + 1
If interRow = 50 Then

    frow = i - 49
    ref = 'A' & frow & ':' & 'B' & i
 Range(ref).Select
    Selection.Copy
        Sheets.Add after:=Sheets.Item(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range('D1'Â'Â').Select
   
  ActiveCell.FormulaR1C1 = 'Moyenne A'
    Range('E1'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=AVERAGE(RC[-4]:R[49]C[-4])'
    
   
    Range('D2'Â'Â').Select
    ActiveCell.FormulaR1C1 = 'Moyenne B'
    Range('E2'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=AVERAGE(R[-1]C[-3]:R[48]C[-3])'
    
    
    Range('D4'Â'Â').Select
    ActiveCell.FormulaR1C1 = 'Ecart type A'
    Range('E4'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=STDEV(R[-3]C[-4]:R[46]C[-4])'
  
    
    Range('D5'Â'Â').Select
    ActiveCell.FormulaR1C1 = 'Ecart type B'
    Range('E5'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=STDEV(R[-4]C[-3]:R[45]C[-3])'
    
   
    interRow = 0
    Sheets(1).Activate


End If

Next
frow = i - interRow
    ref = 'A' & frow & ':' & 'B' & drow
 Range(ref).Select
    Selection.Copy
        Sheets.Add after:=Sheets.Item(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range('D1'Â'Â').Select
   
  ActiveCell.FormulaR1C1 = 'Moyenne A'
    Range('E1'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=AVERAGE(RC[-4]:R[49]C[-4])'
    Range('E2'Â'Â').Select
    
    Range('D2'Â'Â').Select
    ActiveCell.FormulaR1C1 = 'Moyenne B'
    Range('E2'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=AVERAGE(R[-1]C[-3]:R[48]C[-3])'
   
   
    Range('D4'Â'Â').Select
    ActiveCell.FormulaR1C1 = 'Ecart type A'
    Range('E4'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=STDEV(R[-3]C[-4]:R[46]C[-4])'
  
    
    Range('D5'Â'Â').Select
    ActiveCell.FormulaR1C1 = 'Ecart type B'
    Range('E5'Â'Â').Select
    ActiveCell.FormulaR1C1 = '=STDEV(R[-4]C[-3]:R[45]C[-3])'
   
    
End Sub

Message édité par: dg62, à: 23/05/2005 18:12

Message édité par: dg62, à: 23/05/2005 18:51

 

[Gaby]

Salut dg62

je vais tester ton programme.
merci pour ton aide

PS: Est ce que je peux avoir quelques explications cocernat ton code?

 

[dg62]

re

drow = Sheets('feuil1').Range('A65536').End(xlUp).Row

Cette ligne détermine le nombre de ligne de données.

le nombre est stocké dans DRow

ensuite boucle avec test sur multiple de 50 et copier coller sur une nouvelle feuille et insertion des formules moyenne et écart type.


après la boucle For next

je récupère le reliquat de données et je fais le même traitement que ci-dessus.

 

[Gaby]

et si le nombre de ligne dépasse 65536?

 

[dg62]

re

C'est une autre histoire... 😉 😉 😉


tout dépend de où proviennent tes données.

 

[dg62]

re


je quitte le boulot


à demain pour la suite des aventures.... 🙂 🙂 🙂 🙂

 

[dg62]

Bonjour Gaby, le Forum


Suite des aventures...


pour la question posée hier : 65536 lignes


si tu souhaites mettre 50 valeurs / feuille, il te faudrait 1310 feuilles très au delà des 256 feuilles permis par Excel.

Il est toujours possible de gérer + de 65536 données dans excel. Différentes astuces existent.

 

[Gaby]

Bonjour dg62, le forum


je ne souhaite pas mettre 50 valeurs par feuille mais le resultat de la moyenne et ecart type des 50 valeurs sur une autre feuille(classeur)

merci

 

[dg62]

re

on s'explique :

tu souhaites calculer la moyenne et l'ecart type de tes données et mettre le résultat seul sur une autre feuille (1 seule feuille).

Comment souhaites-tu présenter ces résultats ?

 

[gaby]

Re


parexemple : j'ai un fichier excel (source) qui est dans un emplacement.

je doit ouvrir ce fichier, creer un autre fichier(destination)

recuper par 50 valeurs du fichier source, calculer leur moyenne et ecart type et mettre le resultat dan mon fichier destination (sur une colonne)

 

[dg62]

re


peux-tu tester cette version ? [file name=calc moyenne ect_20050524141146.zip size=21843]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/calc moyenne ect_20050524141146.zip[/file]

 

[Gaby]

J'ai tester mais avec le volume de donnéé on m'as dit d'utulisé les fichiers txt.

vous avez pas une une idée sur ca svp

merci d'anance

 

[dg62]

Bonjour Gaby



quelle est la structure du fichier texte ?



x1,Y1
X2,Y2
.
.
.
Xn,Yn

et quel est son nom ?

 

[Gaby]

salut dg62

la structure du fichier txt c'est comme celle de l'excel.

le fichier excel qu'on a fait le traitement c'est la conversion du fichier text

son nom c'est applic.txt

merci pour ton aide

 

[dg62]

re


dernière question


est-ce que le fichier peut dépasser les 65536 lignes ?