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 SUPPRIMER UNE LIGNE

SUPPRIMER UNE LIGNE

19 réponses
Avatar
Sofien Djelassi
Bonjour,

je cherche à supprimer de mon tableau EXCEL toutes les lignes dont une
cellule contient le mot "Total".

Merci d'avance pour vos réponses
--
Sofien
Signaler un problème avec ce contenu

9 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
1 2
Avatar
ChrisV
Grrrrr....!
salut Pierre, tu crois ?

Merdum... j'suis passé à côté, et pourtant j'en étais à mon 31e
poisson -papier collés dans le dos des collègues !


ChrisV


"Pierre CFI [mvp]" a écrit dans le message de
news:
et tu es tombé sur le poisson d'avril de jps :o)
car bien sur, il connaissait la réponse

--
Pierre CFI
MVP Microsoft Access




Avatar
jps
merci, chris, pour cette précision : you are LIKE a father for me...
jps

"ChrisV" a écrit dans le message de
news:%
Salut JP,

L'opérateur "=" évalue d'une manière "stricte" le contenu de chaque
comparaison de chaînes...
Ainsi MsgBox "Samedi" = "samedi" renverra Faux
de la même manière que, "Samedi" = "SAMEDI"
etc...
Le joker "*" n'est ici, pas considéré comme remplaçant de n'importe quelle
chaîne de caractères, mais bien comme caractère faisant parti de la chaîne
à

comparer...
(l'utilisation du joker ? produirait d'ailleurs le même effet...)
Tu aurais pu cependant utiliser l'opérateur Like qui lui, permet
l'utilisation des jokers (* ; ? ; # ; [Z-A] par ex.) dans la comparaison
de

chaînes...
If c.Value Like "*total*" Then.....

Voili, voilou... my dear old friend,
;-)


ChrisV


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

merci chris pour avoir pris la relève...
avec mon exemple, j'ai tenté un If c.Value = "*total*" Then.....
j'ai benoîtement pensé que ça allait marcher mais que nenni....can you
tell
me why, my dear lakota?
jps

"ChrisV" a écrit dans le message de
news:
Bonjour Sofien,

Avec la plage de données nommée ici Zn

Sub zaza()
Dim i As Long
Application.ScreenUpdating = False
For i = [Zn].SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.CountIf(Rows(i), "*total*") Then _
Rows(i).Delete
Next i
End Sub


ChrisV


"Sofien Djelassi" a écrit dans le message de
news:




Je sens que c'est presque ce qu'il me faut. Le seul truc qui gène
c'est




que
mes cellules ne contiennent pas exactement le mot "total" mais plutot
"total
xxx" et donc ça ne marche pas :(



bonjour sofien
ceci peut-être à adapter :

Sub test()
Dim c As Range
ActiveSheet.Range("A1:D9").Select
For Each c In Selection
If c.Value = "total" Then Rows.EntireRow.Delete
Next c

End Sub

"Sofien Djelassi" a écrit dans le message de
news:
Bonjour,

je cherche à supprimer de mon tableau EXCEL toutes les lignes dont
une




cellule contient le mot "Total".

Merci d'avance pour vos réponses
--
Sofien



















Avatar
jps
objection, monseigneur : même si je suis parfois capable de répondre aux
questions du sieur Bonneau, je suis loin de tout savoir malgré mon titre de
MVP
jps

"Pierre CFI [mvp]" a écrit dans le message de
news:
et tu es tombé sur le poisson d'avril de jps :o)
car bien sur, il connaissait la réponse

--
Pierre CFI
MVP Microsoft Access




Avatar
jps
rassure-toi, chris, c'est encore une c......ie de l'ami pierrot qui, lui,
n'en est pas à sa 31ème, pour notre plus grand malheur...
jps

"ChrisV" a écrit dans le message de
news:
Grrrrr....!
salut Pierre, tu crois ?

Merdum... j'suis passé à côté, et pourtant j'en étais à mon 31e
poisson -papier collés dans le dos des collègues !


ChrisV


"Pierre CFI [mvp]" a écrit dans le message de
news:
et tu es tombé sur le poisson d'avril de jps :o)
car bien sur, il connaissait la réponse

--
Pierre CFI
MVP Microsoft Access








Avatar
ChrisV
;-)


ChrisV


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

merci, chris, pour cette précision : you are LIKE a father for me...
jps

"ChrisV" a écrit dans le message de
news:%
Salut JP,

L'opérateur "=" évalue d'une manière "stricte" le contenu de chaque
comparaison de chaînes...
Ainsi MsgBox "Samedi" = "samedi" renverra Faux
de la même manière que, "Samedi" = "SAMEDI"
etc...
Le joker "*" n'est ici, pas considéré comme remplaçant de n'importe
quelle
chaîne de caractères, mais bien comme caractère faisant parti de la
chaîne
à

comparer...
(l'utilisation du joker ? produirait d'ailleurs le même effet...)
Tu aurais pu cependant utiliser l'opérateur Like qui lui, permet
l'utilisation des jokers (* ; ? ; # ; [Z-A] par ex.) dans la comparaison
de

chaînes...
If c.Value Like "*total*" Then.....

Voili, voilou... my dear old friend,
;-)


ChrisV


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

merci chris pour avoir pris la relève...
avec mon exemple, j'ai tenté un If c.Value = "*total*" Then.....
j'ai benoîtement pensé que ça allait marcher mais que nenni....can you
tell
me why, my dear lakota?
jps

"ChrisV" a écrit dans le message de
news:
Bonjour Sofien,

Avec la plage de données nommée ici Zn

Sub zaza()
Dim i As Long
Application.ScreenUpdating = False
For i = [Zn].SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.CountIf(Rows(i), "*total*") Then _
Rows(i).Delete
Next i
End Sub


ChrisV


"Sofien Djelassi" a écrit dans le message de
news:




Je sens que c'est presque ce qu'il me faut. Le seul truc qui gène
c'est




que
mes cellules ne contiennent pas exactement le mot "total" mais
plutot
"total
xxx" et donc ça ne marche pas :(



bonjour sofien
ceci peut-être à adapter :

Sub test()
Dim c As Range
ActiveSheet.Range("A1:D9").Select
For Each c In Selection
If c.Value = "total" Then Rows.EntireRow.Delete
Next c

End Sub

"Sofien Djelassi" a écrit dans le message de
news:
Bonjour,

je cherche à supprimer de mon tableau EXCEL toutes les lignes
dont
une




cellule contient le mot "Total".

Merci d'avance pour vos réponses
--
Sofien






















Avatar
ChrisV
Ouffff...


ChrisV
[38e - 14:19]


"jps" a écrit dans le message de news:
eS%
rassure-toi, chris, c'est encore une c......ie de l'ami pierrot qui, lui,
n'en est pas à sa 31ème, pour notre plus grand malheur...
jps

"ChrisV" a écrit dans le message de
news:
Grrrrr....!
salut Pierre, tu crois ?

Merdum... j'suis passé à côté, et pourtant j'en étais à mon 31e
poisson -papier collés dans le dos des collègues !


ChrisV


"Pierre CFI [mvp]" a écrit dans le message de
news:
et tu es tombé sur le poisson d'avril de jps :o)
car bien sur, il connaissait la réponse

--
Pierre CFI
MVP Microsoft Access











Avatar
AV
mais là, tu utilises une instruction supplémentaire...


Ha bon ?
;-)
AV

Avatar
Sofien Djelassi
Merci les gars



;-)


ChrisV


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

merci, chris, pour cette précision : you are LIKE a father for me...
jps

"ChrisV" a écrit dans le message de
news:%
Salut JP,

L'opérateur "=" évalue d'une manière "stricte" le contenu de chaque
comparaison de chaînes...
Ainsi MsgBox "Samedi" = "samedi" renverra Faux
de la même manière que, "Samedi" = "SAMEDI"
etc...
Le joker "*" n'est ici, pas considéré comme remplaçant de n'importe
quelle
chaîne de caractères, mais bien comme caractère faisant parti de la
chaîne
à

comparer...
(l'utilisation du joker ? produirait d'ailleurs le même effet...)
Tu aurais pu cependant utiliser l'opérateur Like qui lui, permet
l'utilisation des jokers (* ; ? ; # ; [Z-A] par ex.) dans la comparaison
de

chaînes...
If c.Value Like "*total*" Then.....

Voili, voilou... my dear old friend,
;-)


ChrisV


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

merci chris pour avoir pris la relève...
avec mon exemple, j'ai tenté un If c.Value = "*total*" Then.....
j'ai benoîtement pensé que ça allait marcher mais que nenni....can you
tell
me why, my dear lakota?
jps

"ChrisV" a écrit dans le message de
news:
Bonjour Sofien,

Avec la plage de données nommée ici Zn

Sub zaza()
Dim i As Long
Application.ScreenUpdating = False
For i = [Zn].SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.CountIf(Rows(i), "*total*") Then _
Rows(i).Delete
Next i
End Sub


ChrisV


"Sofien Djelassi" a écrit dans le message de
news:




Je sens que c'est presque ce qu'il me faut. Le seul truc qui gène
c'est




que
mes cellules ne contiennent pas exactement le mot "total" mais
plutot
"total
xxx" et donc ça ne marche pas :(



bonjour sofien
ceci peut-être à adapter :

Sub test()
Dim c As Range
ActiveSheet.Range("A1:D9").Select
For Each c In Selection
If c.Value = "total" Then Rows.EntireRow.Delete
Next c

End Sub

"Sofien Djelassi" a écrit dans le message de
news:
Bonjour,

je cherche à supprimer de mon tableau EXCEL toutes les lignes
dont
une




cellule contient le mot "Total".

Merci d'avance pour vos réponses
--
Sofien



























Avatar
jps
j'aurais préféré quelquechose de plus intime, du genre "merci les p'tits
gars", pas toi chris?
jps

"Sofien Djelassi" a écrit dans le message de
news:
Merci les gars



;-)


ChrisV


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

merci, chris, pour cette précision : you are LIKE a father for me...
jps

"ChrisV" a écrit dans le message de
news:%
Salut JP,

L'opérateur "=" évalue d'une manière "stricte" le contenu de chaque
comparaison de chaînes...
Ainsi MsgBox "Samedi" = "samedi" renverra Faux
de la même manière que, "Samedi" = "SAMEDI"
etc...
Le joker "*" n'est ici, pas considéré comme remplaçant de n'importe
quelle
chaîne de caractères, mais bien comme caractère faisant parti de la
chaîne
à

comparer...
(l'utilisation du joker ? produirait d'ailleurs le même effet...)
Tu aurais pu cependant utiliser l'opérateur Like qui lui, permet
l'utilisation des jokers (* ; ? ; # ; [Z-A] par ex.) dans la
comparaison




de
chaînes...
If c.Value Like "*total*" Then.....

Voili, voilou... my dear old friend,
;-)


ChrisV


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

merci chris pour avoir pris la relève...
avec mon exemple, j'ai tenté un If c.Value = "*total*" Then.....
j'ai benoîtement pensé que ça allait marcher mais que nenni....can
you





tell
me why, my dear lakota?
jps

"ChrisV" a écrit dans le message de
news:
Bonjour Sofien,

Avec la plage de données nommée ici Zn

Sub zaza()
Dim i As Long
Application.ScreenUpdating = False
For i = [Zn].SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.CountIf(Rows(i), "*total*") Then _
Rows(i).Delete
Next i
End Sub


ChrisV


"Sofien Djelassi" a écrit dans le message
de






news:

Je sens que c'est presque ce qu'il me faut. Le seul truc qui
gène







c'est
que
mes cellules ne contiennent pas exactement le mot "total" mais
plutot
"total
xxx" et donc ça ne marche pas :(



bonjour sofien
ceci peut-être à adapter :

Sub test()
Dim c As Range
ActiveSheet.Range("A1:D9").Select
For Each c In Selection
If c.Value = "total" Then Rows.EntireRow.Delete
Next c

End Sub

"Sofien Djelassi" a écrit dans le
message de








news:
Bonjour,

je cherche à supprimer de mon tableau EXCEL toutes les lignes
dont
une




cellule contient le mot "Total".

Merci d'avance pour vos réponses
--
Sofien





























1 2