Dim maCellule As Range For Each maCellule In ActiveSheet.Range(Range("D1"), Range("D1").End(xlDown)) If IsEmpty(maCellule) Then maCellule.Value = 4012 * maCellule.Offset(0, 1).Value End If Next
Les machines ne font pas d'erreurs
Heureusement nous sommes humains
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question? maVariablepour qu'elle s'inscrive dans la fenêtre.