XL 2021 Modification d'une cellule calculée

clausen · 11 Janvier 2024

Dans le fichier joint, j'aimerais :

Quand je type dans la cellule I, j'ai automatiquement le résultat selon labelle dans la colonne J

J'aimerais que si je transforme le résultat en remplissant par-dessus la cellule de la colonne J que le résultat que j'ai typé apparaisse en rouge gras.

Et cela pour toutes les colonnes "J L N" et toutes les feuilles

Merci d’avance pour votre réponse et bonne journée

clausen · 12 Janvier 2024

Modeste geedee à dit:
Bonsour®
avez vous au moins testé la MFC proposée concernant uniquement le changement de contenu(formule ou saisie) de la plage J4:J34

oui mais ça marche pas

Modeste geedee · 12 Janvier 2024

Modeste geedee à dit:
Bonsour®
avez vous au moins testé la MFC proposée concernant uniquement le changement de contenu(formule ou saisie) de la plage J4:J34

clausen à dit:
oui mais ça marche pas

???

clausen · 12 Janvier 2024

Modeste geedee à dit:
???

Super ça a l'air de fonctionner. J'aimerais modifier le fond garder un fond blanc et écriture en rouge Gras

Dranreb · 12 Janvier 2024

Joignez ce que vous avez essayé, que je puisse vous dire pourquoi ça ne marche pas.

Modeste geedee · 12 Janvier 2024

clausen à dit:
Super ça a l'air de fonctionner. J'aimerais modifier le fond garder un fond blanc et écriture en rouge Gras

Bonsour®
si la cellule devient vide ou espace l'ecriture blanche ne permet pas de voir n'intervention

clausen · 12 Janvier 2024

Modeste geedee à dit:
Bonsour®
si la cellule devient vide ou espace l'ecriture blanche ne permet pas de voir n'intervention
Regarde la pièce jointe 1188347

Super ça fonctionne parfaitement. Ou se trouve le code que vous avez écrit. je veux enlever le soulignement
Merci encore mille fois c'est suppert

clausen · 12 Janvier 2024

clausen à dit:
Super ça fonctionne parfaitement. Ou se trouve le code que vous avez écrit. je veux enlever le soulignement
Merci encore mille fois c'est suppert

J'ai trouvé tout seul pour supprimer le soulignement Merci encore

Modeste geedee · 12 Janvier 2024

clausen à dit:
Super ça fonctionne parfaitement. Ou se trouve le code que vous avez écrit. je veux enlever le soulignement
Merci encore mille fois c'est suppert

il n'y a aucun code ni VBA, ni formule définie dans le gestionnaire de Noms

voir les mises en forme conditionnelles !

si l'on enleve le soulignement plus rien ne permet d'identifier la suppression de la formule ou possibilité de retour arrière

clausen · 13 Janvier 2024

Modeste geedee à dit:
il n'y a aucun code ni VBA, ni formule définie dans le gestionnaire de Noms

voir les mises en forme conditionnelles !

si l'on enleve le soulignement plus rien ne permet d'identifier la suppression de la formule ou possibilité de retour arrière

Merci pour le renseignement et bon weekend

job75 · 13 Janvier 2024

Bonjour clausen, le forum,

La solution précédente par MFC est une bonne solution.

Mais si l'on modifie la formule en colonnes J, L, N, la MFC n'agit pas.

Pour cela il faut comparer les formules en utilisant cette fonction VBA :

VB:

Function MFC(cel As Range)
Select Case cel.Column
    Case 10: MFC = cel.FormulaR1C1 <> "=IFERROR(LOOKUP(RC[-1],R38C[-1]:R43C),"""")"
    Case 12: MFC = cel.FormulaR1C1 <> "=IFERROR(LOOKUP(RC[-1],R38C[-3]:R43C[-1]),"""")"
    Case 14: MFC = cel.FormulaR1C1 <> "=IFERROR(LOOKUP(RC[-1],R38C[-5]:R43C[-2]),"""")"
End Select
End Function

Formule de la MFC =MFC(J4)

La MFC colore la cellule en jaune.

Edit : j'ai créé cette MFC sur toutes les feuilles.

A+

clausen · 13 Janvier 2024

job75 à dit:
Bonjour clausen, le forum,

La solution précédente par MFC est une bonne solution.

Mais si l'on modifie la formule en colonnes J, L, N, la MFC n'agit pas.

Pour cela il faut comparer les formules en utilisant cette fonction VBA :

VB:

Function MFC(cel As Range) Select Case cel.Column Case 10: MFC = cel.FormulaR1C1 <> "=IFERROR(LOOKUP(RC[-1],R38C[-1]:R43C),"""")" Case 12: MFC = cel.FormulaR1C1 <> "=IFERROR(LOOKUP(RC[-1],R38C[-3]:R43C[-1]),"""")" Case 14: MFC = cel.FormulaR1C1 <> "=IFERROR(LOOKUP(RC[-1],R38C[-5]:R43C[-2]),"""")" End Select End Function

Formule de la MFC =MFC(J4)

La MFC colore la cellule en jaune.

Edit : j'ai créé cette MFC sur toutes les feuilles.

A+

Super ça marche aussi Merci à tout le monde

XL 2021 Modification d'une cellule calculée

clausen

XLDnaute Occasionnel

Pièces jointes

clausen

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

clausen

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

clausen

XLDnaute Occasionnel

Discussions similaires