Discussion :

[hemcyseed]

Bonjour,

J'aimerais remplir un tableau de bord en fonction de certains critère et que ce dernier puisse être évolutif c'est à dire qu'au fil des années on puisse encore l'utiliser. Je m'explique

J'ai une colonne dans laquelle j'ai des dates (O4:O210) et une colonne dans laquelle j'ai un statut (P4:P210), j'aimerais pouvoir dire pour chaque mois/ année quel est le statut.
Je l'ai fait manuellement avec =SOMMEPROD((ANNEE(Feuil1!O4:O210)=14)*(MOIS(Feuil1!O4:O210)=3)*(Feuil1!P4:P210="STATUT OK")) Pour chaque mois et année.
Je souhaiterais le faire avec une macros avec une boucle par exemple. Car j'ai 710 cellules à remplir manuellement ce qui est fastidieux et ne me permet pas d'anticiper les mois et années à venir.

Si vous avez une solution, je suis preneur. J'espère avoir été assez clair.

Merci :D

[clementmarcotte]

Bonjour,

Pour les histoires de SOMMEPROD(), je ne suis pas un formuliste expert et je n'ose pas trop me prononcer. Mais, la règle générale c'est que l'on peut mettre une formule Excel dans une cellule de feuille de calcul en VBA en utilisant Formula ou Formulalocal

Code :

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

range("a1").FormulaLocal = "=somme("c1:c8")"

ou

Code :

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

range("a1").Formula = "=sum("c1:c8")"

Cela prend vraiment les deux signes =

[hemcyseed]

Bonjour et merci pour ta réponse.

Mais cela m'oblige d'écrire une ligne de code par cellule :/ il y aurait pas un moyen pour lancer une boucle qui remplit mes cellules une à une avec une formule que j'aurais renseigné ?

Merci :D

[Marc-L]

Bonjour,

la formule de la présentation initiale est-elle identique pour chaque cellule de la plage (laquelle du reste, quelle feuille ?) ?
Faut-il conserver la formule ou uniquement le résultat ? Etc … Solution : Range(Plage).FormulaLocal = la formule …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[hemcyseed]

La formule change pour chaque cellule
exemple :

Code :

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

1
2
3
4
Range("feuil2!V10").Formula = "=SOMMEPROD((YEAR(Feuil1!O4:O210)=2015)*(Month(Feuil1!O4:O210)=1)*(Feuil1!P4:P210= OK))"
Range("feuil2!V11").Formula = "=SOMMEPROD((YEAR(Feuil1!O4:O210)=2015)*(Month(Feuil1!O4:O210)=1)*(Feuil1!P4:P210= en retard))"
Range("feuil2!V12").Formula = "=SOMMEPROD((YEAR(Feuil1!O4:O210)=2015)*(Month(Feuil1!O4:O210)=1)*(Feuil1!P4:P210= à réaliser))"
Range("feuil2!V13").Formula = "=SOMMEPROD((YEAR(Feuil1!O4:O210)=2015)*(Month(Feuil1!O4:O210)=1)*(Feuil1!P4:P210=  KO))"

Ps: cela ne marche pas :'(

Il faut que je remplisse un tableau en fonction du mois et de l'année mais aussi du statut. Sinon j'écris une ligne pour chaque cellule.

Merci

[Marc-L]

Dans la formule, les guillemets sont manquants ! Et les doubler, exemple : =""OK"") …

Chaque cellule de la plage de 710 cellules a un texte différent dans la formule ? (OK, en retard, …)