Remplir les cases automatiquement..

DoubleZero à dit:

Bonjour, CedricSTO, ERIC S, le Forum,

Autre possibilité avec le code suivant, logé dans un module standard :

VB:

Option Explicit
Sub Cellules_vides_compléter()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("e:e").SpecialCells(xlCellTypeConstants)
        If c.Offset(, -1) = "" Then c.Offset(, -1) = c.Offset(-1, -1)
        If c.Offset(, -2) = "" Then c.Offset(, -2) = c.Offset(-1, -2)
    Next
End Sub

A bientôt 🙂

Cliquez pour agrandir...