Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transposer formule en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mcj1997
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mcj1997

XLDnaute Accro
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
 
Trier par date Trier par votes
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+
 
Vote positif 0 Vote négatif
Re : Transposer formule en VBA

titiborregan5 à dit:
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+
Cliquez pour agrandir...

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,
 
Vote positif 0 Vote négatif
Re : Transposer formule en VBA

mcj1997 à dit:
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 ?
Cliquez pour agrandir...

je n'ai pas compris la question... serait-il possible d'avoir un exemple,svp???
 
Vote positif 0 Vote négatif
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)
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
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
Re : Transposer formule en VBA

Salut

mcj1997 à dit:
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 ?
Cliquez pour agrandir...

pas de formule (celle du #1), seulement le résultat, donc
Code: 
  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
 
Vote positif 0 Vote négatif
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
VB: 
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.....
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Formule si ou
Réponses
2
Affichages
167
Moreno076
M
V
  • Résolu(e)
Microsoft 365 transposer
Réponses
6
Affichages
291
vincenot
V
R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
214
Rikko14
R
A
  • Question Question
XL 2021 Consommation en fonction des semaines
Réponses
1
Affichages
237
sylvanu
S
  • Question Question
Microsoft 365 Formule d'ancienneté
Réponses
6
Affichages
170
bakerman2
B
S
  • Question Question
Microsoft 365 planning excel
Réponses
8
Affichages
400
stephane76940
S
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
348
Marie.
M
E
  • Résolu(e)
XL 2019 Fonction somme.si
Réponses
3
Affichages
130
Erick79
E
J
  • Question Question
XL 2021 Calcul prix sur des mois qui se chevauchent
Réponses
8
Affichages
341
J-P
J
A
  • Résolu(e)
XL 2021 tirage au sort aléatoire sans doublon
2 3 4
Réponses
54
Affichages
1 K
bsalv
B
Z
  • Question Question
Autres Analyser les Ij avancées des IJ remboursées
2
Réponses
25
Affichages
871
cathodique
M
  • Question Question
Microsoft 365 Filtre Excel =Somme.SI.ENS
Réponses
10
Affichages
179
MathieuC
M
Y
  • Résolu(e)
XL 2010 rendre formule en vba
Réponses
11
Affichages
566
job75
K
  • Question Question
Microsoft 365 Comment renvoyer une valeur pour plusieurs cellules de plusieurs fichiers Excel fermés en utilisant concatener ?
2
Réponses
27
Affichages
403
Cousinhub
A
  • Question Question
Microsoft 365 Formule
Réponses
3
Affichages
196
mapomme
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
471
Phil69970
L
  • Résolu(e)
XL 2021 Déterminer la hauteur d'une formule (barre d'outils)
Réponses
8
Affichages
303
Lolote83
L
  • Résolu(e)
Microsoft 365 Syntaxe VBA formule somme.si
Réponses
5
Affichages
273
CelluleVide
P
  • Résolu(e)
Microsoft 365 Conditions SI avec OU et ET pour validation des données
Réponses
3
Affichages
477
pat66
P
J
  • Question Question
XL 2021 Tableau déroulant
Réponses
5
Affichages
280
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…