probleme division dans une macro

[Lutinmalin]

Bonjour,

Dans cellule G = 150
Dans cellule H= G/10
Probleme H doit etre <= 13
Si H>13
Ranger le reste du calcul dans I

Merci pour votre aide

 

[Brigitte]

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.

 

[Lutinmalin]

Re : probleme division dans une macro

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



@ +

 

[JNP]

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

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 😎

 

[PascalXLD]

Re : probleme division dans une macro

Bonjour

Fil déplacé sur le bon forum

 

[Lutinmalin]

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

 

[JNP]

Re : probleme division dans une macro

Re 🙂,
Logiquement

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

Int(Cells(I, 7) / 10)

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

Cells(I, 7) Mod 10

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