Discussion :

[chunisy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cb_60]

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

"=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

[Promethee25]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

""

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

""""

Soit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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);"""")"

[chunisy]

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

encore merci