Discussion :

[NEC14]

Bonjour à toutes et à tous,

Je dois faire des calculs dans une feuille Excel, mais ils ne doivent pas se voir lorsque l'utilisateur clique sur la cellule. Je ne peux pas protéger la feuille (interdiction interne de mon boulot).
Auriez-vous une solution à me proposer s'il vous plait ?
Je vous en remercie par avance
Cordialement
René

[Marc-L]

Bonjour,

y-a-t-il un rapport avec ce forum dédié au codage VBA ?

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[NEC14]

Bonjour,

y-a-t-il un rapport avec ce forum dédié au codage VBA ?

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

Oui car je pensais à développer toutes mes formules en VBA si cela est possible.

[Marc-L]

Merci de ne pas citer l'intégralité d'un message juste précédent, aucun intérêt à part nuire à la lisibilité !

Comme en interne tout est nativement en anglais même dans une version française d'Excel,
commencer d'abord par une formule dans une cellule d'une feuille de calculs.

Une fois cette formule fonctionnelle, côté VBA voir sa traduction en anglais via la propriété   Formula   de cette cellule.

Cette formule native pouvant être utilisée via la puissante fonction   Evaluate   à consulter dans l'aide VBA interne …

[NEC14]

Merci pour ces informations. Je vais voir comment je me sors et je reviendrai vers le forum en cas de difficulté.
Désolé pour la citation.
Bonne fin de journée
Cordialement
René

[NEC14]

Bonjour,

Voilà j'ai fais cela pour une formule mais ça ne fonctionne pas, où ai-je commis une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Change(ByVal Target As Range)
Range("Q23").Value = Application.Sum(Range("K25").EntireColumn)
End Sub

J'ai également essayé ça mais sans succès

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_Calculate()
Range("Q23").Select
    ActiveCell.Formula = "=IF(F25=0,0,SUM(K25:K97))"
    Range("Q24").Select
End Sub

En clair la cellule Q23 est la somme des montants se trouvant dans la colonne K à partir de K25 de la Feuil1

Je vous remercie par avance pour votre aide

J'ai fait ça et ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("Q23").Value = Application.Sum(Range("K25:K97"))
Range("Q24").Value = Application.Sum(Range("Q23").Value * 0.38)
Range("Q25").Value = Application.Sum(Range("Q23").Value - (Range("Q24").Value))
End Sub

Je continue pour le reste