Plages variables dans une fonction "=TREND&qu
Vertical
-
vertical -
vertical -
Bonjour,
Pour un tableau EXCEL contenant des mesures, je souhaite intégrer dans une procédure VBA une fonction "TREND", faisant référence à une plage de cellules variable.
Or, malgré plusieurs tentatives, je n'y arrive pas.
A partir de la programmation suivante (pour test), dans la cellule du tableau (F4), il me renvoit systématiquement "#NOM?"
Sub Macro4()
Dim PlageCalcul As Range
Dim PlageDate As Range
Dim Indice1
Dim Indice2
'
Indice1 = 4
Indice2 = 15
Set PlageCalcul = Range("D" & Indice1 & ":D" & Indice2)
Set PlageDate = Range("A" & Indice1 & ":A" & Indice2)
Range("F4").Select
ActiveCell.FormulaR1C1 = "=TREND(PlageCalcul,PlageDate)"
End Sub
Quelqu'un aurait-il une idée ??
D'avance merci.
Pour un tableau EXCEL contenant des mesures, je souhaite intégrer dans une procédure VBA une fonction "TREND", faisant référence à une plage de cellules variable.
Or, malgré plusieurs tentatives, je n'y arrive pas.
A partir de la programmation suivante (pour test), dans la cellule du tableau (F4), il me renvoit systématiquement "#NOM?"
Sub Macro4()
Dim PlageCalcul As Range
Dim PlageDate As Range
Dim Indice1
Dim Indice2
'
Indice1 = 4
Indice2 = 15
Set PlageCalcul = Range("D" & Indice1 & ":D" & Indice2)
Set PlageDate = Range("A" & Indice1 & ":A" & Indice2)
Range("F4").Select
ActiveCell.FormulaR1C1 = "=TREND(PlageCalcul,PlageDate)"
End Sub
Quelqu'un aurait-il une idée ??
D'avance merci.
A voir également:
- Plages variables dans une fonction "=TREND&qu
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- Fonction remplacer dans word - Guide
1 réponse
Bonjour,
Voila un code qui doit fonctionner :
En fait, il faut mettre dans ActiveCell.Formula une chaine de caractère qu'il faut composer par concaténation. De plus FormulR1C1 ne marche qu'avec la syntaxe R1C1.
A+
Voila un code qui doit fonctionner :
Sub Macro4()
Dim PlageCalcul As String
Dim PlageDate As String
Dim Indice1
Dim Indice2
'
Indice1 = 4
Indice2 = 15
PlageCalcul = "D" & Indice1 & ":D" & Indice2
PlageDate = "A" & Indice1 & ":A" & Indice2
Range("F4").Select
ActiveCell.Formula = "=TREND(" & PlageCalcul & "," & PlageDate & ")"
End Sub
En fait, il faut mettre dans ActiveCell.Formula une chaine de caractère qu'il faut composer par concaténation. De plus FormulR1C1 ne marche qu'avec la syntaxe R1C1.
A+
J'ai suivi vos conseils, et ça marche !!!
Merci beaucoup.