bonjour For I =2 To Cells(1, 2).Value Cells(I, 1).Value = Application.WorksheetFunction.Power(Cells(1, 1).Value, I) Next
A+
Bonjour à tous,
j'ai une valeur x en A1 , un valeur n en B1; je voudrais avoir de A2 à An les valeurs x^2 à x^n avec une sub vba.Merci d'avance
docm
Bonjour.
Il y a aussi la fonction EVALUATE.
Sub tt() e = 2 For ligne = 2 To Cells(1, 2).Value a = Cells(1, 1).Value & "^" & e Cells(ligne, 1).Value = Application.Evaluate(a) e = e + 1 Next End Sub
docm
"janus51" a écrit dans le message news:
Bonjour à tous,
j'ai une valeur x en A1 , un valeur n en B1; je voudrais avoir de A2 à An les valeurs x^2 à x^n avec une sub vba.Merci d'avance
Bonjour.
Il y a aussi la fonction EVALUATE.
Sub tt()
e = 2
For ligne = 2 To Cells(1, 2).Value
a = Cells(1, 1).Value & "^" & e
Cells(ligne, 1).Value = Application.Evaluate(a)
e = e + 1
Next
End Sub
docm
"janus51" <janus51@wanadoo.fr> a écrit dans le message news:
uyNp6q92FHA.2800@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
j'ai une valeur x en A1 , un valeur n en B1; je voudrais avoir de A2 à An
les valeurs x^2 à x^n avec une sub vba.Merci d'avance
Sub tt() e = 2 For ligne = 2 To Cells(1, 2).Value a = Cells(1, 1).Value & "^" & e Cells(ligne, 1).Value = Application.Evaluate(a) e = e + 1 Next End Sub
docm
"janus51" a écrit dans le message news:
Bonjour à tous,
j'ai une valeur x en A1 , un valeur n en B1; je voudrais avoir de A2 à An les valeurs x^2 à x^n avec une sub vba.Merci d'avance
