tu peux supprimer cette ligne, c'est un résidu de l'enregistreur de macro
il suffit de garder ceci:
Code:
Sub Macro1()
derligne = Range("A65535").End(xlUp).Row
For i = derligne To 2 Step -1
If Cells(i, 4).Value = "annulé" Then
Range(Cells(i + 1, 1), Cells(derligne, 6)).Cut Destination:=Cells(i, 1)
End If
Next i
End Sub
Re : Macro pour supprimer des cellules (genre : Décaler les cellules vers le haut)...
Re, le forum, phlaurent55,
Merci beaucoup, Philippe, sur le fichier exemple du forum, ta macro fonctionne parfaitement, mais
sur mon fichier perso la macro plante avec un message : la méthode "Cut" de l'objet "Range" à échoué....
Re : Macro pour supprimer des cellules (genre : Décaler les cellules vers le haut)...
Re, le forum,
Je reviens vers vous, concernant cette discussion (à nouveau merci à Philippe), en effet je souhaiterais supprimer les cellules de colonnes 1 à 7 ;
si les dates, en colonne, 2 sont inférieures une date référence située en H1...
soit pour moi...lol (nul en macro) cette macro (de Philippe) adaptée ;
Sub Macro1()
derligne = Range("A65535").End(xlUp).Row
For i = derligne To 2 Step -1
If Cells(i, 2).Value < "H1" Then
Range(Cells(i + 1, 1), Cells(derligne, 7)).Cut Destination:=Cells(i, 1)
End If
Next i
End Sub