XL 2016 Conserver couleur choisie avec la macro existante

[Al1_44]

Bonjour le forum,
Comment conserver la couleur jaune des cellules de la colonne N avec la macro existante?
La macro me permet de mettre certaines cellules en bleu et de les mettre en blanc une fois ces cellules remplies.
Et bien évidement lorsque je colore en jaune les cellules, cela fonctionne jusqu'à la prochaine saisie.
Bien à vous,
AL1

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Al1_44

je rencontre une erreur sur la ligne :
"If tablo(i, 14) Like "*MFI*" Then P(i, 14).Interior.Color = RGB(217, 217, 217)"

Normal, il y a 2 problèmes :

1. P est un objet range = syntaxe correcte est :
   

   If tablo(i, 14) Like "*MFI*" Then P.cells(i, 14).Interior.Color = RGB(217, 217, 217)

2. tablo(i,14) peut contenir des valeurs d'erreurs à cause de la formule :
   

   =SI(M6>0;RECHERCHEV(M6;'détail FRI'!B:K;2;FAUX);"")

   C'était le cas ligne 178 où l'on obtenait N/A# car M178 contient "MSBICS450W" qui n'est pas une référence Article. En plus les références Article ne sont pas toutes numériques cas également de M177 qui vaut "2150330015A" !
   à remplacer par :
   

   =SIERREUR(RECHERCHEV(M6;'détail FRI'!B:K;2;FAUX);"")

Voir le fichier corrigé en PJ

Amicalement
Alain

 

[Al1_44]

Bonjour à toutes & à tous, bonjour @Al1_44


Normal, il y a 2 problèmes :

1. P est un objet range = syntaxe correcte est :
   

   If tablo(i, 14) Like "*MFI*" Then P.cells(i, 14).Interior.Color = RGB(217, 217, 217)

2. tablo(i,14) peut contenir des valeurs d'erreurs à cause de la formule :
   

   =SI(M6>0;RECHERCHEV(M6;'détail FRI'!B:K;2;FAUX);"")

   C'était le cas ligne 178 où l'on obtenait N/A# car M178 contient "MSBICS450W" qui n'est pas une référence Article. En plus les références Article ne sont pas toutes numériques cas également de M177 qui vaut "2150330015A" !
   à remplacer par :
   

   =SIERREUR(RECHERCHEV(M6;'détail FRI'!B:K;2;FAUX);"")

Voir le fichier corrigé en PJ

Amicalement
Alain

Bonjour à tous, bonjour AtTheOne,
Désolé pour ma réponse tardive, cette journée au boulot ne m'a pas laissé beaucoup de temps.
Sur ton conseil, j'ai appliqué les corrections au niveau du code sur les lignes P(i, n° colonnes) en P.cells(i, n° colonne).
C'est impeccable.
Merci à toi