Discussion :

[kythi]

Bonjour,

je fais une division du style :

73 / 4

je veux en résultat 18, 18, 18 et 19.


exemple de mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ElseIf conges <= 61 And conges <= 80 Then
                conges = conges / 4
                Cells(ligneconges, 12).Value = conges
                Cells(ligneconges, 13).Value = conges
                Cells(ligneconges, 14).Value = conges
                Cells(ligneconges, 15).Value = conges

Le problème là c'est que j'ai 18.25, 18.25, 18.25 et 18.25

Avez-vous une idée ?

[78chris]

Bonjour

Voir la fonction round.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Test()
Dim toto As Long
toto = 73 / 4
 conges = CLng(conges / 4)
End Sub

[kythi]

j'ai résolu mon problème en effectuant une autre approche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If conges <= 20 Then
                Cells(ligneconges, 12).Value = conges
            ElseIf conges >= 21 And conges <= 40 Then
                Cells(ligneconges, 12).Value = 20
                conges = conges - 20
                Cells(ligneconges, 13).Value = conges
            ElseIf conges >= 41 And conges <= 60 Then
                Cells(ligneconges, 12).Value = 20
                Cells(ligneconges, 13).Value = 20
                conges = conges - 40
                Cells(ligneconges, 14).Value = conges
            ElseIf conges >= 61 And conges <= 80 Then
                Cells(ligneconges, 12).Value = 20
                Cells(ligneconges, 13).Value = 20
                Cells(ligneconges, 14).Value = 20
                conges = conges - 60
                Cells(ligneconges, 15).Value = conges
            Else

voilà bonne journée et merci.

[nibledispo]

bonsoir,

une autre approche,certes!
Espérons seulement que tu n'auras pas à gérer 100 jours de congés.
Essais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub congé()
conges = Cells(1, 1)
If conges <= 20 Then
    Cells(2, 3) = conges
Else
    entier = Int(conges / 20)
    For i = 1 To entier
        Cells(2, i + 2) = 20
    Next i
    Cells(2, i + 2) = conges - (20 * entier)
End If
End Sub

cordialement.