probleme division dans une macro

Brigitte

XLDnaute Barbatruc

• 12 Juillet 2009

• #2

Re : probleme division dans une macro

Bonsoir,

Vu comme cela, si j'ai compris :

En H3 par exemple : =SI((G3/10)>13;13;G3/10)
En I3 : =(G3/10)-H3

Mais quand je vois ton titre, je me dis que tu dois pas vouloir ca.

Tu aurais dû poster dans le forum dédié à excel, pour avoir plus de chances de réponse.

 

Dernière édition: 12 Juillet 2009

Vote positif 0 Vote négatif

L

Lutinmalin

XLDnaute Nouveau

• 12 Juillet 2009

• #3

Re : probleme division dans une macro

Merci de la reponse rapide ,mais je cherche les codes VBA



@ +

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Juillet 2009

• #4

Re : probleme division dans une macro

Bonjour le fil, bisous Brigitte 🙂,
Pas sûr d'avoir tout compris, mais ça devrait ressembler à ça, à adapter à ton cas

Code:

Sub Test()
Dim I As Integer
For I = 1 To 50
If Cells(I, 7) / 10 <= 13 Then
Cells(I, 8) = Cells(I, 7) / 10
Else
Cells(I, 9) = Cells(I, 7) / 10
End If
Next I
End Sub

Bonne journée 😎

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Juillet 2009

• #5

Re : probleme division dans une macro

Bonjour

Fil déplacé sur le bon forum

 

Vote positif 0 Vote négatif

L

Lutinmalin

XLDnaute Nouveau

• 13 Juillet 2009

• #6

Re : probleme division dans une macro

Bonjour ,et merci pour la réponse .Mais que faire aprés le then pour afficher 13 dans la colonnne H et le reste de la division / 10 dans la colonne I
@+

Sub NombreCheques()

Dim Cheques As String

Dim NombreChequesRS As String

Dim NombreChequesC As String

Dim i As Double

Worksheets("LISTE_ENFANTS 2").Select

i = 3

While i < 95

Cheques = Cells(i, "G")

NombreChequesRS = Cells(i, "H")

NombreChequesC = Cells(i, "I")

If Cheques <> "" Then

Cells(i, "H") = Cheques / 10

If Cells(i, "H") / 10 <= 13 Then

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Juillet 2009

• #7

Re : probleme division dans une macro

Re 🙂,
Logiquement

Code:

Sub Test()
Dim I As Integer
For I = 1 To 50
If Cells(I, 7) / 10 <= 13 Then
Cells(I, 8) = Cells(I, 7) / 10
Else
Cells(I, 8) = 13
Cells(I, 9) = (Cells(I, 7) / 10) - 13
End If
Next I
End Sub

Mais la logique de ton calcul, si il s'agit bien de chèques restaurants si j'ai bien suivi, serait plutôt de mettre en H

Code:

Int(Cells(I, 7) / 10)

qui te donnerai le nombre de chèques à utiliser et en I

Code:

Cells(I, 7) Mod 10

qui te donnerait le reste à payer en liquide.
Bon courage 😎

 

Vote positif 0 Vote négatif