Fonction excel dans VBA
Résolu
I folima Elda
-
I folima Elda Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
I folima Elda Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
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?
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?
A voir également:
- Fonction excel dans VBA
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fonction moyenne excel - Guide
- Déplacer colonne excel - Guide
7 réponses
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
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
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...
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...
Ok, en utilisant ton truc je suis bien content. Je peut utiliser ma formule Excel sous VBA en connaissant la plage de donnée. Sauf que moi je ne la connais pas. Alors comment remplacer le B1:B9 en variable.
Voilà ce que j'ai en ce moment mais il me dit affectation à une constant non autorisé
LDeb = j
CDeb = 1
LFin = (j + N - 1)
CFin = 1
Range(Cells(LDeb, CDeb), Cells(LFin, CFin)) = X
LDeb = j
CDeb = 2
LFin = (j + N - 1)
CFin = 2
Range(Cells(LDeb, CDeb), Cells(LFin, CFin)) = Y
Application.WorksheetFunction.Slope(Y, X) = pente
Voilà ce que j'ai en ce moment mais il me dit affectation à une constant non autorisé
LDeb = j
CDeb = 1
LFin = (j + N - 1)
CFin = 1
Range(Cells(LDeb, CDeb), Cells(LFin, CFin)) = X
LDeb = j
CDeb = 2
LFin = (j + N - 1)
CFin = 2
Range(Cells(LDeb, CDeb), Cells(LFin, CFin)) = Y
Application.WorksheetFunction.Slope(Y, X) = pente
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
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
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)?
ça m'a l'air pas mal comme truc. Et ça marche comme truc pour appliquer ma fonction: Application.WorksheetFunction.Slope(Y, X)?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
re :
alors voilà ce que ca donne :
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
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
re:
afficher le résultat dans une cellule donnée ?
ou
insérer la formule dans une cellule donnée ?
Lupin
afficher le résultat dans une cellule donnée ?
ou
insérer la formule dans une cellule donnée ?
Lupin
j'ai bien dit afficher le résultat dans une cellule donnée. C'est juste une donnée à titre indicatif pour l'utilisateur.
En gros, la macro calcule la pente, affiche le résultat dans une cellule puis ce résultat, la macro la réutilise pour d'autre calcul (ce de fisher pour ce qui connaissent ;)). Voilà. Et merci de ton aide Lupin
En gros, la macro calcule la pente, affiche le résultat dans une cellule puis ce résultat, la macro la réutilise pour d'autre calcul (ce de fisher pour ce qui connaissent ;)). Voilà. Et merci de ton aide Lupin
