A voir également:
- Opérations mathématique sous VBA
- Formule mathématique - Télécharger - Études & Formations
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
4 réponses
Bonjour,
Pour apprendre :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
et aussi :
http://boisgontierjacques.free.fr/index2.htm
http://frederic.sigonneau.free.fr/
https://www.lecompagnon.info//vba-excel/index.html
http://www.info-3000.com/vbvba/index.php
http://dj.joss.free.fr/index.htm
https://www.sfr.fr/fermeture-des-pages-perso.html
etc ..;
Pour apprendre :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
et aussi :
http://boisgontierjacques.free.fr/index2.htm
http://frederic.sigonneau.free.fr/
https://www.lecompagnon.info//vba-excel/index.html
http://www.info-3000.com/vbvba/index.php
http://dj.joss.free.fr/index.htm
https://www.sfr.fr/fermeture-des-pages-perso.html
etc ..;
Bonjour à tous les deux
Restons Zen, Patrice t'a simplement donné un très bon conseil
Un début de réponse peut être à ton problème
Bon après midi
Cdlmnt
Restons Zen, Patrice t'a simplement donné un très bon conseil
Un début de réponse peut être à ton problème
Public Function Calcul(plage As Range)
Dim cel As Range, f As String
f = ""
For Each cel In plage
f = f & cel.Value
Next cel
Calcul = Application.Evaluate(f)
End Function
Bon après midi
Cdlmnt
bonjour
en lisant "evaluate" écrit par ccm81 (avec un salut amical et respectueux), je me suis dit que...
pour calculer par ex (B2*B3 )/B4 +b5
maintenant on peut regrouper ces 4 variables dans une variable "Type"
en amont des sub machin()
mais quel le but de ta demande car ça me parait un peu bizarre ou mal expliqué (sans que je te prenne de haut...Aie!, non, pas sur la tête, Aie!) ;o)
et un Bonjour également amical et respectueux à Patrice, toujours de bon conseil ;o)
Michel
en lisant "evaluate" écrit par ccm81 (avec un salut amical et respectueux), je me suis dit que...
pour calculer par ex (B2*B3 )/B4 +b5
calcul = Evaluate("(" & "B2" & "*" & "B3" & ")" & "/" & "B4" & "+" & "B5")
et en utilisant des variables
plus = "+"
moins = "-"
multi = "*"
divis = "/"
calcul = Evaluate("(" & "B2" & multi & "B3" & ")" & divis & "B4" & plus & "B5")
maintenant on peut regrouper ces 4 variables dans une variable "Type"
en amont des sub machin()
type operateur
plus as string*1
Moins as string*1
Multi as string*1
Divis as string*1
end type
Tu peux ajouter d'autres opérateurs : puissance, racine, log....
sub machin()
Dim XY as operateur
xy_plus="+"
xy_moins="-"
...etc
calcul=Evaluate("(" & "B2" & xy.multi & ..... la flemme
mais quel le but de ta demande car ça me parait un peu bizarre ou mal expliqué (sans que je te prenne de haut...Aie!, non, pas sur la tête, Aie!) ;o)
et un Bonjour également amical et respectueux à Patrice, toujours de bon conseil ;o)
Michel
Bonjour Linkmojo,
Milles excuses pour le temps que j'ai passé à te faire perdre le tien et sans rancune ...
Merci à ccm81 et à Michel_m pour leur soutien (amitiés à vous deux) et surtout pour avoir poursuivi ce fil pendant mon absence.
Vos solutions sont bien plus élaborées que celle que j'aurais proposé et qui a pu me faire croire, à tort, que Linkmojo ne possédait pas les bases élémentaires du VBA, à savoir :
Tout simplement remplacer :
Par :
Éventuellement suivi de :
pour remplacer la formule par sa valeur.
Patrice
Milles excuses pour le temps que j'ai passé à te faire perdre le tien et sans rancune ...
Merci à ccm81 et à Michel_m pour leur soutien (amitiés à vous deux) et surtout pour avoir poursuivi ce fil pendant mon absence.
Vos solutions sont bien plus élaborées que celle que j'aurais proposé et qui a pu me faire croire, à tort, que Linkmojo ne possédait pas les bases élémentaires du VBA, à savoir :
Tout simplement remplacer :
Range("Celluled_arrivée").Value = "=" & .... .
Par :
Range("Celluled_arrivée").Formula = "=" & ... .
Éventuellement suivi de :
Range("Celluled_arrivée").Value= Range("Celluled_arrivée").Value .
pour remplacer la formule par sa valeur.
Patrice
Notre ami Linkmojo a changé de Pseudo et s'appele "Attilaa" sur developez.com LE 26/7, donc avant que Patrice lui réponde et provoque son courroux :oD
https://www.developpez.net/forums/d1459946/logiciels/microsoft-office/excel/macros-vba-excel/operations-mathematiques-sous-vba/
https://www.developpez.net/forums/d1459946/logiciels/microsoft-office/excel/macros-vba-excel/operations-mathematiques-sous-vba/
