Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Éliminer lignes

2 réponses
Avatar
DenysP
Bonjour =E0 tous,

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

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

Auriez-vous une id=E9e ?

Merci pour votre temps

Denys

2 réponses

Avatar
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
Avatar
Denys
On Sep 13, 9:24 am, isabelle wrote:
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