XL 2016 Conserver couleur choisie avec la macro existante

Al1_44

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

Pièces jointes

  • AL44-3.xlsm
    17 KB · Affichages: 15
Solution
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 :
    Enrichi (BBcode):
    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 :
    Code:
    =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...

AtTheOne

XLDnaute Accro
Supporter XLD
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 :
    Enrichi (BBcode):
    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 :
    Code:
    =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 :
    Code:
    =SIERREUR(RECHERCHEV(M6;'détail FRI'!B:K;2;FAUX);"")
Voir le fichier corrigé en PJ

Amicalement
Alain
 

Pièces jointes

  • AL44-4.xlsm
    715.7 KB · Affichages: 5

Al1_44

XLDnaute Junior
Bonjour à toutes & à tous, bonjour @Al1_44


Normal, il y a 2 problèmes :
  1. P est un objet range = syntaxe correcte est :
    Enrichi (BBcode):
    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 :
    Code:
    =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 :
    Code:
    =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
 

Discussions similaires

Réponses
26
Affichages
614

Statistiques des forums

Discussions
313 280
Messages
2 096 781
Membres
106 748
dernier inscrit
Abdel93