A voir également:
- Macro supprimer ligne selon critère
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Hors ligne instagram - Guide
- Aller à la ligne excel - Guide
- Vente en ligne particulier - Guide
5 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
27 avril 2007 à 15:43
27 avril 2007 à 15:43
bonjour,
le mot recherché est-il toujours dans la même colonne ?
Ta macro doit-elle faire toute les lignes ou c'est ligne par ligne ?
Au cas ou tu n'a pas besoins d'autre chose voila la commande pour supprimer une ligne
Worksheets("Sheet1").Rows(3).Delete
sheet1= le nom de la feuille
3 = le N° de la ligne
Attention, quand tu supprime une ligne, tout est mis a jour immédiatement, donc si, par exemple tu veux supprimé le mot TEST et dans la ligne 3 et 4 il y a TEST, la premiere commande va supprimé la ligne 3, mais la suivante va être de nouveau la ligne 3 donc tu doit retesté la même ligne.
J'espère avoir été assé clair.
A+
louis
le mot recherché est-il toujours dans la même colonne ?
Ta macro doit-elle faire toute les lignes ou c'est ligne par ligne ?
Au cas ou tu n'a pas besoins d'autre chose voila la commande pour supprimer une ligne
Worksheets("Sheet1").Rows(3).Delete
sheet1= le nom de la feuille
3 = le N° de la ligne
Attention, quand tu supprime une ligne, tout est mis a jour immédiatement, donc si, par exemple tu veux supprimé le mot TEST et dans la ligne 3 et 4 il y a TEST, la premiere commande va supprimé la ligne 3, mais la suivante va être de nouveau la ligne 3 donc tu doit retesté la même ligne.
J'espère avoir été assé clair.
A+
louis
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
2 juil. 2009 à 14:31
2 juil. 2009 à 14:31
Bonjour,
C'est un peu plus compliqué mais pas trop...
A+
C'est un peu plus compliqué mais pas trop...
Sub SupprimerligneAvecMerge()
Dim Lig As Long
Dim Col As Integer
Dim Mg, TB
'pour l'exemple, la colonne à tester =3
Col = 3
For Lig = Cells(65536, Col).End(xlUp).Row To 1 Step -1
Set Mg = Cells(Lig, Col).MergeArea
TB = Split(Mg.Address, ":")
If Cells(Lig, TB(0)).Value = "tonmot" Then
Rows(Lig).Delete
End If
Next Lig
End Sub
A+
knoizell
Messages postés
1
Date d'inscription
mardi 30 juin 2009
Statut
Membre
Dernière intervention
2 juillet 2009
2 juil. 2009 à 08:36
2 juil. 2009 à 08:36
Bonjour,
Merci pour les Codes précédent.
J'ai a supprimer des lignes qui contienne un mot particuliers donc j'ai bien repris le code de kyo et il fonction pour une partie des lignes mais d'est que j'ai des céllule fusionné elle ne fonctionne plus esque vous auriez une solution ?
bonne journée et merci d'avance.
Merci pour les Codes précédent.
J'ai a supprimer des lignes qui contienne un mot particuliers donc j'ai bien repris le code de kyo et il fonction pour une partie des lignes mais d'est que j'ai des céllule fusionné elle ne fonctionne plus esque vous auriez une solution ?
bonne journée et merci d'avance.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
27 avril 2007 à 15:48
Merci pour ta réponse!
Le mot recherché change de ligne à chaque fois. C'est que je vais chercher des données grâce à SQL et les données change à chaque jour. Donc la ligne 3 un matin peut contenir le mot que je veux supprimer des fois non.
Le mot est toujours dans la même colonne, mais jamais sur la même ligne.
Aurais-tu une solution?
Sabrina
27 avril 2007 à 17:25
Il faut juste que tu remplaces "tonmot" par le mot qui te sert de critère (n'oublie pas les guillemets).
Je suppose ici que ton mot est dans la première colonne. Si ce n'est pas le cas, là où il est écrit cells(b,1) change le 1 par le numéro de ta colonne (1 pour colonne A, 2 pour colonne B, 3 pour colonne C...)
Bonne chance :)
Sub Supprimerligne() Dim a As Long Dim b As Long a = Range("A65536").End(xlUp).Row For b = a To 1 Step -1 If Cells(b, 1).Value = "tonmot" Then Rows(b).Delete End If Next b End Sub27 avril 2007 à 17:41
A+
louis