d'une formule si en VBA

Staple1600 à dit:

Re

Sinon ta formule peut se simplifier en : =ESTTEXTE(G13)*1
et pour avoir un a à la place du 1 : =REPT("a";ESTTEXTE(G13))

Cliquez pour agrandir...

Staple1600 à dit:

Re

J'ai donc utilisé l'enregistreur de macros (pour avoir le code de départ)
puis j'ai modifié (voir ci-dessous)

VB:

Sub Remaniement_de_code()
'On part du code obtenu par l'enregisteur
'/////////////////////////////////////////////////////////
'Range("H13").Select                                     /
'ActiveCell.FormulaR1C1 = "=REPT(""a"",ISTEXT(RC[-1]))"  /
'/////////////////////////////////////////////////////////
'Pour transformer en ce qui suit
Dim dL&
dL = Cells(Rows.Count, "G").End(3).Row
Range("H13:H" & dL) = "=REPT(""a"",ISTEXT(RC[-1]))"
Range("H13:H" & dL) = Range("H13:H" & dL).Value ' pour supprimer les formules
End Sub

Cliquez pour agrandir...