Éliminer lignes

Le
DenysP
Bonjour à tous,

Est-il possible d'éliminer, dans une plage A1:A1000, par exemple
toutes les lignes dont les cellules dans la colonne A sont fusionnées
avec d'autres cellules.et aussi celles qui contiennent le mot
"Total"

Sub SupLgn()
'Application.ScreenUpdating = False
dLgn = ActiveSheet.UsedRange.Rows.Count
For r = dLgn To 1 Step -1
If Cells(r, 1).(est fusionnée) Then Rows(r).Delete
If Cells(r, 1).(contient le mot Total) Then Rows(r).Delete
Next r
End Sub

Auriez-vous une idée ?

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #22565721
bonjour DenysP,

If Cells(r, 1).MergeCells Then Rows(r).Delete
If Cells(r, 1) Like "*toto*" Then Rows(r).Delete

isabelle

Le 2010-09-13 08:54, DenysP a écrit :
If Cells(r, 1).(est fusionnée) Then Rows(r).Delete
If Cells(r, 1).(contient le mot Total) Then Rows(r).Delete
Denys
Le #22565751
On Sep 13, 9:24 am, isabelle
bonjour DenysP,

If Cells(r, 1).MergeCells Then Rows(r).Delete
If Cells(r, 1) Like "*toto*" Then Rows(r).Delete

isabelle

Le 2010-09-13 08:54, DenysP a écrit :



>          If Cells(r, 1).(est fusionnée) Then Rows(r).Delete
>          If Cells(r, 1).(contient le mot Total) Then Rows(r). Delete- Hide quoted text -

- Show quoted text -




Bonjour Isabelle,

C'est parfait..... Merci beaucoup

Denys
Publicité
Poster une réponse
Anonyme