Joël GARBE www.joelgarbe.fr "Andre" a écrit dans le message de news: O1f%
Hello,
J'essaye de faire un petit quelque chose, mais je n'y arrive pas...
Dans la case A1 j'inscrit un chiffre "Example : 40"
Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..
Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour un total de 40, B7 a B18 serait a zero, ou vide.
Quelqu'un aurait une idée comment faire ?
Merci.
AV
Dans le module de la feuille et pour saisie en A1 :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub On Error Resume Next [B:B] = "" laVar = 7.5 x = Evaluate("mod(A1," & laVar & ")") If x <> 0 Then For i = 1 To Int(zz / laVar) Cells(i, "B") = laVar Next End If Cells(i, "B") = x End Sub
AV
Dans le module de la feuille et pour saisie en A1 :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
On Error Resume Next
[B:B] = ""
laVar = 7.5
x = Evaluate("mod(A1," & laVar & ")")
If x <> 0 Then
For i = 1 To Int(zz / laVar)
Cells(i, "B") = laVar
Next
End If
Cells(i, "B") = x
End Sub
Dans le module de la feuille et pour saisie en A1 :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub On Error Resume Next [B:B] = "" laVar = 7.5 x = Evaluate("mod(A1," & laVar & ")") If x <> 0 Then For i = 1 To Int(zz / laVar) Cells(i, "B") = laVar Next End If Cells(i, "B") = x End Sub