XL 2016 La macro efface les formules

Thierry31

XLDnaute Nouveau
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
 

Pièces jointes

  • MACRO FORMULE.xlsm
    25.9 KB · Affichages: 5

JHA

XLDnaute Barbatruc
Bonjour à tous,

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

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

JHA
 

Pièces jointes

  • MACRO FORMULE.xlsm
    23.7 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Thierry, JHA,
Ou sans trop toucher à la macro existante, il suffit de remettre la formule en place avec :
VB:
[Tableau1[Alerte]].Item(1).Formula = "=IF(Tableau1[[#This Row],[Colonne21]]<Tableau1[[#This Row],[Colonne22]],1,0)"
 

Pièces jointes

  • MACRO FORMULE (4).xlsm
    24.9 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
312 561
Messages
2 089 669
Membres
104 251
dernier inscrit
casino.macon