Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sup ligne sauf...

Sup ligne sauf...

7 réponses
Avatar
Manu
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4 si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1, 4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
claudy
Bonsoir...
Sub zaza_ou_zozo()
' à adapter' à adapter' à adapter' à adapter' à adapter' à adapter
For Each cel In Range("A1:A15")
If Not (cel Like "*zaza*" Or cel Like "*zozo*") Then
cel.EntireRow.Delete
End If
Next
' à adapter' à adapter' à adapter' à adapter' à adapter' à adapter
'a+
'Claudy
End Sub



"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1, 4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu






Avatar
Daniel
Bonjour.
Essaie :

Sub test()
For i = 50 To 1 Step -1
If (Range("A" & i).Value = "zaza" Or _
Range("A" & i).Value = "zozo") And _
Range("A" & i).Offset(0, 2) = "" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel
"claudy" a écrit dans le message
de news: 44fc755c$0$10471$
Bonsoir...
Sub zaza_ou_zozo()
' à adapter' à adapter' à adapter' à adapter' à adapter' à adapter
For Each cel In Range("A1:A15")
If Not (cel Like "*zaza*" Or cel Like "*zozo*") Then
cel.EntireRow.Delete
End If
Next
' à adapter' à adapter' à adapter' à adapter' à adapter' à adapter
'a+
'Claudy
End Sub



"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1,
4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu










Avatar
Daniel
Oups, réponse au mauvais endroit !
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Essaie :

Sub test()
For i = 50 To 1 Step -1
If (Range("A" & i).Value = "zaza" Or _
Range("A" & i).Value = "zozo") And _
Range("A" & i).Offset(0, 2) = "" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel
"claudy" a écrit dans le message
de news: 44fc755c$0$10471$
Bonsoir...
Sub zaza_ou_zozo()
' à adapter' à adapter' à adapter' à adapter' à adapter' à adapter
For Each cel In Range("A1:A15")
If Not (cel Like "*zaza*" Or cel Like "*zozo*") Then
cel.EntireRow.Delete
End If
Next
' à adapter' à adapter' à adapter' à adapter' à adapter' à adapter
'a+
'Claudy
End Sub



"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne
A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1,
4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu














Avatar
Daniel
Bonjour.
Essaie :

Sub test()
For i = 50 To 1 Step -1
If (Range("A" & i).Value = "zaza" Or _
Range("A" & i).Value = "zozo") And _
Range("A" & i).Offset(0, 2) = "" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel
"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1, 4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu






Avatar
lSteph
Bonsoir "Manu",
...ou encore si on doit tenir compte de ZazA ou zOzo

Dim i As Long
Application.ScreenUpdating = False
With [C1:C50]
For i = .Cells.Count To 1 Step -1
If IsEmpty(.Cells(i)) And _
LCase(.Cells(i).Offset(0, -2).Text) <> "zaza" _
And _
LCase(.Cells(i).Offset(0, -2).Text <> "zozo") _
Then Rows(.Cells(i).Row).EntireRow.Delete
Next
End With

'lSteph

"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1, 4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu






Avatar
Manu
Merci, j'essai

Manu

"lSteph" a écrit dans le message de news:

Bonsoir "Manu",
...ou encore si on doit tenir compte de ZazA ou zOzo

Dim i As Long
Application.ScreenUpdating = False
With [C1:C50]
For i = .Cells.Count To 1 Step -1
If IsEmpty(.Cells(i)) And _
LCase(.Cells(i).Offset(0, -2).Text) <> "zaza" _
And _
LCase(.Cells(i).Offset(0, -2).Text <> "zozo") _
Then Rows(.Cells(i).Row).EntireRow.Delete
Next
End With

'lSteph

"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1,
4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu










Avatar
Manu
Super, ca fonctionne parfaitement.

Merci à tous

"Manu" a écrit dans le message de news:

Merci, j'essai

Manu

"lSteph" a écrit dans le message de news:

Bonsoir "Manu",
...ou encore si on doit tenir compte de ZazA ou zOzo

Dim i As Long
Application.ScreenUpdating = False
With [C1:C50]
For i = .Cells.Count To 1 Step -1
If IsEmpty(.Cells(i)) And _
LCase(.Cells(i).Offset(0, -2).Text) <> "zaza" _
And _
LCase(.Cells(i).Offset(0, -2).Text <> "zozo") _
Then Rows(.Cells(i).Row).EntireRow.Delete
Next
End With

'lSteph

"Manu" a écrit dans le message de news:
e$
Bonjour,
J'ai une procedure et merci aux "aidant", qui supprime toutes les lignes
qui
ont une cellule Vide dans C (il restera par consequent les lignes 1 et 4
si
j'envoie cette routine)
sub test()
[C1:C50].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub

Mais je souhaiterais conserver les lignes qui possedent dans la colonne
A
"zaza" et "zozo". (et par consequent je devrais preserver les lignes 1,
4,
5, 6)

A B C
1 zaza 12 fifi
2 riri dd
3
4 lulu titi 15
5 zaza
6 zozo mimi

Merci
Manu