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

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 mcj1997,
content de voir que tu as essayer la macro😉, et ainsi d'avoir pu relancer un débat au sujet de ton problème!

https://www.excel-downloads.com/threads/macro-qui-ne-fonctionne-plus.109600/

Un petit message pour dire ce que tu en pense aurait fait plaisir, surtout que l'on te consacre du temps (notre temps).

Bonne soirée!


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
Retour