Bonjour a tous ,
Quelqu'un porrait il me dire pourquoi ma macro ne fonctionne pas?
Je fait une boucle et si la cellule B est vide je coupe et deplace en F
Merci d'avance
Sub couper()
'
' couper Macro
' Macro enregistrée le 06/01/2007 par DUMORTIER Gilles
Dim i
For i = 1 To 100
If Range("b(i)").Value <> 0 Then Next i
Range("A(i)").Select
Application.CutCopyMode = False
Selection.Cut
Range("F(i)").Select
ActiveSheet.Paste
Next i
End Sub
Quelqu'un porrait il me dire pourquoi ma macro ne fonctionne pas?
Je fait une boucle et si la cellule B est vide je coupe et deplace en F
Merci d'avance
Sub couper()
'
' couper Macro
' Macro enregistrée le 06/01/2007 par DUMORTIER Gilles
Dim i
For i = 1 To 100
If Range("b(i)").Value <> 0 Then Next i
Range("A(i)").Select
Application.CutCopyMode = False
Selection.Cut
Range("F(i)").Select
ActiveSheet.Paste
Next i
End Sub