XL 2021 Modification d'une cellule calculée

Dranreb à dit:

Bonsoir.
Ajoutez cette procédure dans le module ThisWorkbook :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Target.CountLarge > 1 Or Target.Row < 4 Then Exit Sub
   Select Case Target.Column
      Case 10, 12, 14
         Application.EnableEvents = False
         If IsEmpty(Target.Value) Then
            Target.FormulaR1C1 = "=IFERROR(LOOKUP(RC[-1],R38C9:R43C" & 10 + (Target.Column - 10) / 2 & "),"""")"
            Target.Font.Color = 0: Target.Font.Bold = False
         Else
            Target.Font.Color = &HFF: Target.Font.Bold = True
            End If
         Application.EnableEvents = True
      End Select
   End Sub

Remarque: je ne sais pas si c'était judicieux mais j'ai veillé à ce qu si vous effacez la cellule il remette la formule.

Cliquez pour agrandir...

Dranreb à dit:

Faites Alt+F11 pour ouvrir VBE, double-cliquez sur le nom ThisWorkbook dans l'explorateur de projets et, dans la fenêtre de code, collez le code où vous voulez en dehors d'une procédure existante.

Cliquez pour agrandir...

Dranreb à dit:

Vous pouvez aussi entrer dans VBE par un clic droit sur un onglet et commande Visualiser le code, ou par menu Développeur, groupe Code, commande Visual Basic.

Cliquez pour agrandir...

eriiic à dit:

Bonjour à tous,
tu travailles bien sur PC ou Mac avec l'appli ?
Sur Android ou Excel on line par exemple, les macros ne sont pas compatibles.
eric

Cliquez pour agrandir...

clausen à dit:

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

Cliquez pour agrandir...

Modeste geedee à dit:

Bonsour®,
c'est a-dire si la formule est "écrasée" ou supprimée par mise à blanc ou saisie manuelle ???

Regarde la pièce jointe 1188337
se posera alors la mémorisation de la formule !!!!
je suggère une mise place dans le commentaire
soit manuelle
soit par VBA

Cliquez pour agrandir...

clausen à dit:

Je comprends rien

Si je type 9 dans la cellule de janvier M15 dans la cellule N il y a le résultat calculé automatiquement.

Si ça me convient pas j'aimerais écraser le résultat en en typant un autre. Et que celui-ci écrase la formule de cette cellule et affiche ce que j'ai typé en rouge Gras.

Cliquez pour agrandir...