fonction excel dans VBA Résolu/Fermé

Question

Salut,

J'essai d'utiliser des fonctions excel sous vba. Cependant, comme je ne connais pas le nombre de ligne (qui est définie par l'utilisateur), j'utilise donc une séquence du genre:

j = 4
    LDeb = j
    CDeb = 1
    LFin = (j + N - 1)
    CFin = 2
Cells(2, 5).FormulaLocal = "=PENTE(Cells(LDeb, CDeb), Cells(LFin, CFin))"
Cells(2, 6).FormulaLocal = "=ORDONNEE.ORIGINE(Cells(LDeb, CDeb), Cells(LFin, CFin))"
Cells(2, 7).FormulaLocal = "=COEFFICIENT.DETERMINATION(Cells(LDeb, CDeb), Cells(LFin, CFin))"
a = Cells(2, 5)
b = Cells(2, 6)
r² = Cells(2, 7)


Sauf que ça fonctionne pas. Quelqu'un pourrais m'aider svp?

I folima Elda · Answer

modification du code...

j = 4
    LDeb1 = j
    CDeb1 = 1
    LFin1 = (j + N - 1)
    CFin1 = 1
    LDeb2 = j
    CDeb2 = 2
    LFin2 = (j + N - 1)
    CFin2 = 2
Cells(2, 5).FormulaLocal = "=PENTE(Cells(LDeb2, CDeb2), Cells(LFin2, CFin2); Cells(LDeb1, CDeb1), Cells(LFin1, CFin1))"
Cells(2, 6).FormulaLocal = "=ORDONNEE.ORIGINE(Cells(LDeb2, CDeb2), Cells(LFin2, CFin2); Cells(LDeb1, CDeb1), Cells(LFin1, CFin1))"
Cells(2, 7).FormulaLocal = "=COEFFICIENT.DETERMINATION(Cells(LDeb2, CDeb2), Cells(LFin2, CFin2); Cells(LDeb1, CDeb1), Cells(LFin1, CFin1))"
a = Cells(2, 5)
b = Cells(2, 6)
r² = Cells(2, 7)

mais celà ne fonctionne toujours pas.
Quelqu'un svp

osanowo · Answer

tu ne peux pas utiliser des variables dans ton code entre guillemets.

Pour utiliser des fonctions de feuille de calcul directement sous VBA tu dois utiliser la fonction :
Application.WorksheetFunction.Sum
(Ici Sum pour la fonction Somme)

Si tu ne connais pas le nom de la fonction à utiliser, place toi sur ta cellule contenant ta formule et lance la macro : 
MsgBox ActiveCell.Formula
Il traduira tout seul...

Utilisateur anonyme · Answer

Bonjour,

Il vous faut une colonne index !

C'est a dire une colonne non-vide variable que vous n'avez pas besoin de connaitre,
les instructions VBA sont la pour ca !

Colonne Index A, en partant de la ligne 5 ( Si A1 a A4 sont non-vide, caracteres cachés, n'importe quoi)


Dim Plage As Range, Cellule As Range, Balise As Long

Balise = Range("A65536").End(xlUp).Row     ' Cherche la premiere cellule non-vide en partant de la fin vers le haut

Set Plage = Range("A5:A" & Balise)

For Each Cellule In Plage
...MsgBox Cellule.Offset(0,0).Value             ' L'option Offset permet un acces a toute la feuille
Next Cellule

Lupin

I folima Elda · Answer

Donc en fait avec ça, il va dans un premier temps me chercher ma dernière ligne de ma colonne (que je ne connais pas donc) et ensuite il me prendra ma plage de donnée de la colonne dont je connais le début jusqu'à la fin.
ça m'a l'air pas mal comme truc. Et ça marche comme truc pour appliquer ma fonction: Application.WorksheetFunction.Slope(Y, X)?

Utilisateur anonyme · Answer

re :

en fait je ne connais pas l'instruction [ Slope ]

Application.WorksheetFunction.Slope(Y, X)

mais oui, on place cette instruction à la place du 
...MsgBox Cellule ...

je jette un coup d'oeil sur le net pour me renseigner.

Lupin

Utilisateur anonyme · Answer

re :

alors voilà ce que ca donne :


Option Explicit
'

Sub CalculPentePourChaquePoint()

    Dim Plage As Range, Cellule As Range, Balise As Long
    Dim Plage1 As Range, Plage2 As Range, Resultat As Double

    ' Cherche la premiere cellule non-vide en partant de la fin vers le haut
    Balise = Range("A65536").End(xlUp).Row

    Set Plage = Range("A5:A" & Balise)

    For Each Cellule In Plage
        ' L'option Offset permet un acces a toute la feuille
        ' MsgBox Cellule.Offset(0, 0).Value
        Set Plage1 = Cellule.Offset(0, 2)
        Set Plage2 = Cellule.Offset(0, 3)
        Resultat = Application.WorksheetFunction.Slope(Plage1, Plage2)
        If (Resultat > 0) Then
            Cellule.Offset(0, 1).Value = Resultat
        End If
    Next Cellule

End Sub
'


attention, pas testé c'est un exemple type effectuant la fonction [ slope ]

si vous désirez inscrire le formule [ Application.WorksheetFunction.Slope(Plage1, Plage2) ]
dans une cellule, c'est une autre histoire.

Lupin

Utilisateur anonyme · Answer

re:

afficher le résultat dans une cellule donnée ?

ou

insérer la formule dans une cellule donnée ?

Lupin

Fonction excel dans VBA

7 réponses

Discussions similaires