Probleme de Formule en VBA

Bonjour,

je tâtonne un peux pour insérer cette formule dynamiquement grace au vba si je rentre la formule directement dans une cellule excel cela fonctione mais en VBA je n'y arrive pas.
Par la suite j'aimerais que C$12 prennent plusieurs valeurs (incrémentation) si vous avez une idée

Code:

---

Sheets("Planning").Cells(ligne, colonne).FormulaLocal = "=SI(SOMMEPROD((Noms=$A13)*(C$12>=Début)*(C$12<=Fin))>0;INDEX(Taches;SOMMEPROD((Noms=$A13)*(C$12>=Début)*(C$12<=Fin)*LIGNE(Noms))-1);"")"

---

Par avance merci je suis en galère

Bonsoir
Le VBA ne reconnait pas les formules en français!!
le plus simple, met la formule dans ta cellule, puis enregistre une nouvelle macro, en cliquant sur cette cellule, tu aura la syntaxe exacte

Citation:

---

"=IF(SUMPRODUCT((Noms=R[12]C1)*(R12C[2]>=Début)*(R12C[2]<=Fin))>0,INDEX(Taches,SUMPRODUCT((Noms=R[12]C1)*(R12C[2]>=Début)*(R12C[2]<=Fin)*ROW(Noms))-1),"""")"

---

, ça doit ressembler à ça

Bonjour,

Avec FormulaLocal il peut mettre la formule en français.
cb_60, ta formule en anglais doit être copiée dans la propriété Formula.

Pour moi, le problème vient juste du texte vide à la fin de ta formule (corrigé dans la formule de cb_60): Tu veux en fait représenter deux guillemets pour le texte vide. Or le caractère guillemet dans VBA s'écrit:

Code:

---

""

---

Ce qui veut dire que deux guillemets s'écrivent:

Code:

---

""""

---

Soit:

Code:

---

Sheets("Planning").Cells(ligne, colonne).FormulaLocal = "=SI(SOMMEPROD((Noms=$A13)*(C$12>=Début)*(C$12<=Fin))>0;INDEX(Taches;SOMMEPROD((Noms=$A13)*(C$12>=Début)*(C$12<=Fin)*LIGNE(Noms))-1);"""")"

---

merci Promethee25 avec ta correction tous fonctionnent c'est super
maintenant je vais pouvoir passé a la suite

encore merci