XL 2019 Affecter une valeur à une cellule en fonction de la valeur de la cellule précédente

[AlexC]

Bonjour à tous,

Je suppose que ma question est assez basique mais je n'arrive pas à trouver de réponse satisfaisante sur internet...
Comme indiquer dans le titre j'aimerais affecter une valeur à une cellule en fonction de la valeur de la cellule précédente. Par exemple, si une cellule contient la lettre "E", j'aimerais que les 5 cellules qui suivent contiennent elles aussi la lettre "E". Si une cellule contient la lettre "D", j'aimerais que les 20 cellules qui suivent contiennent la lettre "D".

Existe-t-il une formule pour réaliser cela ?

Merci d'avance et bonne journée

 

[job75]

Vous avez raison.

Chez moi sur le fichier du post #21 la revalidation en A1 (ou d'une autre cellule) suffit pour le recalcul des formules.

Mai si j'efface puis remets la formule en B1 de la feuille Références en effet ça ne suffit plus.

J'avoue ne pas comprendre le pourquoi de ces comportements.

Il faut alors entrer 2021 en A1 puis revenir en 2020 pour que le recalcul des formules se fasse.

On pourrait éviter ce va et vient en rendant volatile la fonction MFC :

Function MFC(cel As Range, feries As Range) As Double
Application.Volatile
'-----'

Mais je ne le recommande pas car alors toutes les formules se recalculent quand on modifie une cellule quelconque du fichier et comme je l'ai dit cela prend 1,5 seconde.

 

[AlexC]

J'avais justement essayé de passer en 2021 puis de revenir en 2020 mais rien ne changeait....

Il faut donc que j'insère votre complément de VBA c'est bien ça ?

Merci encore de prendre de votre temps pour m'aider !

 

[job75]

Relisez et tâchez de bien comprendre mon post #31.

Et vérifiez qu'il y a bien la formule de liaison =Calendrier!A1 en B1 de la feuille Références.

 

[AlexC]

Si j'ai bien compris votre post, vous ne conseillez pas cette méthode car le temps de recalcule est long. Toutefois, le temps de calcul n'est pas vraiment un problème dans mon cas, il faut seulement que la formule fonctionne...

J'ai vérifié que mes formules soient bien en automatiques, c'est le cas.
J'ai vérifié la liaison en B1, elle est faite.
J'ai revalidé A1, rien ne se produit….
J'ai essayé en rajoutant votre complément de VBA rien de se produit non plus...

Pourtant j'ai seulement modifié cette partie :
a = Array("E", "D", "P", "G") 'modifiable
b = Array(5, 20, 20, 5) 'modifiable
c = Array(0.6, 0.25, 0.4, 0.5) 'modifiable

Mais la formule tourne comme si aucun de mes changements n'a été pris en compte…

Je comprends bien que je dois vous ennuyer avec toutes mes questions et j'en suis réellement désolée… je pensais pouvoir obtenir le calendrier qu'on m'a demandé de réaliser puisqu'on était si prêt du but.. mais si même vous ne comprenez pas "le pourquoi de ces comportements" je ne sais pas comment je pourrais comprendre cela toute seule ^^' tant pis...

 

[job75]

Mais la formule tourne comme si aucun de mes changements n'a été pris en compte…

Vraiment très curieux, joignez votre fichier on y verra peut-être plus clair.

 

[AlexC]

Bonjour,

Voila le fichier, j'ai mis un peu de temps à l'anonymiser à nouveau !

 

[job75]

Bonsoir AlexC,

Vous jouez les apprentis sorciers, ce n'est plus du tout le même fichier :

- la MFC sur la plage C7:ND50 n'est pas du tout correcte

- la formule en ligne 50 n'est pas du tout celle que j'ai donnée.

Donc je laisse tomber, j'ai résolu le problème au post #21 ça suffit.

A+

 

[AlexC]

Bonjour,

Ah bon, je suis très étonnée, j'ai pourtant repris votre fichier et rajouté les éléments qu'il me manquait...

Mais je comprends,

Bonne journée.

 

[AlexC]

Re bonjour,

Au temps pour moi, j'avais dû en effet faire une erreur en reprenant votre fichier du post #21. J'ai recommencé mes modifications en repartant de votre post et tout fonctionne correctement ! Je ne sais pas ce que j'avais fait....

Désolé 1000 fois et merci énormément du temps que vous avez passé pour m'aider !

J'arrête donc officiellement de vous embeter

Bonne journée et prenez soin de vous en cette période difficile !