P
pascalld
Guest
Je recherche sous Excel un prog de gestion de copropriété pour une quinzaine de lots... Si quelqu'un a ça...
Sub Bouton1_QuandClic()
Dim i As Byte
Dim nombre As Long
Dim chiffre As Double
For i = 1 To 3
Select Case i
Case 1: chiffre = 45
Case 2: chiffre = 22.5
Case 3: chiffre = 15
End Select
nombre = nombre & chiffre * i
Next i
Range('a1') = nombre
End Sub