Inserer le signe égal au début d'une cellule

Le 24/01/2023 à 21:07

Bonjour,

J'utilise une macro qui me permet d'insérer un signe 'égal' au début de la cellule à la fin de instructions.

Elle fonctionne très bien avec Excel 2007 mais elle ne passe plus avec Excel 2019.

J'ai tenté plusieurs essais mais sans succès.

Auriez-vous une solution pour résoudre mon problème.

Ci joint un fichier très épuré avec la macro qui pose problème.

Merci d'avance pour votre aide.

A noter que je ne reste pas connecté le soir, je ne prendrai connaissance de vos éventuelles réponses que demain en fin de soirée

Cordialement,

Yves

26test.xlsm (39.95 Ko)

Le 25/01/2023 à 01:37

Bonjour Leclercq et

Cela n'aurait pas dû fonctionner sur 2007

Lorqu'on veut insérer une formule dans une cellule on utilise "Formula" ou mieux "FormulaLocal"

Voilà ce que je ferais

Dim Cel As Range
  'Incrémentation automatique de budget CA-LOR
  With Sheets("BUD CA-LOR")
    For Each Cel In .Range("C3:C18")
      If IsNumeric(Cel.Offset(-1, 0)) Then
        Cel.FormulaLocal = "=" & Cel.Offset(-1, 0).Address & "+" & Cel.Offset(0, -1).Address
      Else
        Cel.FormulaLocal = "=" & Cel.Offset(0, -1).Address
      End If
    Next Cel
  End With

A+

Le 25/01/2023 à 20:51

Bonjour,

Déjà merci pour cette réponse.

J'essaierai ce week-end.

Je n'ai pas tout compris de la macro mais si ça fonctionne, ce sera parfait.

En attendant bonne soirée;-)

Le 26/01/2023 à 20:45

Bonjour Bruno,

J'ai testé ta macro mais elle ne passe pas.

J'ai un popup