Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

suppression lignes si

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : suppression lignes si

Re,

Dépose un extrait de ton fichier (sans données confidentielles, Nom, adresse ou n° téléphone). Fichier au format 97-2003 par enregistré sous.

Ce sera plus facile pour t'aider.
 
Re : suppression lignes si

Bonsoir mcj1997, jeanpierre,

ici un bout de fichier en ayant adapté le code de cbea (en suivant les liens en bas de page, comme te l'a suggéré jeanpierre)

Les solutions existe mais il faut les adapter à ton cas. Aucune formule n'est clé en main, et chaque cas différents.

regarde si cela te convient.
 

Pièces jointes

Dernière édition:
Re : suppression lignes si



Bonsoir,

Voici ce que j'ai mis au final dans mon programme :

Sub Macro1()
Dim Lig As Long, Derlig As Long
Application.ScreenUpdating = False
Derlig = Range("E300").End(xlUp).Row
' Boucle sur les lignes
For Lig = Derlig To 4 Step -1 ' mettre ta dernière colonne idem pour le tri
If (Range("E" & Lig).Value = "O") Then Rows(Lig).Delete
Next Lig
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Range("E4:E194"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
With Target
.Value = "O"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Else
Target.ClearContents
End If
Cancel = True

End Sub

Je suis donc arrivé à plus que ce que je voulais en effet sur le forum j'ai trouvé une macro me permettant d'insérer un "O" dans ma colonne E et avec l'autre macro de supprimer les lignes comportant un "O". Du sur mesure ! merci encore.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
193
Réponses
6
Affichages
299
Réponses
23
Affichages
695
Réponses
2
Affichages
124
Réponses
2
Affichages
111
  • Question Question
Réponses
13
Affichages
460
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…