Problème arguments fonction slope (VBA)

Version imprimable

07/04/2014, 14h13
Tortapoya

Problème arguments fonction slope (VBA)

Bonjour,

Dans le cadre d'un projet universitaire, je dois réaliser un petit formulaire sous VBA.
J'ai besoin d'utiliser la fonction "slope" d'excel, et pour cela j'utilise le programme suivant :
Application.WorksheetFunction.Slope(selectionaction, selectioncac)

Les arguments de le fonction (selectionaction et selectioncac) sont des plages de données obtenues grâce à la fonction :
selectioncac = Selection.Address (la plage de données est dynamique et change après chaque actualisation de données)

Cela me donne un résultat du type selectionaction = $A$2:$A$12, cependant la fonction slope n'arrive pas à reconnaître les arguments, bien qu'elle soit du type : slope(matrice;matrice)

Pouvez vous m'aider à résoudre ce problème ?
07/04/2014, 15h06
Kimy_Ire
Bonjour Tortapoya,

Ton problème vient du fait que tu passes en argument une adresse au lieu d'une range.

Pour corriger ton problème, je pense qu'il faut que tu changes ceci :
Code:

1 2 3 4 '... Ma_range_avant_selectionaction.Select '... Application.WorksheetFunction.Slope(selectionaction, Selection)
... si selectionaction est une range.

Tiens moi au courant ! :ccool:

Cordialement,
Kimy

Bonjour Kimy_Ire,

Merci pour ton aide, cependant j'utilise déjà le .select. Voici l'extrait de mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
While Not IsEmpty(Sheets("cac40valbeta").Cells(1, j))
        Cells(2, 3).Activate
        Range(Selection, Selection.End(xlDown)).Select
        selectioncac = Selection.Address
        Cells(2, j).Activate
        Range(Selection, Selection.End(xlDown)).Select
        selectionaction = Selection.Address
 
        Cells(6, j) = Application.WorksheetFunction.Slope(selectionaction, selectioncac)
 
        j = j + 1
 Wend

Aurais-tu une autre idée du problème ?
En te remerciant

Tortapoya

Bonjour Tortapoya,

Tu n'as pas bien lu ce que j'ai écris :

Citation:

Ton problème vient du fait que tu passes en argument une adresse au lieu d'une range.

Donc :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim range1 As Range
Dim range2 As Range
 
 While Not IsEmpty(Sheets("cac40valbeta").Cells(1, j))
        Cells(2, 3).Activate
        Set range1 = Range(Selection, Selection.End(xlDown))
 
        Cells(2, j).Activate
        Set range2 = Range(Selection, Selection.End(xlDown))
 
        Cells(6, j) = Application.WorksheetFunction.Slope(range2, range1)
 
        j = j + 1
 Wend

Cordialement,
Kimy