Macro suppression ligne condition
Bonjour,
Je souhaite créer une macro permettant de supprimer une ligne en fonction d'une donnée dans une colonne précise
Je vous joins le fichier excel, la macro commencé est dans le module 3
en l’occurrence elle apparait comme cela mais supprime chaque ligne sans tenir compte de la condition :
(J'ai mi une apostrophe sur les 2 lignes qui pourraient fonctionner mais qui ne le font pas ahah)
Sub ligne()
Dim i As Integer
With Sheets("Seminaire annulé")
DerLign = .Range("A3000").End(xlUp).Row
For i = DerLign To 2 Step -1
' If Sheets("Seminaire annulé").Range("E" & i).Value <> "CXL" Then Rows(i).Delete
' If Cells(i, E) = "CXL" Then Cells(i, E).EntireRow.Delete
Next i
End With
End Sub
Merci beaucoup d'avance,
Quentin
Bonjour
Je ne comprend pas ton code...
tu travail sur la feuille : Sheets("Seminaire annulé")
or cette feuille est vide... donc marche pas... normal... ne voudrais tu pas travaillé sur la feuille Suivi groupe salle fourviere ??
Fred
Toute mes excuses, la macro est dans le module 3
elle s'ajoutera au module 2 et devrait permettre de supprimer les lignes qui apparaitront dans la feuille "Seminaire annulé" mais qui ne contiennent pas la valeur "CXL" en colonne E
Actuellement la macro me supprime toute mes valeurs, sans tenir compte de la condition
Merci d'avance
Re
encore une fois je penses que ton code doit s’exécuter sur la feuille Suivi groupe salle fourviere
ci joint le code de ton module 3 corrigé en conséquence...
Fred