Discussion :

[LolaMartinez]

Bonjour à tous,

J'aimerais supprimer des cellules en fonction de mon test VRAI/FAUX, j'ai des dates qu'il faut re associer au bon fichier, si les deux fichiers correspondent j'aimerais que la macro passe à la cellule suivante et si elles ne correspondent pas, j'aimerais qu'elle supprime les cellules en remontant les cellules.

Ex: La colonne F donne le résultat de "=E1=A1"


Pour l'instant j'arrive à supprimer les cellules avec un bouton mais je le fais à la main et c'est long, y'aurait-il moyen d'automatiser ça s'il vous plait?


Le code qui supprime manuellement via un bouton:

Sub Supp()

Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
Range(ActiveCell, ActiveCell.Offset(0, 3)).Activate
Selection.Delete Shift:=xlUp

End Sub

Le code que j'ai essayé pour automatiser mais qui ne fonctionne pas (Err: "For sans Next"):

Sub Supp()

For Line = 1 To 1000
If Cells(ligne, 6) = "FAUX" Then
Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
Range(ActiveCell, ActiveCell.Offset(0, 3)).Activate
Selection.Delete Shift:=xlUp
GoTo
ActiveCell.Offset(1).Select
End If


End Sub