Somme logarithmique excel

Version imprimable

18/03/2011, 14h15
chamo3000

Somme logarithmique excel

Bonjour !

je suis assez nouveau dans le monde VB pour la création de macros... En fait je veux créer une formule personnalisée pour faire une somme logarithmique en choississant plusieurs cellules.

Code:

=10*log10(10^(arg1/10)+10^(arg2/10)+....)

Jusque là j'ai trouvé pas mal de tutoriaux et exmples qui permettent de prendre les valeurs d'une ou plusieurs cellules et/ou plages de cellules.

Ce que je n'arrive pas à trouver, c'est comment faire pour pouvoir mettre un nombre "illimité" d'entrées (cellules et plages de cellules)... Je pense notamment à la fonction toute simple de SOMME(arg1,arg2....) d'excel qui "s'adapte au nombre d'arguments" et à leur type

Est ce que qqun sait faire ça ou pourrait m'orienter ? Ou qqun aurait ou saurait comment trouver le code source de la fonction excel SOMME ??

En espérant être assez clair, je vous remercie d'avance

Citation:

Envoyé par chamo3000

Bonjour !

je suis assez nouveau dans le monde VB pour la création de macros... En fait je veux créer une formule personnalisée pour faire une somme logarithmique en choississant plusieurs cellules.

Vous voulez passer par VisualBasic et faire une macro, ou utiliser directement une fonction dans une case EXCEL ?

Si vous voulez passer par une macro, une des solutions consisterait à implémenter une boucle qui s'arrête lorsqu'elle tombe sur une cellule vide.
En admettant que les données se situent sur la colonne A, et commencent à la ligne 1, et qu'un bouton soit installé sur la feuille, un appui sur celui-ci enclencherait la macro suivante:
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 Private Sub CommandButton1_Click() Dim resultat As Double Dim valeur As Single Dim ligne As Integer resultat = 0 ligne = 1 Do If Cells(ligne, 1).Value = "" Then Exit Do ' S'il n'y a plus rien, on sort End If valeur = Val(Cells(ligne, 1).Value) ' retourne '0' si ce n'est pas un nombre dans la cellule If valeur <> 0 Then ' On a un nombre à traiter... resultat = resultat + 10 ^ (Cells(ligne, 1).Value / 10) End If ligne = ligne + 1 Loop Range("B1").Value = 10 * Log(resultat) End Sub
Le résultat figure dans la case B1

@ bientôt...

20/03/2011, 10h34
alsimbad

je pense qu'il y a une piste a suivre avec optional qui permet de definir un argument comme facultatif, ainsi, tu défini ta fonction avec un nombre d'argument préétabli mais tu n'utilises que ceux dont tu as besoin. c'est le cas de beaucoup de fonction d'excel, le nombre d'argument n'est pas illimité

Code:

fonction arguments(optionnal arg1 as range , optionnal arg2 as long)

mais honnetement, je ne parvient pas a créer une fonction qui utilise et qui fonctionne correctement en suivant cette piste, même une simple addition de plusieur cellules

Bonjour !

Merci pour vos réponses !!

@rtg57

Si je comprends bien, ton code prends toutes les valeurs de la colonne A et donne le résultat de la somme en B1. Le problème est que ce que je voulais est de pouvoir prendre des cellules ou plages de cellules dans toute la feuille et mettre le resultat sur une cellule. genre =sommedb(A1;A5:C8;F1:F19)

@alsimbad

j'avais deja vu cette option mais le probleme c'est que tu peut definir qu'un nombre limité d'arguments... Si jamais tu veux un jour un de plus, plus possible.

J'ai cherché un peu sur le site microsoft et sur le forum et apres un peu de code jai reussi a ecrire le code suivant et ca marche !!! L'entree ce sont plusieurs plages de cellules ou des cellueles seules. et apartir de ca le code cree un tableau d'une dimension. Apres il suffit d'appliquer la formule sur ces elements et voila !

MERCI de votre aide et abientot !!

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
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
 
Function sommedB(ParamArray CellAddress()) As Variant
   ' Declaration of function variables.
   Dim Temp As Variant
   Dim TheArray() As Variant
   Dim Count As Integer, Ver As Integer
   Dim W As Integer, X As Integer, Y As Integer, Z As Integer
 
   ' Initialize the Count variable.
   Count = 1
   ' Set the variable Ver = 0 if the version of Microsoft Excel is
   ' greater than 8 (8 is Microsoft Excel 97 for Windows).
   If Left(Application.Version, Len(Application.Version) - 1) >= 8 Then
      Ver = 0
   Else
      Ver = 1
   End If
   ' Set variable X from Ver to the total number of arguments in
   ' the CellAddress array.
   For X = Ver To UBound(CellAddress, 1)
      ' Temp equals the first element of the CellAddress array.
      Set Temp = CellAddress(X)
 
      ' Test Temp to see whether it is an array.
      If IsArray(Temp) Then
 
         ' If Temp is an array, set Y from 1 to the total number
         ' arguments in the Temp array's first dimension.
         For Y = 1 To UBound(Temp.Value, 1)
             ' If Temp is an array, set Z from 1 to the total number
            ' arguments in the Temp array's second dimension.
            For Z = 1 To UBound(Temp.Value, 2)
 
               ' ReDimension TheArray, Preserving any existing
               ' values, from 1 to Count.
               ReDim Preserve TheArray(1 To Count)
 
               ' TheArray, element Count equals Temp, element Y in the
               ' first dimension by element Z in the second dimension.
               TheArray(Count) = Temp(Y, Z).Value
                ' Increment the Count variable by one.
               Count = Count + 1
            Next Z
 
         Next Y
      ' If Temp is not an array, proceed from here.
      Else
         ' ReDimension TheArray, preserving any existing
         ' values, from 1 to Count.
         ReDim Preserve TheArray(1 To Count)
          ' TheArray element Count equals Temp.
         TheArray(Count) = Temp
 
         ' Increment the Count variable by one.
         Count = Count + 1
      ' End the block If statement.
      End If
   Next X
 
som = 0
For W = 1 To UBound(TheArray, 1)
som = som + 10 ^ (TheArray(W) / 10)
Next W
 
   sommedB = 10 * Application.Log10(som)
 
 
 
End Function