Discussion :

[Tortapoya]

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 ?

[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 :

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

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

... si selectionaction est une range.

Tiens moi au courant !

Cordialement,
Kimy

[Tortapoya]

Bonjour Kimy_Ire,

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

Code :

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

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

[Kimy_Ire]

Bonjour Tortapoya,

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

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

Donc :

Code :

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

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