Macro incrémenter formule dans cellule

kwakos · 13 Octobre 2009

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 · 13 Octobre 2009

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 · 13 Octobre 2009

Re : Macro incrémenter formule dans cellule

Bonsoir,

Code:

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

A+
kjin

Lii · 13 Octobre 2009

Re : Macro incrémenter formule dans cellule

Bonsoir,

essaie :

Code:

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

kwakos · 14 Octobre 2009

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

Macro incrémenter formule dans cellule

kwakos

XLDnaute Occasionnel

13GIBE59

XLDnaute Accro

kjin

XLDnaute Barbatruc

Lii

XLDnaute Impliqué

kwakos

XLDnaute Occasionnel

Discussions similaires