Macro VBA - Correlation de données

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

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:

---

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

---

ou

Code:

---

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

---

Cela prend vraiment les deux signes =

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

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

La formule change pour chaque cellule
exemple :

Code:

---

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

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, …)

Les 710 cellules se sont les cellules dans lesquelles je renseigne le nombre de statut OK pour tel mois de tel année

Il y a un total de 44 statut différents.

Du coup je dit par exemple que pour l'année 2015 et le mois 6, combien il y a de statut ok ? et je renseigne la cellule C1 puis je fait pareil pour chaque mois de l'année et ensuite pour chaque année et à chaque fois je renvois le résultat dans une cellule différente. Et je fait cette manipulation pour chaque statut/mois/année, c'est long et fastidieux.

Pièce jointe 181056

Si cette image est la feuille résultat, je ne visualise pas ton souci car une formule doit faire l'affaire …
Elle doit juste faire référence au statut en début de ligne et à la date en début de colonne.
Une fois que cela fonctionne pour une cellule, la recopier vers le bas ou vers la droite.
Si elle a été correctement pensée, le résultat est juste …

quand je la transfert dans la cellule d'a coté le moi et l'année ne change pas et de plus ma zone de sélection change :/

Code:

---

1 2 3 4

Range("feuil2!AG4").Formula = "=SOMMEPROD((YEAR(Feuil1!O4:O210)=2015)*(Month(Feuil1!O4:O210)=12)*(Feuil1!P4:P210=""OK""))" Range("feuil2!AG5").Formula = "=SOMMEPROD((YEAR(Feuil1!O4:O210)=2015)*(Month(Feuil1!O4:O210)=12)*(Feuil1!P4:P210=""OK en retard""))" Range("feuil2!AG6").Formula = "=SOMMEPROD((YEAR(Feuil1!N4:N210)=2015)*(Month(Feuil1!N4:N210)=12)*(Feuil1!P4:P210=""à réaliser""))" Range("feuil2!AG7").Formula = "=SOMMEPROD((YEAR(Feuil1!N4:N210)=2015)*(Month(Feuil1!N4:N210)=12)*(Feuil1!P4:P210=""KO""))"

---

Voila mes formules. Je sais pas se que je doit changer pour que ca marche. Pour le moment j'ai fait mais 1215 lignes de codes pour remplir toutes mes cellules :D
Merci

Pour éviter que les adresses des cellules ne changent, il faut les verrouiller par des $

tant au niveau des colonnes que des lignes. Exemple : $N$4:$N$210 …

Code:

---

=SOMMEPROD((ANNEE([Classeur1.xlsm]Feuil1!$O$4:$O$210)=2013)*(MOIS([Classeur1.xlsm]Feuil1!$O$4:$O$210)=6)*([Classeur1.xlsm]Feuil1!$P$4:$P$210="OK"))

---

Mais du coup les mois et années ne s'incrémente pas. Comment faire ? stp
Merci

Évidemment il ne faut pas paramétrer en dur l'année et le mois

mais utiliser les fonctions de feuille de calculs ANNEE et MOIS sur l'entête de la colonne (format Date) …