Je recherche comment faire par macro (plus de 60000 lignes), une suppression
de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
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
Jacky
Re....
(plus de 60000 lignes), J'ai comme un doute ....là ;-)))))
'------- Sub jj() derlg = Range("b65536").End(3).Row For i = derlg To 1 Step -1 If Left(UCase(Range("b" & i)), 4) <> "SCVT" Then Range("b" & i).EntireRow.Delete Next End Sub '-------- JJ
"TroXsA" a écrit dans le message de news:ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression
de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
Re....
(plus de 60000 lignes),
J'ai comme un doute ....là ;-)))))
'-------
Sub jj()
derlg = Range("b65536").End(3).Row
For i = derlg To 1 Step -1
If Left(UCase(Range("b" & i)), 4) <> "SCVT" Then Range("b" &
i).EntireRow.Delete
Next
End Sub
'--------
JJ
"TroXsA" <troxsa@non-merci.com> a écrit dans le message de
news:ebace9$6g3$1@s1.news.oleane.net...
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une
suppression
de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
(plus de 60000 lignes), J'ai comme un doute ....là ;-)))))
'------- Sub jj() derlg = Range("b65536").End(3).Row For i = derlg To 1 Step -1 If Left(UCase(Range("b" & i)), 4) <> "SCVT" Then Range("b" & i).EntireRow.Delete Next End Sub '-------- JJ
"TroXsA" a écrit dans le message de news:ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression
de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
jps
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
bonjour TroXsA
inspiré de la macro de jacky que je salue au passage :
Sub jj()
derlg = Range("b65536").End(3).Row
For Each c In Range("b1:b" & derlg)
If c Like "*scvt*" Then c.EntireRow.Delete
Next
End Sub
HTH
jps
"TroXsA" <troxsa@non-merci.com> a écrit dans le message de news:
ebace9$6g3$1@s1.news.oleane.net...
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une
suppression de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
jps
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un kopeck....voir celle de jacky jps
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un
kopeck....voir celle de jacky
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eTBFCpwuGHA.1296@TK2MSFTNGP02.phx.gbl...
bonjour TroXsA
inspiré de la macro de jacky que je salue au passage :
Sub jj()
derlg = Range("b65536").End(3).Row
For Each c In Range("b1:b" & derlg)
If c Like "*scvt*" Then c.EntireRow.Delete
Next
End Sub
HTH
jps
"TroXsA" <troxsa@non-merci.com> a écrit dans le message de news:
ebace9$6g3$1@s1.news.oleane.net...
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une
suppression de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un kopeck....voir celle de jacky jps
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
Jacky
Bonsoir JP
Un grand salut à toi aussi.
Bonne soirée JJ
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
Bonsoir JP
Un grand salut à toi aussi.
Bonne soirée
JJ
"jps" <vaderetrosp@mas> a écrit dans le message de
news:eTBFCpwuGHA.1296@TK2MSFTNGP02.phx.gbl...
bonjour TroXsA
inspiré de la macro de jacky que je salue au passage :
Sub jj()
derlg = Range("b65536").End(3).Row
For Each c In Range("b1:b" & derlg)
If c Like "*scvt*" Then c.EntireRow.Delete
Next
End Sub
HTH
jps
"TroXsA" <troxsa@non-merci.com> a écrit dans le message de news:
ebace9$6g3$1@s1.news.oleane.net...
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une
suppression de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules
"B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
ChrisV
Salut JP,
Ne faut-il pas également s'interroger sur le sens de: ">>> quand il ne trouve pas SCVT au début de chaque mot..."
SCVTsait SCVTon SCVTjamais... ;-)
ChrisV
"jps" a écrit dans le message de news:
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un kopeck....voir celle de jacky jps
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
Salut JP,
Ne faut-il pas également s'interroger sur le sens de:
">>> quand il ne trouve pas SCVT au début de chaque mot..."
SCVTsait SCVTon SCVTjamais...
;-)
ChrisV
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OM2MvrwuGHA.3364@TK2MSFTNGP02.phx.gbl...
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un
kopeck....voir celle de jacky
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eTBFCpwuGHA.1296@TK2MSFTNGP02.phx.gbl...
bonjour TroXsA
inspiré de la macro de jacky que je salue au passage :
Sub jj()
derlg = Range("b65536").End(3).Row
For Each c In Range("b1:b" & derlg)
If c Like "*scvt*" Then c.EntireRow.Delete
Next
End Sub
HTH
jps
"TroXsA" <troxsa@non-merci.com> a écrit dans le message de news:
ebace9$6g3$1@s1.news.oleane.net...
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une
suppression de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules
"B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
Ne faut-il pas également s'interroger sur le sens de: ">>> quand il ne trouve pas SCVT au début de chaque mot..."
SCVTsait SCVTon SCVTjamais... ;-)
ChrisV
"jps" a écrit dans le message de news:
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un kopeck....voir celle de jacky jps
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
FxM
Bonsoir Jean-Paul,
Ca s'appelle un SCud VolanT :o)
@+ FxM
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un kopeck....voir celle de jacky jps
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste
Bonsoir Jean-Paul,
Ca s'appelle un SCud VolanT :o)
@+
FxM
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas
un kopeck....voir celle de jacky
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eTBFCpwuGHA.1296@TK2MSFTNGP02.phx.gbl...
bonjour TroXsA
inspiré de la macro de jacky que je salue au passage :
Sub jj()
derlg = Range("b65536").End(3).Row
For Each c In Range("b1:b" & derlg)
If c Like "*scvt*" Then c.EntireRow.Delete
Next
End Sub
HTH
jps
"TroXsA" <troxsa@non-merci.com> a écrit dans le message de news:
ebace9$6g3$1@s1.news.oleane.net...
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une
suppression de ligne toute en tierrs
quand il ne trouve pas SCVT au début de chaque mot, dans les cellules
"B"
Merci de votre aide ...
Cordialement,
PS.C'est une reformulation de mon précédant poste
hum...sauf que si le SCVT est ailleurs dans le mot, ma proc ne vaut pas un kopeck....voir celle de jacky jps
"jps" a écrit dans le message de news:
bonjour TroXsA inspiré de la macro de jacky que je salue au passage :
Sub jj() derlg = Range("b65536").End(3).Row For Each c In Range("b1:b" & derlg) If c Like "*scvt*" Then c.EntireRow.Delete Next End Sub
HTH jps
"TroXsA" a écrit dans le message de news: ebace9$6g3$
Bonjour a tous
Je recherche comment faire par macro (plus de 60000 lignes), une suppression de ligne toute en tierrs quand il ne trouve pas SCVT au début de chaque mot, dans les cellules "B"
Merci de votre aide ...
Cordialement, PS.C'est une reformulation de mon précédant poste