Ajout de contenu dans une cellule par boucle

[kira]

Bonjour à tous,
Je suis débutant en VBA et je rencontre un problème. Mon but est d'inscrire une formule dans une cellule. Cependant je rencontre un problème, la valeur contenue dans la cellule active au finale ne prend en compte que la dernière valeur de mon tableau. Je n'arrive pas à "ajouter" les morceaux de texte à la suite les uns des autres.
Voilà mon code :

For i = 0 To 25
  For j = 1 To UBound(tableau) - 1
     Cells(ref, 3 + i).Select
     ActiveCell.value = "="
     ActiveCell.value = ActiveCell.value & "+" & Chr(65 + i) & tableau(j)
  Next j
Next i

J'ai vérifié mon tableau, il contient bien les valeurs que je veux insérer, la valeur finale dans la cellule active correspond cependant uniquement à la dernière valeur de mon tableau au lieu de leur somme.

Merci d'avance à ceux qui pourraient m'apporter une réponse.

 

[Hippolite]

Re : Ajout de contenu dans une cellule par boucle

Bonjour,
Avec ActiveCell.value = "=", tu écrases tout ,normal que tu n'aies que la dernière valeur.
Tu ne dis pas la nature de ton tableau
Si tu veux contruire une formule ce sera ActiveCell.Formula
Dans l'attente de plus d'information
A+

essaie

For i = 0 To 25
  For j = 1 To UBound(tableau) - 1
     Cells(ref, 3 + i).Select
     ActiveCell.Text = ActiveCell.Text & "+" & Chr(65 + i) & tableau(j)
  Next j
Next i
ActiveCell.Formula = "=" & ActiveCell.Text

 

[Hippolite]

Re : Ajout de contenu dans une cellule par boucle

Re,
J'ai oublié un détail important :
Si ta formule comporte des guillemets, il faut les doubler pour qu'ils soient reconnus
A+