déplacer cellules suivant la valeur d'autres cellules (VBA)

[Goose]

Re-bjr,

j'essaye de réaliser une macro pour me permettre de déplacer des cellules suivant la valeur d"une autre cellule !!
j'ai une ébauche de code:

Sub selection()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("C3:C1600")
If c.Value = "1" Then
c.Insert Shift:=xlToLeft
End If
Next
Range("A3").Select
Application.ScreenUpdating = True
End Sub

mais je coince sur le left !!
ci-joint un exemple
merci et @+

 

[tototiti2008]

Re : déplacer cellules suivant la valeur d'autres cellules (VBA)

Re,

si j'ai compris

Sub selection()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("C3:C1600")
If c.Value = "1" And c.Offset(0, -1).Value <> "" Then
c.Offset(0, -2).Delete Shift:=xlToLeft
End If
Next
Range("A3").Select
Application.ScreenUpdating = True
End Sub

 

[Goose]

Re : déplacer cellules suivant la valeur d'autres cellules (VBA)

nickel merci Toto !!