XL 2010 Déplacer contenu cellule si une cellule = 0

Dylan67 à dit:

Si dans A1=0, A2=20 et A3=30 puis A1=20, A2=30 et A3=vide.

Cliquez pour agrandir...

Orson83 à dit:

Un fichier exemple serait le bienvenu.

Cliquez pour agrandir...

sylvanu à dit:

Re,
Donc on décale toutes les valeurs de la colonne E à la fin du tableau vers la gauche si la veleur de colonne E est nulle ?
( rien à voir avec A1, B1, C1 )
Un essaie en PJ.
Le décalage s'effectue automatiquement si on efface la valeur qui est en colonne E, avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E1:E100")) Is Nothing Then
        Application.ScreenUpdating = False
        If Target = 0 Then
            For C = 6 To 10
                Cells(Target.Row, C - 1) = Cells(Target.Row, C)
            Next C
            Cells(Target.Row, 10) = ""
        End If
    End If
Fin:
Application.ScreenUpdating = True
End Sub

Si la valeur entrée en colonne E est différente de 0 alors on ne fait rien.

Cliquez pour agrandir...