Microsoft 365 supprimer le @ en début de formule

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée :)

De bon matin, j'ai déjà besoin d'aide.
J'ai fait ce petit code :
VB:
Sub Macro1()
    ActiveCell = "=IF(ISNUMBER(ActiveCell)=FALSE,"""",ActiveCell)"
    'ActiveCell.Offset(0, -1) = "=IF(ISNUMBER(ActiveCell.Offset(0, -1))=FALSE,"""",ActiveCell.Offset(0, -1))"
    [R3].Copy
    [R4:R11].Select
    ActiveSheet.Paste
    [R3].Select
    Application.CutCopyMode = False
End Sub
La formule qui s'affiche dans ma cellule est la suivante : =@SI(ESTNUM(@ActiveCell)=FAUX;"";ActiveCell)
J'essaie de faire en sorte qu'il ne mette pas ces @ intempestifs.

Je n'ai pas trouvé comment m'en débarrasser.
Auriez-vous la solution ?
Je vous remercie :)

Je continue à chercher,
lionel :)
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
J'arrive pas à le mettre dans la formule, l'une de mes tentatives :
ActiveSheet.Range("s3:s11") = Value = ActiveSheet.Range("s3:s11").Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])"

si je fais celle-là :
ActiveSheet.Range("s3:s11").Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])" = Value
il me renvoie "FAUX"
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Code VBA
Réponses
7
Affichages
703

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40