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

Goose · 26 Août 2011

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:

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 · 26 Août 2011

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

Re,

si j'ai compris

Code:

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 · 26 Août 2011

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

nickel merci Toto !!

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

Goose

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Discussions similaires

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

Goose

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency