XL 2016 La macro efface les formules

[Thierry31]

Bonjour,

J'ai fichier avec une macro qui me permet de recopier certaines colonnes de la Feuil1 vers la Feuil2 sous condition (si le resultat de la formule en colonne X de la feuil1 est égal à 1)
Elle marche très bien pour la copie sous condition, le seul problème et de taille, c'est qu'une fois validée, elle efface les formules de l'ensemble du tableau de la feuil1, ce qui revient à ressaisir toutes les formules.

Existe-t-il une partie du code de cette macro que l'on peut modifier ou supprimer afin d'empêcher l'effacement des formules?

Merci par avance pour votre aide

 

[JHA]

Bonjour à tous,

Peut-être que cette formule fait le job sans macro

=SI(ET([@Alerte]=1;ESTNUM(EQUIV([@Article];Tableau2[Article];0)));"Fait";SI([@Alerte]=0;"";"A commander"))

JHA

 

[sylvanu]

Bonjour Thierry, JHA,
Ou sans trop toucher à la macro existante, il suffit de remettre la formule en place avec :

[Tableau1[Alerte]].Item(1).Formula = "=IF(Tableau1[[#This Row],[Colonne21]]<Tableau1[[#This Row],[Colonne22]],1,0)"

 

[JHA]

Bonjour à tous, Bonjour Sylvanu

Avec une MFC

JHA