La méthode ci-dessous ne fait pas appel à VBA car pour ta demande ce n'est pas absolument necessaire.
je vais supposer que ce que tu demandes c'est la suppression de lignes pour lesquelles dans une colonne donnée (mettons ici la colonne A) il existe des cellules contenant le mot Total.Je suppose bien sur que ton tableau fait cependant plusieurs colonnes .Je suppose aussi que ta feuille ne contient que ton tableau car sinon des infos sur d'autres cellules risqueraient d'être effacées. Si il faut que la recherche ait lieu sur plusieurs colonnes à la fois, utiliser un filtre élaboré avec le même principe d'élimination que ce qui va suivre sera sans doute la solution.
En 1er lieu, tu prends la précaution de copier la ligne des entetes de ton tableau sur une autre feuille. Ensuite, on utilise un filtre automatique sur le tableau considéré. Dans le filtre de la colonne A, tu chosis "Personnalisé" et tu choisis dans la boite de dialogue l'option "contient" et tu tapes dans la boite de critères le texte *Total*. Une fois obtenus les enregistrements en question, tu fais Edition/Atteindre/Cellules/Cellules visibles seulement. Puis tu fais Edition/Supprimer la ligne. Ton tableau se verra supprimé de toutes les lignes filtrées y compris l'entete qu'il te faudra réinsérer en début de ton tableau puisque tu avais pris la précaution préalable de copier cet entete sur une autre feuille.
A+
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
bonjour,
La méthode ci-dessous ne fait pas appel à VBA car pour ta demande ce n'est
pas absolument necessaire.
je vais supposer que ce que tu demandes c'est la suppression de lignes pour
lesquelles dans une colonne donnée (mettons ici la colonne A) il existe des
cellules contenant le mot Total.Je suppose bien sur que ton tableau fait
cependant plusieurs colonnes .Je suppose aussi que ta feuille ne contient que
ton tableau car sinon des infos sur d'autres cellules risqueraient d'être
effacées.
Si il faut que la recherche ait lieu sur plusieurs colonnes à la fois,
utiliser un filtre élaboré avec le même principe d'élimination que ce qui va
suivre sera sans doute la solution.
En 1er lieu, tu prends la précaution de copier la ligne des entetes de ton
tableau sur une autre feuille.
Ensuite, on utilise un filtre automatique sur le tableau considéré. Dans le
filtre de la colonne A, tu chosis "Personnalisé" et tu choisis dans la boite
de dialogue l'option "contient" et tu tapes dans la boite de critères le
texte *Total*. Une fois obtenus les enregistrements en question, tu fais
Edition/Atteindre/Cellules/Cellules visibles seulement.
Puis tu fais Edition/Supprimer la ligne.
Ton tableau se verra supprimé de toutes les lignes filtrées y compris
l'entete qu'il te faudra réinsérer en début de ton tableau puisque tu avais
pris la précaution préalable de copier cet entete sur une autre feuille.
A+
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont une
cellule contient le mot "Total".
La méthode ci-dessous ne fait pas appel à VBA car pour ta demande ce n'est pas absolument necessaire.
je vais supposer que ce que tu demandes c'est la suppression de lignes pour lesquelles dans une colonne donnée (mettons ici la colonne A) il existe des cellules contenant le mot Total.Je suppose bien sur que ton tableau fait cependant plusieurs colonnes .Je suppose aussi que ta feuille ne contient que ton tableau car sinon des infos sur d'autres cellules risqueraient d'être effacées. Si il faut que la recherche ait lieu sur plusieurs colonnes à la fois, utiliser un filtre élaboré avec le même principe d'élimination que ce qui va suivre sera sans doute la solution.
En 1er lieu, tu prends la précaution de copier la ligne des entetes de ton tableau sur une autre feuille. Ensuite, on utilise un filtre automatique sur le tableau considéré. Dans le filtre de la colonne A, tu chosis "Personnalisé" et tu choisis dans la boite de dialogue l'option "contient" et tu tapes dans la boite de critères le texte *Total*. Une fois obtenus les enregistrements en question, tu fais Edition/Atteindre/Cellules/Cellules visibles seulement. Puis tu fais Edition/Supprimer la ligne. Ton tableau se verra supprimé de toutes les lignes filtrées y compris l'entete qu'il te faudra réinsérer en début de ton tableau puisque tu avais pris la précaution préalable de copier cet entete sur une autre feuille.
A+
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
jps
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
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" <sofiendb@hotmail.com> a écrit dans le message de
news:1F58B541-79B9-4B14-907B-3AF504D0AD8B@microsoft.com...
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont une
cellule contient le mot "Total".
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
Sofien Djelassi
Merci ça a l'air pas mal, je vais essayer.
bonjour,
La méthode ci-dessous ne fait pas appel à VBA car pour ta demande ce n'est pas absolument necessaire.
je vais supposer que ce que tu demandes c'est la suppression de lignes pour lesquelles dans une colonne donnée (mettons ici la colonne A) il existe des cellules contenant le mot Total.Je suppose bien sur que ton tableau fait cependant plusieurs colonnes .Je suppose aussi que ta feuille ne contient que ton tableau car sinon des infos sur d'autres cellules risqueraient d'être effacées. Si il faut que la recherche ait lieu sur plusieurs colonnes à la fois, utiliser un filtre élaboré avec le même principe d'élimination que ce qui va suivre sera sans doute la solution.
En 1er lieu, tu prends la précaution de copier la ligne des entetes de ton tableau sur une autre feuille. Ensuite, on utilise un filtre automatique sur le tableau considéré. Dans le filtre de la colonne A, tu chosis "Personnalisé" et tu choisis dans la boite de dialogue l'option "contient" et tu tapes dans la boite de critères le texte *Total*. Une fois obtenus les enregistrements en question, tu fais Edition/Atteindre/Cellules/Cellules visibles seulement. Puis tu fais Edition/Supprimer la ligne. Ton tableau se verra supprimé de toutes les lignes filtrées y compris l'entete qu'il te faudra réinsérer en début de ton tableau puisque tu avais pris la précaution préalable de copier cet entete sur une autre feuille.
A+
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
Merci ça a l'air pas mal, je vais essayer.
bonjour,
La méthode ci-dessous ne fait pas appel à VBA car pour ta demande ce n'est
pas absolument necessaire.
je vais supposer que ce que tu demandes c'est la suppression de lignes pour
lesquelles dans une colonne donnée (mettons ici la colonne A) il existe des
cellules contenant le mot Total.Je suppose bien sur que ton tableau fait
cependant plusieurs colonnes .Je suppose aussi que ta feuille ne contient que
ton tableau car sinon des infos sur d'autres cellules risqueraient d'être
effacées.
Si il faut que la recherche ait lieu sur plusieurs colonnes à la fois,
utiliser un filtre élaboré avec le même principe d'élimination que ce qui va
suivre sera sans doute la solution.
En 1er lieu, tu prends la précaution de copier la ligne des entetes de ton
tableau sur une autre feuille.
Ensuite, on utilise un filtre automatique sur le tableau considéré. Dans le
filtre de la colonne A, tu chosis "Personnalisé" et tu choisis dans la boite
de dialogue l'option "contient" et tu tapes dans la boite de critères le
texte *Total*. Une fois obtenus les enregistrements en question, tu fais
Edition/Atteindre/Cellules/Cellules visibles seulement.
Puis tu fais Edition/Supprimer la ligne.
Ton tableau se verra supprimé de toutes les lignes filtrées y compris
l'entete qu'il te faudra réinsérer en début de ton tableau puisque tu avais
pris la précaution préalable de copier cet entete sur une autre feuille.
A+
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont une
cellule contient le mot "Total".
La méthode ci-dessous ne fait pas appel à VBA car pour ta demande ce n'est pas absolument necessaire.
je vais supposer que ce que tu demandes c'est la suppression de lignes pour lesquelles dans une colonne donnée (mettons ici la colonne A) il existe des cellules contenant le mot Total.Je suppose bien sur que ton tableau fait cependant plusieurs colonnes .Je suppose aussi que ta feuille ne contient que ton tableau car sinon des infos sur d'autres cellules risqueraient d'être effacées. Si il faut que la recherche ait lieu sur plusieurs colonnes à la fois, utiliser un filtre élaboré avec le même principe d'élimination que ce qui va suivre sera sans doute la solution.
En 1er lieu, tu prends la précaution de copier la ligne des entetes de ton tableau sur une autre feuille. Ensuite, on utilise un filtre automatique sur le tableau considéré. Dans le filtre de la colonne A, tu chosis "Personnalisé" et tu choisis dans la boite de dialogue l'option "contient" et tu tapes dans la boite de critères le texte *Total*. Une fois obtenus les enregistrements en question, tu fais Edition/Atteindre/Cellules/Cellules visibles seulement. Puis tu fais Edition/Supprimer la ligne. Ton tableau se verra supprimé de toutes les lignes filtrées y compris l'entete qu'il te faudra réinsérer en début de ton tableau puisque tu avais pris la précaution préalable de copier cet entete sur une autre feuille.
A+
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
Sofien Djelassi
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
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" <sofiendb@hotmail.com> a écrit dans le message de
news:1F58B541-79B9-4B14-907B-3AF504D0AD8B@microsoft.com...
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont une
cellule contient le mot "Total".
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
ChrisV
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
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" <sofiendb@hotmail.com> a écrit dans le message de news:
71AB2D0C-7B62-4121-B0BE-67D79F83B4DA@microsoft.com...
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" <sofiendb@hotmail.com> a écrit dans le message de
news:1F58B541-79B9-4B14-907B-3AF504D0AD8B@microsoft.com...
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont une
cellule contient le mot "Total".
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
jps
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
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" <chrisve@wanadoo.fr> a écrit dans le message de
news:OXUAWPpNFHA.2964@TK2MSFTNGP10.phx.gbl...
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" <sofiendb@hotmail.com> a écrit dans le message de news:
71AB2D0C-7B62-4121-B0BE-67D79F83B4DA@microsoft.com...
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" <sofiendb@hotmail.com> a écrit dans le message de
news:1F58B541-79B9-4B14-907B-3AF504D0AD8B@microsoft.com...
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont
une
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
ChrisV
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
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" <pensez@liege.be> a écrit dans le message de news:
ufeGFkpNFHA.3788@tk2msftngp13.phx.gbl...
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" <chrisve@wanadoo.fr> a écrit dans le message de
news:OXUAWPpNFHA.2964@TK2MSFTNGP10.phx.gbl...
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" <sofiendb@hotmail.com> a écrit dans le message de news:
71AB2D0C-7B62-4121-B0BE-67D79F83B4DA@microsoft.com...
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" <sofiendb@hotmail.com> a écrit dans le message de
news:1F58B541-79B9-4B14-907B-3AF504D0AD8B@microsoft.com...
Bonjour,
je cherche à supprimer de mon tableau EXCEL toutes les lignes dont
une
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
Pierre CFI [mvp]
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
et tu es tombé sur le poisson d'avril de jps :o)
car bien sur, il connaissait la réponse
