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

Supprimer des lignes sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion boby
  • Date de début Date de début

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 !

S'inscrire
B

boby

Guest
Bonjour à tous,

je suis le nouveau de la classe

j'ai un fichier dont je souhaiterai supprimer quelques lignes sous conditions😡 :

- colonne H : supprimer toutes les lignes dont les codes ISIN ne commençant pas par "AT" - "DK" - "FI" - "GB" - "IE" - "JP" - "NL" - "PT" - "XS0"
ps: (0=zero)
😕
- colonne W: supprimer toutes les lignes dont les cellules ne contiennent pas "UNM" ou "ICMO" conserver les cellules vides
😱
- trier par ordre croissant les colonnes N puis O
🙄
- sauter trois lignes entières quand dans la colonnes N on passe de "C" à "E" et de "E" à "X"

- mise en page:
uniformiser les lignes et les colonnes avec un zoom à 82%, des cellules centrées ajustée, les colonnes J K et L en separateur de milliers, et une couleur de remplissage blanche puis fenetres/reorganiser/horizontal

voici un echantillon du fichier

merci d'avance pour votre aide
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Supprimer des lignes sous condition

Salut Boby, Jacques 🙂

J'ai repris la dernière version de la macro que tu proposais Boby et j'ai rajouter quelques morceaux sans avoir tester.

Sub cleaner()
Dim I As Integer
Dim code As String, debut1 As String, debut2 As String
Application.ScreenUpdating = False
For I = Range("A65536").End(xlUp).Row To 2 Step -1
Select Case Left(Cells(I, 8).Value, 2)
Case "BE", "DE", "ES", "FR", "HU", "IT", "NO", "SE", "US"
Rows(I).Delete Shift:=xlUp
End Select
Select Case Left(Cells(I, 8).Value, 7)
Case "XSDUMMY"
Rows(I).Delete Shift:=xlUp
End Select
'colonne W: supprimer toutes les lignes dont les cellules ne contiennent pas "UNM" ou "ICMO" conserver les cellules vides
Select Case Left(Cells(I, 23).Value, 25)
Case "E - DONE", "E - INT - FUT", "E - INT - FUT - EXT - MAT", "Filtered", "Stamina - Filtered", "E - GENR"
Rows(I).Delete Shift:=xlUp
End Select
Next I
'trier par ordre croissant les colonnes N puis O
Selection.Sort Key1:=Range("N2"), Order1:=xlAscending, Key2:=Range("O2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
'sauter trois lignes entières quand dans la colonnes N on passe de "C" à "E" et de "E" à "X"
For I = 2 To Range("A65536").End(xlUp).Row
If Cells(I, 14).Value = "C" And Cells(I + 1, 14).Value = "E" Then Rows(I + 1 & ":" & I + 3).Insert Shift:=xlDown
If Cells(I, 14).Value = "E" And Cells(I + 1, 14).Value = "X" Then Rows(I + 1 & ":" & I + 3).Insert Shift:=xlDown
If Cells(I, 14).Value = "E" And IsEmpty(Cells(I + 1, 14)) = True Then Rows(I + 1 & ":" & I + 3).Insert Shift:=xlDown
If Cells(I, 14).Value = "X" And IsEmpty(Cells(I + 1, 14)) = True Then Rows(I + 1 & ":" & I + 3).Insert Shift:=xlDown
Next I
Columns("J:L").NumberFormat = "#,##0.00 _€"
Windows.Arrange ArrangeStyle:=xlHorizontal
Application.ScreenUpdating = True
With Cells
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 2
End With
ActiveWindow.Zoom = 80
Cells.Select
Cells.EntireColumn.AutoFit
'je souhaiterai avoir la premiere ligne en gras, largeur de ligne 30,
'couleur remplissage Turquoise clair, ombre portee style 6
With Rows("1:1")
.Font.Bold = True
.RowHeight = 30
.Interior.ColorIndex = 34
End With
End Sub

Par contre je ne sais pas ce qu'est ombre portee style 6, mais un conseil, utilise l'enregistreur de macro, ca rends pas mal de service.

@+
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

bonjour à tous

voici ce qui me reste à faire

- je souhaiterai avoir la premiere ligne en gras, largeur de ligne 30, couleur remplissage Turquoise clair, ombre portee style 6

- j'aurai souhaité sauter egalement trois lignes entre la valeur X et la cellule vide ou bien entre la valeur E et la cellule vide au cas ou il n'y aurai pas de X


je pense à mettre des mises en forme conditionnelles
avez vous une astuce
la mise en forme sera du gense
si la cellule = B mettre en gras couleur bleu nuit
si la cellule = S mettre en gras couleur Rouge
si la cellule = T mettre en gras couleur violet

c'est grace à vous si j'ai pu faire tout ça
j'ai beaucoup appris en deux jours

encore merci de votre aide
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

hahahah


sisi senior j'ai bien regardé porcinet
et en effet ça marche

tu sais moi je suis tres impressionné par la maniere dont vous programmez sur VB
j'aimerai pouvoir en faire autant mais je n'ai pas vos competences
par contre j'aimerai bien apprendre

il y a des ptits codes par ci par la qui peuvent servir

comme par exemple
quel est le code qui permet faire une mise en page paysage ajustée sur une page en largeur et longeur, centree avec o marge à droite et à gauche

ca j'en ai besoin pour tous mes fichiers

et en ce qui concerne les mises en forme conditionnelles
avez vous une astuce
la mise en forme sera du gense
si la cellule = B mettre en gras couleur bleu nuit
si la cellule = S mettre en gras couleur Rouge
si la cellule = T mettre en gras couleur violet

a+++

thank a lot
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

Merci Tibo,

je sais me servir de la mise en forme conditionnelle sur Excel
mais je me demandais si vous aviez un code qui puisse faire cela et que je puisse ratacher à ma macro, car je genere plusieurs fichier de ce genre

si dans la colonne E la cellule = B mettre en gras couleur bleu nuit
si dans la colonne E la cellule = S mettre en gras couleur Rouge
si dans la colonne N la cellule = C mettre en gras couleur Rouge
si dans la colonne N la cellule = E mettre en gras couleur bleu nuit
si dans la colonne N la cellule = X mettre en gras couleur bleu Violet
si dans la colonne Q la cellule = OP mettre en gras couleur bleu nuit
si dans la colonne Q la cellule = CL mettre en gras couleur Rouge
si dans la colonne V la cellule = UPAID mettre en gras couleur Rouge

quand il y a 2 condition on peut utiliser "sinon" d'apres moi

voila un exemple

encore merci Tibo
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

re,

Dans ce cas, regarde le fichier de notre ami mDF.

Permet de gérer les mises en formes conditionnelles multiples

(en attendant la version d'Excel 2007 qui n'a plus de limite).

@+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

merci Tibo,
bonjour Porcinet
bonjour a tous

est ce que tu connais des astuces comme par exemple le code qui permet faire une mise en page paysage ajustée sur une page en largeur et longeur, centree avec aucune marge à droite et à gauche

ca j'en ai besoin pour tous mes fichiers


encore merci
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

re,

En tant que formuliste, je ne suis sans doute pas le mieux placé pour te répondre.

Mais tu peux essayer avec l'enregistreur de macro. Ca va te donner un code de base à adapter (c'est ce que je fais quand j'ai besoin d'une petite macro).

@+
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

en effet c'est ce que je fais egalement de temps en temps
mais il est vrai que la maniere de programlmer du pc est tres dificile a comprendre
alors que la maniere de programmer de Porcinet est assez abordable pour un cancre comme moi

connais tu une astuce pour faire apparaitres les en-tete et pieds de page avec
le mon de l'onglet en haut au centre
la date en haut à droite
l'heure en bas à gauche
mon nom en ba à droite

merci
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

bonjour à tous,

est ce qu'il y a une manière plus simple de faire ça

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Gras""&11&A"
.RightHeader = "&D"
.LeftFooter = "&T"
.CenterFooter = ""
.RightFooter = "&""Arial,Gras""&11Mr boby"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 54
End With
Range("F15").Select

merci
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

Bonjour le fil,

Et bien je vois qu'il s'en passe des choses sur ce fil, il suffit de s'absenter une journée et je vois que Tibo essaye de me piquer mes clients...😛

Pour ce qui est de faire plus simple, tu peux mettre :
PHP: 
    With ActiveSheet.PageSetup
        .CenterHeader = "&""Arial,Gras""&11&A"
        .RightHeader = "&D"
        .LeftFooter = "&T"
        .RightFooter = "&""Arial,Gras""&11Mr boby"
        .LeftMargin = Application.InchesToPoints(0.8)
        .RightMargin = Application.InchesToPoints(0.8)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

Sinon je pense que pas mal de paramètres sont des paramètres par défaut et que l'on peut les enlever sans soucis, ce qui donnerait :
PHP: 
With ActiveSheet.PageSetup
    .CenterHeader = "&""Arial,Gras""&11&A"
    .RightHeader = "&D"
    .LeftFooter = "&T"
    .RightFooter = "&""Arial,Gras""&11Mr boby"
End With

@+
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

SALUT PORCINET
bonjour le fil,

ta macro est parfaite comme d'habitude, tu es la simplicité meme, il manque just le format paysage

merci
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes sous condition

Oui porcinet,

j'ai reussit à le trouver par moi meme juste avant d'aller dejeuner
(je parle un peu anglais)
j'ai aussi pu regler pas mal d'autres petits soucis

sauf un:
lorsque je lance une de mes macros, et que j'imprime, il y a une vingtaine de pages qui sortent:
une pleine (bonne page)
et 19 vides

comment faire pour avoir mes données sur le nomnbre de pages necessaires et eviter de gacher du papier

dans la foulée, j'ai posté un autre souci dans un post qui s'appelle "Trier / somme sous total / ....
pourrais tu me secourir

merci porcinet

ps : qui a dit que les anes étaient des tete de mules
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
Microsoft 365 Tableau de progressions
Réponses
10
Affichages
516
Rosario.
R
  • Résolu(e)
XL 2021 Supprimer les lignes qui contiennent des cellules vides dans les colonnes "A à M" à partir de la ligne 5
Réponses
6
Affichages
790
Usine à gaz
N
  • Question Question
Microsoft 365 VBA Supprimer lignes en fonction des valeurs d'une cellule
Réponses
11
Affichages
3 K
Phil69970
  • Résolu(e)
Microsoft 365 Supprimer les lignes "entières" en doublon selon critères
Réponses
9
Affichages
785
Usine à gaz
Y
  • Question Question
XL 2019 Macro pour supprimer des lignes selon caractères
Réponses
2
Affichages
812
Yoshi0302
Y
F
  • Question Question
Microsoft 365 Suppression des lignes ne contenant pas 2 mots avec VBA
Réponses
2
Affichages
690
Fatine
F
M
  • Résolu(e)
Microsoft 365 Comparer le contenu d'une ligne avec d'autres lignes
Réponses
4
Affichages
1 K
mahakas
M
A
  • Question Question
Microsoft 365 VBA code pour inserer des lignes une condition
Réponses
4
Affichages
869
AEz
A
P
  • Résolu(e)
Microsoft 365 Passer des lignes quand une condition est remplie en Macro
Réponses
11
Affichages
2 K
sylvanu
B
  • Question Question
Microsoft 365 VBA Supprimer des lignes de tableau avec une sélection manuelle
Réponses
8
Affichages
4 K
Benoit84
B
L
  • Question Question
Microsoft 365 Excel Message erreur à supprimer
Réponses
11
Affichages
1 K
Ludo34360
L
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
D
  • Question Question
XL pour MAC Réaffectation (très complexe) de données dans des lignes supplémentaires générées par Macro
Réponses
3
Affichages
1 K
didcac
D
C
  • Résolu(e)
XL 2019 VBA supprimer des lignes en fonction d'une condition
2 3
Réponses
36
Affichages
9 K
Céline49
C
  • Résolu(e)
Microsoft 365 Supprimer des caractères non visibles en passant par une variable tableau
Réponses
5
Affichages
2 K
Patrice33740
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
H
  • Question Question
XL 2016 Supprimer des lignes sous condition
Réponses
5
Affichages
678
job75
C
  • Question Question
Autres Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
1
Affichages
2 K
claivier_58
C
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
A
  • Question Question
XL 2013 Supprimer des lignes sous une seul condition "VBA"
Réponses
5
Affichages
1 K
Anr1
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…