Discussion :

[Thibatus]

bonjour à tous

je suis actuellement en train de réaliser une feuille de calcul excel pour l'analyse de données issues d'analyses chimiques. Il y a deux nombreuses action à réaliser et de façon à automatiser cela je code en vba.

Mais je bloque sur un truc :

dans mon analyse je dois construire un tableau comme ceci :

yi / xi / xi² / yrl / yi-yrl /(yi-yrl)² / xi-xb /(xi-xb)
ech1
ech2
...
...
ech n
somme
moyenne

voici le code utilisé pour le remplissage des n lignes (certaines variable sont déclarées bien plus haut dans mon code)

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
Dim tabstat() As Double
   'dimensionnement du tableau'
    ReDim tabstat(1 To Nbrep, 1 To 8)
        'definition de x et y'
         Dim cely As Range
         Dim celx As Range
         Set celx = Range(Cells(2, 2), Cells(Nbrep + 1, 2))
 
 
 
    col = 3
 
          Set cely = Range(Cells(2, col), Cells(Nbrep + 1, col))
        Dim a As Double
        Dim b As Double
        a = WorksheetFunction.Slope(cely, celx)
        b = WorksheetFunction.Intercept(cely, celx)
      Dim xb As Long
      Dim yrl As Long
      Dim yb As Long
      Dim it As Integer
      Dim jt As Integer
 
  xb = WorksheetFunction.Average(celx)
  yb = WorksheetFunction.Average(cely)
 
      For it = 1 To UBound(tabstat, 1)
     tabstat(it, 1) = cely(it)
     tabstat(it, 2) = celx(it)
     tabstat(it, 3) = (celx(it)) ^ 2
     tabstat(it, 4) = a * celx(it) + b
     tabstat(it, 5) = tabstat(it, 1) - tabstat(it, 4)
     tabstat(it, 6) = (tabstat(it, 5)) ^ 2
     tabstat(it, 7) = tabstat(it, 2) - xb
     tabstat(it, 8) = (tabstat(it, 7)) ^ 2
     Next it

jusqu'ici tout fonctionne bien, mais j'aimerais pouvoir rajouter les deux lignes pour calculer les sommes et moyennes de chaque colonne
le code serait donc quelque chose du genre

Code :

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

1
2
3
4
5
redim preserve tabstat (UBound(tabstat, 1) +2 , 8)
    for jt =1 to Ubound(tabstat,2)
    tabstat (Ubound (tabstat,1)-1 , jt) = SOMME DES LIGNES PRECEDENTES (pour une colonne jt)
    tabstat (Ubound (tabstat,1)-1 , jt) = MOYENNE DES LIGNES PRECEDENTES (pour une colonne jt)
next jt

J'ai essayé en utilisant les worksheetFunction et applicationFunction mais j'ai un problème pour définir mes plages de données (celles-ci doivent pouvoir comporter un nombre de ligne variable)

J'espère avoir été assez précis et merci d'avance

[Philippe Tulliez]

Bonjour,

J'ai essayé en utilisant les worksheetFunction et applicationFunction mais j'ai un problème pour définir mes plages de données (celles-ci doivent pouvoir comporter un nombre de ligne variable)

Tu peux parfaitement inclure des variables dans ta fonction.
Petit exemple avec VLookUp

Code :

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

1
2
3
4
Dim maPlage As Range, maValeur As String
Set maPlage = ThisWorkbook.Worksheets("Fiche-b").Range("A2:K14")
maValeur = "C011"
MsgBox Application.WorksheetFunction.VLookup(maValeur, maPlage, 2, False)

[gFZT82]

Bonjour,

redim preserve tabstat (UBound(tabstat, 1) +2 , 8)

Attention, tu ne peux redimensionner que la dernière dimension du tableau.

Cordialement.

[Thibatus]

Merci pour vos réponse. Je n'avais pas bien intégré le fait que ce soit la dernière dimension du tableau qui pouvait être redimensionnée.

J'ai quand même trouver une solution en créant un autre tableau 2d et en utilisant le code suivant

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
  For it = 1 To UBound(tabstat, 1)
     tabstat(it, 1) = cely(it)
     tabstat(it, 2) = celx(it)
     tabstat(it, 3) = (celx(it)) ^ 2
     tabstat(it, 4) = a * celx(it) + b
     tabstat(it, 5) = tabstat(it, 1) - tabstat(it, 4)
     tabstat(it, 6) = (tabstat(it, 5)) ^ 2
     tabstat(it, 7) = tabstat(it, 2) - xb
     tabstat(it, 8) = (tabstat(it, 7)) ^ 2
 
     Next it
     Dim tabsum(1 To 1, 1 To 8) As Double
     Dim tabmoy(1 To 1, 1 To 8) As Double
 
     For jt = 1 To 8
     tabsum(1, jt) = Application.sum(Application.Index(tabstat, , jt))
     tabmoy(1, jt) = Application.Average(Application.Index(tabstat, , jt))

Soit un tableau pour les moyennes (tabmoy) et un pour les sommes (tabsum). De plus il semble falloir utiliser les fonctions ci-dessus pour les tableau qui n'apparaissent pas sur la feuille excel.