Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a
environ 2500 lignes, dont sur les colonnes
A B C
Type Libellés Montant
55 Règlement Fact.xxxx 10,00 ?
51
3C
RE
AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les
conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi
de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba
:
if range("A1"="55",Left("B1",9)="Règlement" then
rows(i).entirerow.delete
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
AV
Sub zzz() Application.ScreenUpdating = False For i = 6500 To 2 Step -1 If Cells(i, "A") = 55 And Left(Cells(i, "B"), 9) = _ "Règlement" Then Rows(i & ":" & i).EntireRow.Delete Next End Sub
AV
Sub zzz()
Application.ScreenUpdating = False
For i = 6500 To 2 Step -1
If Cells(i, "A") = 55 And Left(Cells(i, "B"), 9) = _
"Règlement" Then Rows(i & ":" & i).EntireRow.Delete
Next
End Sub
Sub zzz() Application.ScreenUpdating = False For i = 6500 To 2 Step -1 If Cells(i, "A") = 55 And Left(Cells(i, "B"), 9) = _ "Règlement" Then Rows(i & ":" & i).EntireRow.Delete Next End Sub
AV
anomymousA
bonjour,
un truc dans le genre en considérant que je ne sais pas si la valeur 55 est numérique ou au format texte
lastrow=range("A65536").end(xlup).row
for I=lastrow to 2 step -1 if cstr(cells(I,1).value)="55" and left(cells(I,2).value,9)="Règlement" then cells(I,1).entirerow.delete end if next
Mais je ne suis pas bien en forme ce soir.
A+
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba :
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
bonjour,
un truc dans le genre en considérant que je ne sais pas si la valeur 55 est
numérique ou au format texte
lastrow=range("A65536").end(xlup).row
for I=lastrow to 2 step -1
if cstr(cells(I,1).value)="55" and left(cells(I,2).value,9)="Règlement" then
cells(I,1).entirerow.delete
end if
next
Mais je ne suis pas bien en forme ce soir.
A+
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a
environ 2500 lignes, dont sur les colonnes
A B C
Type Libellés Montant
55 Règlement Fact.xxxx 10,00 ?
51
3C
RE
AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les
conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi
de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba
:
if range("A1"="55",Left("B1",9)="Règlement" then
rows(i).entirerow.delete
un truc dans le genre en considérant que je ne sais pas si la valeur 55 est numérique ou au format texte
lastrow=range("A65536").end(xlup).row
for I=lastrow to 2 step -1 if cstr(cells(I,1).value)="55" and left(cells(I,2).value,9)="Règlement" then cells(I,1).entirerow.delete end if next
Mais je ne suis pas bien en forme ce soir.
A+
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba :
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
isabelle
bonjour seng,
If Range("A1") = "55" And Left("B1", 9) = "Règlement" Then Rows(i).EntireRow.Delete
un très joyeux temps des fêtes à toi également.
isabelle
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba :
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
bonjour seng,
If Range("A1") = "55" And Left("B1", 9) = "Règlement" Then
Rows(i).EntireRow.Delete
un très joyeux temps des fêtes à toi également.
isabelle
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a
environ 2500 lignes, dont sur les colonnes
A B C
Type Libellés Montant
55 Règlement Fact.xxxx 10,00 ?
51
3C
RE
AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les
conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi
de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba
:
if range("A1"="55",Left("B1",9)="Règlement" then
rows(i).entirerow.delete
If Range("A1") = "55" And Left("B1", 9) = "Règlement" Then Rows(i).EntireRow.Delete
un très joyeux temps des fêtes à toi également.
isabelle
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba :
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
isabelle
bonjour seng,
petite correction pour la variable,
For i = 6500 To 2 Step -1 If Range("A" & i) = "55" And Left("B" & i, 9) = "Règlement" Then Rows(i).EntireRow.Delete next
isabelle
bonjour seng,
If Range("A1") = "55" And Left("B1", 9) = "Règlement" Then Rows(i).EntireRow.Delete
un très joyeux temps des fêtes à toi également.
isabelle
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba :
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
bonjour seng,
petite correction pour la variable,
For i = 6500 To 2 Step -1
If Range("A" & i) = "55" And Left("B" & i, 9) = "Règlement" Then
Rows(i).EntireRow.Delete
next
isabelle
bonjour seng,
If Range("A1") = "55" And Left("B1", 9) = "Règlement" Then
Rows(i).EntireRow.Delete
un très joyeux temps des fêtes à toi également.
isabelle
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a
environ 2500 lignes, dont sur les colonnes
A B C
Type Libellés Montant
55 Règlement Fact.xxxx 10,00 ?
51
3C
RE
AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les
conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi
de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba
:
if range("A1"="55",Left("B1",9)="Règlement" then
rows(i).entirerow.delete
For i = 6500 To 2 Step -1 If Range("A" & i) = "55" And Left("B" & i, 9) = "Règlement" Then Rows(i).EntireRow.Delete next
isabelle
bonjour seng,
If Range("A1") = "55" And Left("B1", 9) = "Règlement" Then Rows(i).EntireRow.Delete
un très joyeux temps des fêtes à toi également.
isabelle
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba :
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
Hua Seng
Bonsoir,
Vraiement de la rapidité, Merci à vous tous, AV, Isabelle & anomymousA. J'applique demain, à mon fichier.
Encore 1 fois, bonne fête à vous tous. @+
seng
"Hua Seng" a écrit dans le message de news:41cafc0d$0$19726$
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a environ 2500 lignes, dont sur les colonnes
A B C Type Libellés Montant 55 Règlement Fact.xxxx 10,00 ? 51 3C RE AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et ainsi
de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de vba
:
if range("A1"="55",Left("B1",9)="Règlement" then rows(i).entirerow.delete
mais ça ne marche pas. Qq'un a une idée.
Merci d'avance. Bonne fête à tous et à toutes.
seng
Bonsoir,
Vraiement de la rapidité, Merci à vous tous, AV, Isabelle & anomymousA.
J'applique demain, à mon fichier.
Encore 1 fois, bonne fête à vous tous.
@+
seng
"Hua Seng" <senghua@club-internet.fr> a écrit dans le message de
news:41cafc0d$0$19726$7a628cd7@news.club-internet.fr...
Bonjour à toutes et à tous,
Je viens vers vous pour 1 question. J'ai une feuille de calcul xl qui a
environ 2500 lignes, dont sur les colonnes
A B C
Type Libellés Montant
55 Règlement Fact.xxxx 10,00 ?
51
3C
RE
AB
et ainsi de suite, je souhaiterai savoir comment faire en vba, les
conditions suivantes :
=si("A1")="55";et(gauche("B1";9)="Règlement" => supprimer la ligne et
ainsi
de suite pour les lignes A2 à A6500, par example. J'ai essayé l'aide de
vba
:
if range("A1"="55",Left("B1",9)="Règlement" then
rows(i).entirerow.delete
