Supprimer les cellules ne contenant pas le terme....
8 réponses
Vinc
Bonjour,
Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple).
Je pensais que peut être une macro pourrait le faire?
Merci de votre aide.
Vinc.
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
isabelle
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne entière veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour,
Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple).
Je pensais que peut être une macro pourrait le faire?
Merci de votre aide.
Vinc.
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne entière veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
Denis
Bonjour, on peut supprimer une cellule unique me semble-t-il : Range("B9").Delete Shift:=xlUp ' remonte celles dessous Range("C10").Delete Shift:=xlToLeft ' déplace celle à droite
Denis
-----Message d'origine----- bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne
entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc. .
Bonjour,
on peut supprimer une cellule unique me semble-t-il :
Range("B9").Delete Shift:=xlUp
' remonte celles dessous
Range("C10").Delete Shift:=xlToLeft
' déplace celle à droite
Denis
-----Message d'origine-----
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais
que l'on peut supprimer une ligne entière ou une colonne
entière
veut tu effacer le contenu de cellule ne contenant pas un
terme donné ?
isabelle
Bonjour,
Est il possible dans excel de supprimer automatiquement
des cellules ne
contenant pas un terme donné (un mot par exemple).
Je pensais que peut être une macro pourrait le faire?
Merci de votre aide.
Vinc.
.
Bonjour, on peut supprimer une cellule unique me semble-t-il : Range("B9").Delete Shift:=xlUp ' remonte celles dessous Range("C10").Delete Shift:=xlToLeft ' déplace celle à droite
Denis
-----Message d'origine----- bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne
entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc. .
Vinc
Merci Isabelle et Denis, En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné Denis correspond encore meiux à ce que je voudrai faire. Par contre, je ne connais rien en macro... :-( Avec l'aide, j'ai réussi à faire le code suivant, mais je n'arrive pas à supprimer les cellules... Voici le code :
Sub Macro1() With Worksheets(1).Range("a1:ca500") Set c = .Find("toto", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = " " Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Merci Vinc.
"isabelle" a écrit dans le message de news:
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
Merci Isabelle et Denis,
En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné
Denis correspond encore meiux à ce que je voudrai faire.
Par contre, je ne connais rien en macro... :-(
Avec l'aide, j'ai réussi à faire le code suivant, mais je n'arrive pas à
supprimer les cellules...
Voici le code :
Sub Macro1()
With Worksheets(1).Range("a1:ca500")
Set c = .Find("toto", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = " "
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
Merci
Vinc.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
41803E4D.952B2095@videotron.ca...
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour,
Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple).
Je pensais que peut être une macro pourrait le faire?
Merci de votre aide.
Vinc.
Merci Isabelle et Denis, En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné Denis correspond encore meiux à ce que je voudrai faire. Par contre, je ne connais rien en macro... :-( Avec l'aide, j'ai réussi à faire le code suivant, mais je n'arrive pas à supprimer les cellules... Voici le code :
Sub Macro1() With Worksheets(1).Range("a1:ca500") Set c = .Find("toto", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = " " Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Merci Vinc.
"isabelle" a écrit dans le message de news:
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
Denis
Bonjour,
je le ferai à l'ancienne comme ceci Sub Macro1() For i = 500To 1 Step -1 For j = 48 To 1 Step -1 If Cells(i, j)= "toto" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub (en supposant que ta feuille est sélectionnée quand tu exécute la macro).
Denis
-----Message d'origine----- Merci Isabelle et Denis, En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné
Denis correspond encore meiux à ce que je voudrai faire. Par contre, je ne connais rien en macro... :-( Avec l'aide, j'ai réussi à faire le code suivant, mais je n'arrive pas à
supprimer les cellules... Voici le code :
Sub Macro1() With Worksheets(1).Range("a1:ca500") Set c = .Find("toto", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = " " Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Merci Vinc.
"isabelle" a écrit dans le message de news:
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
.
Bonjour,
je le ferai à l'ancienne comme ceci
Sub Macro1()
For i = 500To 1 Step -1
For j = 48 To 1 Step -1
If Cells(i, j)= "toto" Then Cells(i, j).Delete
Shift:=xlUp
Next j
Next i
End Sub
(en supposant que ta feuille est sélectionnée quand tu
exécute la macro).
Denis
-----Message d'origine-----
Merci Isabelle et Denis,
En fait, si je pouvais déjà supprimer le contenu de la
cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code
que nous a donné
Denis correspond encore meiux à ce que je voudrai faire.
Par contre, je ne connais rien en macro... :-(
Avec l'aide, j'ai réussi à faire le code suivant, mais je
n'arrive pas à
supprimer les cellules...
Voici le code :
Sub Macro1()
With Worksheets(1).Range("a1:ca500")
Set c = .Find("toto", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = " "
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
Merci
Vinc.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le
message de news:
41803E4D.952B2095@videotron.ca...
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais
que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas
un terme donné ?
isabelle
Bonjour,
Est il possible dans excel de supprimer
automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple).
Je pensais que peut être une macro pourrait le faire?
Merci de votre aide.
Vinc.
je le ferai à l'ancienne comme ceci Sub Macro1() For i = 500To 1 Step -1 For j = 48 To 1 Step -1 If Cells(i, j)= "toto" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub (en supposant que ta feuille est sélectionnée quand tu exécute la macro).
Denis
-----Message d'origine----- Merci Isabelle et Denis, En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné
Denis correspond encore meiux à ce que je voudrai faire. Par contre, je ne connais rien en macro... :-( Avec l'aide, j'ai réussi à faire le code suivant, mais je n'arrive pas à
supprimer les cellules... Voici le code :
Sub Macro1() With Worksheets(1).Range("a1:ca500") Set c = .Find("toto", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = " " Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Merci Vinc.
"isabelle" a écrit dans le message de news:
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
.
Denis
bonjour, si c'est contenant toto
Sub test() For i = 24 To 1 Step -1 For j = 6 To 1 Step -1 If Cells(i, j).Value Like "*toto*" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub
Denis
-----Message d'origine----- Bonjour,
je le ferai à l'ancienne comme ceci Sub Macro1() For i = 500To 1 Step -1 For j = 48 To 1 Step -1 If Cells(i, j)= "toto" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub (en supposant que ta feuille est sélectionnée quand tu exécute la macro).
Denis
-----Message d'origine----- Merci Isabelle et Denis, En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné
Denis correspond encore meiux à ce que je voudrai faire. Par contre, je ne connais rien en macro... :-( Avec l'aide, j'ai réussi à faire le code suivant, mais je
n'arrive pas à
supprimer les cellules... Voici le code :
Sub Macro1() With Worksheets(1).Range("a1:ca500") Set c = .Find("toto", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = " " Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Merci Vinc.
"isabelle" a écrit dans le message de news:
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais
que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
.
.
bonjour,
si c'est contenant toto
Sub test()
For i = 24 To 1 Step -1
For j = 6 To 1 Step -1
If Cells(i, j).Value Like "*toto*" Then Cells(i,
j).Delete Shift:=xlUp
Next j
Next i
End Sub
Denis
-----Message d'origine-----
Bonjour,
je le ferai à l'ancienne comme ceci
Sub Macro1()
For i = 500To 1 Step -1
For j = 48 To 1 Step -1
If Cells(i, j)= "toto" Then Cells(i, j).Delete
Shift:=xlUp
Next j
Next i
End Sub
(en supposant que ta feuille est sélectionnée quand tu
exécute la macro).
Denis
-----Message d'origine-----
Merci Isabelle et Denis,
En fait, si je pouvais déjà supprimer le contenu de la
cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code
que nous a donné
Denis correspond encore meiux à ce que je voudrai faire.
Par contre, je ne connais rien en macro... :-(
Avec l'aide, j'ai réussi à faire le code suivant, mais
je
n'arrive pas à
supprimer les cellules...
Voici le code :
Sub Macro1()
With Worksheets(1).Range("a1:ca500")
Set c = .Find("toto", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = " "
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
Merci
Vinc.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le
message de news:
41803E4D.952B2095@videotron.ca...
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique
mais
que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas
un terme donné ?
isabelle
Bonjour,
Est il possible dans excel de supprimer
automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple).
Je pensais que peut être une macro pourrait le faire?
Merci de votre aide.
Vinc.
Sub test() For i = 24 To 1 Step -1 For j = 6 To 1 Step -1 If Cells(i, j).Value Like "*toto*" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub
Denis
-----Message d'origine----- Bonjour,
je le ferai à l'ancienne comme ceci Sub Macro1() For i = 500To 1 Step -1 For j = 48 To 1 Step -1 If Cells(i, j)= "toto" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub (en supposant que ta feuille est sélectionnée quand tu exécute la macro).
Denis
-----Message d'origine----- Merci Isabelle et Denis, En fait, si je pouvais déjà supprimer le contenu de la cellule ne contenant
pas le terme, ce serait déjà beaucoup.... Mais le code que nous a donné
Denis correspond encore meiux à ce que je voudrai faire. Par contre, je ne connais rien en macro... :-( Avec l'aide, j'ai réussi à faire le code suivant, mais je
n'arrive pas à
supprimer les cellules... Voici le code :
Sub Macro1() With Worksheets(1).Range("a1:ca500") Set c = .Find("toto", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Value = " " Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Merci Vinc.
"isabelle" a écrit dans le message de news:
bonjour Vinc,
vue qu'on ne peut pas supprimer une cellule unique mais
que l'on peut
supprimer une ligne entière ou une colonne entière
veut tu effacer le contenu de cellule ne contenant pas un terme donné ?
isabelle
Bonjour, Est il possible dans excel de supprimer automatiquement des cellules ne
contenant pas un terme donné (un mot par exemple). Je pensais que peut être une macro pourrait le faire? Merci de votre aide. Vinc.
.
.
Vinc
"Denis" a écrit dans le message de news: 1a5701c4bce3$31c86030$ bonjour, si c'est contenant toto
Sub test() For i = 24 To 1 Step -1 For j = 6 To 1 Step -1 If Cells(i, j).Value Like "*toto*" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub
Bonjour, Merci pour ce code... Voux allez m'en vouloir, mais en fait, j'ai réalisé qu'il serait plus facile de supprimer les cellules ne contenant pas "toto".... Sorry! ;-) J'immagine qu'il faut uniquement changer "Value Like" en autre chose, mais quoi? J'ai essayé des trucs tels "unlike" ou "Value no "*toto*", mais ça marche pas... Vinc.
"Denis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1a5701c4bce3$31c86030$a601280a@phx.gbl...
bonjour,
si c'est contenant toto
Sub test()
For i = 24 To 1 Step -1
For j = 6 To 1 Step -1
If Cells(i, j).Value Like "*toto*" Then Cells(i,
j).Delete Shift:=xlUp
Next j
Next i
End Sub
Bonjour,
Merci pour ce code...
Voux allez m'en vouloir, mais en fait, j'ai réalisé qu'il serait plus facile
de supprimer les cellules ne contenant pas "toto".... Sorry! ;-)
J'immagine qu'il faut uniquement changer "Value Like" en autre chose, mais
quoi? J'ai essayé des trucs tels "unlike" ou "Value no "*toto*", mais ça
marche pas...
Vinc.
"Denis" a écrit dans le message de news: 1a5701c4bce3$31c86030$ bonjour, si c'est contenant toto
Sub test() For i = 24 To 1 Step -1 For j = 6 To 1 Step -1 If Cells(i, j).Value Like "*toto*" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub
Bonjour, Merci pour ce code... Voux allez m'en vouloir, mais en fait, j'ai réalisé qu'il serait plus facile de supprimer les cellules ne contenant pas "toto".... Sorry! ;-) J'immagine qu'il faut uniquement changer "Value Like" en autre chose, mais quoi? J'ai essayé des trucs tels "unlike" ou "Value no "*toto*", mais ça marche pas... Vinc.
isabelle
bonjour Vinc,
If Not Cells(i, j).Value Like "*toto*" Then
isabelle
"Denis" a écrit dans le message de news: 1a5701c4bce3$31c86030$ bonjour, si c'est contenant toto
Sub test() For i = 24 To 1 Step -1 For j = 6 To 1 Step -1 If Cells(i, j).Value Like "*toto*" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub
Bonjour, Merci pour ce code... Voux allez m'en vouloir, mais en fait, j'ai réalisé qu'il serait plus facile de supprimer les cellules ne contenant pas "toto".... Sorry! ;-) J'immagine qu'il faut uniquement changer "Value Like" en autre chose, mais quoi? J'ai essayé des trucs tels "unlike" ou "Value no "*toto*", mais ça marche pas... Vinc.
bonjour Vinc,
If Not Cells(i, j).Value Like "*toto*" Then
isabelle
"Denis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1a5701c4bce3$31c86030$a601280a@phx.gbl...
bonjour,
si c'est contenant toto
Sub test()
For i = 24 To 1 Step -1
For j = 6 To 1 Step -1
If Cells(i, j).Value Like "*toto*" Then Cells(i,
j).Delete Shift:=xlUp
Next j
Next i
End Sub
Bonjour,
Merci pour ce code...
Voux allez m'en vouloir, mais en fait, j'ai réalisé qu'il serait plus facile
de supprimer les cellules ne contenant pas "toto".... Sorry! ;-)
J'immagine qu'il faut uniquement changer "Value Like" en autre chose, mais
quoi? J'ai essayé des trucs tels "unlike" ou "Value no "*toto*", mais ça
marche pas...
Vinc.
"Denis" a écrit dans le message de news: 1a5701c4bce3$31c86030$ bonjour, si c'est contenant toto
Sub test() For i = 24 To 1 Step -1 For j = 6 To 1 Step -1 If Cells(i, j).Value Like "*toto*" Then Cells(i, j).Delete Shift:=xlUp Next j Next i End Sub
Bonjour, Merci pour ce code... Voux allez m'en vouloir, mais en fait, j'ai réalisé qu'il serait plus facile de supprimer les cellules ne contenant pas "toto".... Sorry! ;-) J'immagine qu'il faut uniquement changer "Value Like" en autre chose, mais quoi? J'ai essayé des trucs tels "unlike" ou "Value no "*toto*", mais ça marche pas... Vinc.
Starwing
Ou une version perverse...;-)
If Cells(i, j).Value Like "*toto*" Then goto fin Cells(i,j).Delete Shift:=xlUp fin: Next j
Hi!hi!hi!
Starwing "isabelle" a écrit dans le message de news:
bonjour Vinc,
If Not Cells(i, j).Value Like "*toto*" Then
isabelle
Ou une version perverse...;-)
If Cells(i, j).Value Like "*toto*" Then goto fin
Cells(i,j).Delete Shift:=xlUp
fin:
Next j
Hi!hi!hi!
Starwing
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41811F86.68739D56@videotron.ca...
