Microsoft 365 supprimer le @ en début de formule

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2021

• #2

bonjour lionel
ou tu a vu qu'une fonction activecell existe toi dans excel ?
activecell n'existe qu'en VBA elle désigne la cellule active
en formule ça n'existe pas

VB:

ActiveCell.formula= "=IF(ISNUMBER(" & ActiveCell.address(0,0) & ")=FALSE,""""," & ActiveCell.address(0,0) & ")"

est en plus là tu remet en cause le problème de référence circulaire
on ne peut pas mettre une formule dans une cellule qui ferait une operation sur la cellule elle même donc c'est tout ton raisonnement qui est à revoir

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #3

Bonjour Patrick et merci d'être là
Merci pour le code qui fonctionne mais qui ne calcul pas sur la bonne cellule (S au lieu de J).

Je vais mieux expliquer ma problématique :
Le code que je voudrais écrire doit me renvoyer en colonne S la formule suivante
J'ai :

en J3 : "13.11.202100:00" le code doit me renvoyer en colonne "S"
la formule : =SI(ESTNUM(J3)=FAUX;"";J3) résultat affiché = 13.11.202100:00"

en j4 : "RdV Fait" le code doit me renvoyer en colonne "S"
la formule : =SI(ESTNUM(J4)=FAUX;"";J4) résultat affiché = ""

je tente de modifier ton code mais je n'y arrive pas
lionel

 

Dernière édition: 28 Décembre 2021

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #4

Re
Je l'ai fait comme ça :

VB:

Sub Macro2()
    Range("s3").Select
    ActiveCell.Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])"
    [s3].Copy
    [s4:s11].Select
    ActiveSheet.Paste
    [s3:s11].Copy
    [s3].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("s3").Select
    Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Décembre 2021

• #5

Bonjour
Ce que je ne comprend pas bien.
Pourquoi ne pas tout faire en une instruction
ActiveSheet.Range("s3:s10").Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])"

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #6

Bonjour Soussou,

Merci pour le code
Effectivement, c'est nettement mieux.
Pendant qu'on y est, est-il possible d'afficher directement les valeurs permettant de ne pas coder copier/coller ?
Grand merci,
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #7

Re
Je l'ai fait comme ça :

VB:

Sub soussou()
    [s3:s11] = ""
    ActiveSheet.Range("s3:s11").Formula = "=IF(ISNUMBER(RC[-9])=FALSE,"""",RC[-9])"
    ActiveSheet.Range("s3:s11").Copy: Range("s3:s10").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("s3").Select
End Sub

lionel

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Décembre 2021

• #8

Pas compris tu ne veux pas les formules en colonne S?
Si oui alors le calcul ne se fera plus dans la feuille!
Si non tu n'as pas besoin de formule pour rappeler les valeur de J, mais d'un autre code

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #9

Si, je veux que les calculs se fassent mais en finalité que ce soit les valeurs qui restent dans la cellule

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Décembre 2021

• #10

Cà c'est pas possible, si tu supprimes la formule par les valeurs, lorsque la colonne j sera modifier la colonne s ne le sera plus.

Pour copier les valeur, fait ceci
For n = 3 To 11
If IsNumeric(Cells(n, 10)) = True Then Cells(n, 19) = Cells(n, 10) Else Cells(n, 19) = ""
Next

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Décembre 2021

• #11

Si tu souhaites modifier la colonne s à la volée tout en ne gardant que les valeurs, tu sera obligé de passer par évènement change

 

Dernière édition: 28 Décembre 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2021

• #12

Usine à gaz à dit:

Si, je veux que les calculs se fassent mais en finalité que ce soit les valeurs qui restent dans la cellule

Cliquez pour agrandir...

des fois je te jure Lionel je me demande si tu disjoncte pas un peu
pourquoi ne le fait tu pas en vba directement avec résultat en dur alors
au pire tu fait un evaluate de ta formule si tu sais pas la traduire en VBA et ça t'enverra le résultat en dur dans les cells
là tu change les cells donc un calculate ensuite la formule elle même génère un calculate et ensuite tu durci les valeurs avec .value=.value et encore un calculate
si ça peut te calmer je veux bien t'offrir une calculette

a ben @sousou a tout dit on c'est croisé

 

Dernière édition: 28 Décembre 2021

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #13

lol, moi pas disjoncter bwouana
Mon principe :
Procédure change etc...
Je traite tout ligne par ligne et par macro ce qui me permets de n'avoir que des valeurs dans toutes mes feuilles

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2021

• #14

et ben alors sert toi du change et fait tes calcul en vba ou evaluate en vba si tu sais pas traduire une formule en code VBA
c'est tout
et même(facultatif) au pire histoire d’économiser tu peut shunter le calculate puisque tout ce fait par VBA
c'est pas tres pratique ton principe et même dangereux qui sait si tu a 10000 ligne qui se calcule ton copy paste(qui pourrait être simplement remplacé par ".value=.value") peut être fait avant les calculs

tu fait des trucs toi des fois

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2021

• #15

Merci Patrick

Mais pas de souci car je calcul ligne par ligne uniquement la ligne cellule modifiée d'où mes :
- ActiveCell,
- ActiveCell.Offset(0, -1) ou autres,

je teste le ".value=.value"
lionel

 

Vote positif 0 Vote négatif