Calcul avec une division via VBA

Bonjour,

Je désire via une macro faire une division de 2 cellules soit D12/D13.

J'ai déjà trouvé la solution pour effectuer la somme de plusieurs cellules soit:

Code:

---

1 2 3

Sub func_somme_ventes_semaine() Range("D17").Value = Application.WorksheetFunction.Sum(Range("D12:I12")) End Sub

---

Mais je reste bloqué pour la division:

Code:

---

1 2 3

Sub func_taux_de_placement_jour() Range("D14").Value = Application.WorksheetFunction.Range("D12 / D13") End Sub

---

Un petit coup de main s'il vous plaît ?

Merci :mrgreen:

bonjour,

quand tu utilise les objets Range, cells... sans rien devant ils concernent la feuille active ..

pour éviter les problèmes mieux vaut préciser cette feuille

Code:

---

ThisWorkbook.Worksheets("Feuil1").Range("D14").Value = ThisWorkbook.Worksheets("Feuil1").Range("D12").Value / ThisWorkbook.Worksheets("Feuil1").Range("D13").Value

---

on peu simplifier l'écriture en utilsant With qui te permet d'éviter la répétition d'un préfixe :

Code:

---

1 2 3

With ThisWorkbook.Worksheets("Feuil1") .Range("D14").Value = .Range("D12").Value / .Range("D13").Value End With

---

tu peu aussi utiliser une variable feuille de calcul pour agir sur celle-ci

Code:

---

1 2 3 4 5

Sub Div2() Dim sh As Worksheet Set sh = ThisWorkbook.Worksheets("Feuil1") sh.Range("D14") = sh.Range("D12") / sh.Range("D13") End Sub

---

j'ai aussi enlevé le .Value qui n'est pas obligatoire la propriété value étant la propriété par défaut d'un objet range.

Bonjour,

Tout d'abord, merci pour tes exemples très utiles :ccool:

Par contre, si j'exécute par exemple:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   With ThisWorkbook.Worksheets("Beta 1.2") .Range("D14").Value = .Range("D12").Value / .Range("D13").Value End With   End Sub

---

J'ai le message suivant:

Citation:

---

Erreur d'exécution '11'
Division par zéro

---

Sauf que par défaut, quelques cellules sont = 0. Ce serait sympa de ne plus avoir ce message :aie:

tu peu simplement conditionné ton calcul au fait que la valeur soit nulle ou pas ...

Code:

---

1 2 3 4

IF .Range("D13").Value <> 0 Then ....   Endif

---

Bonjour,

Une autre piste pour ne pas à avoir à gérer les valeurs est d'utiliser les formules, tout en évitant l'affichage d'une erreur dans le cas
où les cellules sont vides, mais en concervant l'erreur en cas de division par 0 :

Code:

---

1 2 3

With ThisWorkbook.Worksheets("Beta 1.2") .Range("D14").Formula = IIf(.Range("D13").Value <> "", "=D12/D13", "") End With

---

Merci beaucoup pour votre aide :ccool:

Est-il possible de créer une fonction comme suit:

Code:

---

1 2 3 4 5

Sub func_taux_de_placement_jour() If .Range("C14").Value <> 0 Then .Range("C14").Value = .Range("C12").Value / .Range("C13").Value End If End Sub

---

car lorsque je fais:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) With ThisWorkbook.Worksheets("Beta 1.2") If .Range("D14").Value <> 0 Then .Range("D14").Value = .Range("D12").Value / .Range("D13").Value End If End With End Sub

---

La cellule est vide mais il n'y a pas d'erreurs non plus :(