Macro incrémenter formule dans cellule

[kwakos]

Salut le forum !

Voilà, j'ai un petit probleme sur ma macro qui ne marche pas, et je ne comprend pas pourquoi.
Je voudrais qu'en cliquant sur mon bouton cela incrémente ma cellule a2 de la feuille 2 de la formule "=ALEA.ENTRE.BORNES(1;A1)"

donc j'ai écrit :
Private Sub CommandButton1_Click()
Sheets(2).Range("a2").Formula = "=ALEA.ENTRE.BORNES(1;A1)"
End Sub

Mais voilà... BUG...
Que se passe-t-il ?

Merci à vous !

kwakos

 

[13GIBE59]

Re : Macro incrémenter formule dans cellule

Bonjour kwakos.

C'est normal que ça bugue : vba est un langage complexe écrit en anglais, et ne supporte pas "ALEA ENTRE BORNES" écrit en français !

Pour incrémenter une formule en vba, il faut utiliser "autofill".

 

[kjin]

Re : Macro incrémenter formule dans cellule

Bonsoir,

Private Sub CommandButton1_Click()
Sheets(2).Range("a2").Formula = "=ALEA.ENTRE.BORNES(1[COLOR="Red"][B],[/B][/COLOR]A1)"
End Sub

A+
kjin

 

[Lii]

Re : Macro incrémenter formule dans cellule

Bonsoir,

essaie :

Sheets(2).Range("a2").[B]FormulaLocal[/B] = "=ALEA.ENTRE.BORNES(1;A1)"

 

[kwakos]

Re : Macro incrémenter formule dans cellule

Re bonjour

@kjin : Ca ne fonctionne pas chez moi, cela n'incremente pas la formule dans ma cellule mais cela affiche la formule comme un texte

@Lii : ta solution fonctionne parfaitement ! Un grand merci !!!

Merci à vous tous