Multiplication soustraction de cellules en VBA - Archives Visual Basic / VBA, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 11 22 19:17:21

SHAREPOINT 2007 : ZONES ET URL INTERNES par anouvel

.NET 4.0 / SILVERLIGHT 2 : CHANGEMENTS BRISANTS SUR LES TYPES STRING ET CHAR par coq

UTILISER OPENCV SOUS DEVC++ (OPTIONS DE COMPILATION) par MadMatt

ZUNE : NOUVELLE VERSION DU SOFTWARE ET FIRMWARE - V 3.1 par ROMELARD Fabrice

[OPEN XML] LES LIENS DE LA SEMAINE 17/11/08 ET AUTRES INFOS EN VRAC par neodante

RE : FONCTIONNEMENT DE LA FONCTION RDM par sebdeblaye

PAVé NUMERIQUE à CHIFFRE ALéATOIRE: par nacimem

RE : SENDMESAGE POSTMESSAGE par PCPT

RE : SENDMESAGE POSTMESSAGE par POURMONET

PAUSE-REDEMARAGEET STOP AVEC UNE FONCTION RéCURSIVE par Naevis

+ de logiciels à télécharger

1 293 713 membres
500 nouveaux aujourd'hui
14 527 membres club

Trouver une ressource

Trouvez une ressource parmi 39 011 codes, 1 203 836 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Multiplication soustraction de cellules en VBA [ Archives Visual Basic / VBA ] (kinetix)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Visual Basic & VB.NET / Archives Visual Basic / VBA / Multiplication soustraction de cellules en VBA
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

jeudi 25 août 2005 à 11:58:07 | Multiplication soustraction de cellules en VBA

kinetix

Bonjour a tous,

J'ai besoin de réaliser l'opération suivante E21+(A25-E22)*A12*A17 lorsque je clique sur un bouton.
J'ai donc fait le code suivant mais ca ne marche pas:

Private Sub CommandButton1_Click()
Sheets("Calcul").Select
Cells(20, 5).value = Application.WorksheetFunction.Sum(Range("A3:A8"))
Cells(21, 5).value = Application.WorksheetFunction.Product(Range("A20:E20"))
Cells(22, 5).value = Application.WorksheetFunction.Sum(Range("B3:b8"))
Cells(23, 5).value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Cells(24, 5).value = Application.WorksheetFunction.Product(Range("E22:A12"))
Cells(25, 5).value = Application.WorksheetFunction.Product(Range("E24:A17"))
Cells(26, 5).value = Application.WorksheetFunction.Sum(Range("E21:E25"))
MsgBox Range("E26")
End Sub

Pouvez vous m'aider SVP
Merci Beaucoup d'avance,
Kinetix

jeudi 25 août 2005 à 12:47:40 | Re : Multiplication soustraction de cellules en VBA

Tuning Max

Private Sub CommandButton1_Click()
Dim sh As Sheets, wk As Workbook
Set wk = ActiveWorkbook
wk.Sheets("Calcul").Activate
Cells(20, 5).Value = Application.WorksheetFunction.Sum(Range("A3:A8"))
Cells(21, 5).Value = Application.WorksheetFunction.Product(Range("A20:E20"))
Cells(22, 5).Value = Application.WorksheetFunction.Sum(Range("B3:b8"))
Cells(23, 5).Value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Cells(24, 5).Value = Application.WorksheetFunction.Product(Range("E22:A12"))
Cells(25, 5).Value = Application.WorksheetFunction.Product(Range("E24:A17"))
Cells(26, 5).Value = Application.WorksheetFunction.Sum(Range("E21:E25"))
MsgBox Range("E26")
End Sub
***************************************
Voilà ça marche mieux comme ça

jeudi 25 août 2005 à 13:27:24 | Re : Multiplication soustraction de cellules en VBA

kinetix

Tout d'abord merci pour ta réponse,
Mais j'ai tout de meme un probleme avec cette ligne:
Cells(23, 5).value = Application.WorksheetFunction.Sum(Range("E22:A25"))
Sachant que le nombre contenue dans A25 est un entié issue d'un textbox et que le nombre contenue dans E22 est un nombre négatif, comment puis je faire pour avoir un résultat correct, car la ca me sort n'importe quoi...
Je voudrai faire par ex: E22(50)+A25(-5) la fonction sum na pas l'air de fonctionner...

Milles Merci d'avance pour votre aide

Kinetix

jeudi 25 août 2005 à 13:58:12 | Re : Multiplication soustraction de cellules en VBA

kinetix

mercredi 31 août 2005 à 13:47:22 | Re : Multiplication soustraction de cellules en VBA

Diegoch	La fonction sum ne fonctionne pas avec des données de type text, il faut que tu formate la cellule genante en format numerique.
	Rép. MP 50 msg 51 msg CS

Cette discussion est classé dans : application, value, cells, range, worksheetfunction

Répondre à ce message

Sujets en rapport avec ce message

aidez moi SVP c'est urgent automation [ par patou1000 ] Bonjour, j'utilise le code suivant et il fonctionne très bien sur mon pc (winXP excel 2000) mais dès que je passe sur un autre PC (excel 2000 quand mê Copie de lignes d'une page à une autres???!!!!?!!? [ par Quecks ] Slt,j'ai un gros problème:Avec le programme suivant j'essaie de copier uniquement les lignes qui m'interresse dans un tableau et les remettre dans un est ce que quelqu'un pourra corriger mon code pour qu'il fonctionne... [ par cyrius ] cyriusbonjour tout le monde,je debute en prog la je suis desesperé.Je dois transferer des données de mon formulaire access sur une page ecxel bien pre Exécution du code lors de la modification de la feuille [ par scuderia ] Je souhaite exécuter la boucle lorsque la feuille est modifiée. La super boucle de mon code ne s'arrête pas c'est normal ...Comment remplacer le Works Range VB.Net [ par Oliviertes33 ] Bonjour, je traduit mon prog en VBA vers VB.net, et j'ai un gros problème avec la fonction Range. voici la partie prog For Each countd <FONT color=# erreur de copie de worksheet [ par tonton33650 ] Bonjour,Je viens de creer une macro qui me permet de creer un nouvel onglet pour chaque valeur (chaque valuer etant unique) qui se trouve dans mon por Erreur d'exécution '28' Espace pile insuffisante [ par mimi_939 ] Bonjour,je suis en train de développer une application en utilisant excel.J'ai créé un module qui est appelé à chaque fois qu'on modifie la valeur d'u Problème avec rechercheV VBA [ par avyrex1926 ] Bonjour à tous,J'ai un problème avec une rechercheV dans mon script. Je voudrais qu'il me donne seulement la valeur et non écrire la formule dans la c Problème avec une instruction VBA [ par Jpeg69 ] Bonjour,Selon l'aide d'Excel, pour utiliser une plage de cellule avec l'instruction Cells, il faut utiliser l'instruction Range.Exemple :Range( Cells( export excel vers access => pb incrémentation automatique [ par LEXANE ] salut,j'ai un fichier excel avec des données que je veux exporter vers une table de ma base de données access, maisle problème est que l'un de mes cha