Transposer formule en VBA

[mcj1997]

Bonjour
Je souhaite transposer cette formule en VBA car je ne souhaite pas protéger ma feuille mais ne veux pas que les formules soient accessibles.



Si(et(c14>=j24;c14<j11);">>>";"")

Merci d'avance

 

[titiborregan5]

Re : Transposer formule en VBA

Bonjour Mcj, le forum,

voici une astuce que je donnais dans le post https://www.excel-downloads.com/threads/formule-en-vba.216315/ afin de récupérer une formule...

Ciao Ilino,

une petite astuce que j'utilise pour transformer mes formules dans vba:
tu lances l'enregistreur de macro, tu double-clik sur la cellule où est la formule, tu rentres dans la barre de formule et tu valides avec la coche verte et tu arrêtes l'enregistreur.
Normalement, dans un module tu retrouves le code vba de ta formule.

en espérant que ça t'aide!
A+

 

[mcj1997]

Re : Transposer formule en VBA

Merci beaucoup c'est impeccable.

 

[mcj1997]

Re : Transposer formule en VBA

Bonjour Mcj, le forum,

voici une astuce que je donnais dans le post https://www.excel-downloads.com/threads/formule-en-vba.216315/ afin de récupérer une formule...


en espérant que ça t'aide!
A+

Bonjour,

J'ai essayé c'est ok par contre j'ai une question, j'ai testé avec une formule simple (a4:b2), ma demande est la suivante est-il possible que lorsque l'opération s'effectue la formule ne s'affiche pas mais seulement le résultat ?

Deuxième question dans le même esprit j'ai des références dans une feuil2, est-il possible que cette feuille soit recopiée entièrement en VBA et qu'ainsi les données ne soient pas accessibles ?

Merci d'avance,

 

[titiborregan5]

Re : Transposer formule en VBA

Bonjour,

mets un fichier exemple ce sera plus facile pour te répondre!

 

[tbft]

Re : Transposer formule en VBA

J'ai essayé c'est ok par contre j'ai une question, j'ai testé avec une formule simple (a4:b2), ma demande est la suivante est-il possible que lorsque l'opération s'effectue la formule ne s'affiche pas mais seulement le résultat ?

je n'ai pas compris la question... serait-il possible d'avoir un exemple,svp???

 

[Staple1600]

Re : Transposer formule en VBA

Bonsoir à tous

mcj1997
Si j'ai bien compris, regarde ce petit exemple d'illustration
Mets ce code dans le code de la feuille (pas dans un module)
(-> clic-droit sur l'onglet -> Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Target.Row = 5 Then Exit Sub
End If
Range("A5") = Application.Sum(Range("A1:A4"))
End Sub

Ensuite, retournes sur la feuille, et saisis des chiffres en A1,A2,A3 ou A4
tu auras la somme en A5 sans avoir la formule mais juste le résultat

 

[tbft]

Re : Transposer formule en VBA

bonjour

il possible de dire dans la fenetre protection du format de la cellule de masqué les formules.
parcontre il faut verrouiller la page pour que cela prennent effet...

 

[Si...]

Re : Transposer formule en VBA

Salut

J'ai essayé c'est ok par contre j'ai une question, j'ai testé avec une formule simple (a4:b2), ma demande est la suivante est-il possible que lorsque l'opération s'effectue la formule ne s'affiche pas mais seulement le résultat ?

pas de formule (celle du #1), seulement le résultat, donc

  Dim P As Range 'on peut le faire directement sans cette variable
  Set P = [A2:B4]
  P.FormulaR1C1 = "=IF(AND(R[12]C[1]>=R[22]C[8],R[12]C[1]<R[9]C[8]),"">>>"","""")"
  P = P.Value

 

[tbft]

Re : Transposer formule en VBA

Bonjour

pourquoi ne pas essayé de créer les fonctions sous VBA (à me mettre dans un module)
la fonction Si(et(c14>=j24;c14<j11);">>>";"") deviens

Public Function test1(e1, e2, e3)
  If (e1 >= e2) And (e1 < e3) Then
    test1 = ">>>"
  Else
    test1 = ""
  End If
End Function

en protegeant l'édition des macros.....