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
JB
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du si x ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane
ReBonsoir
Sub SupLignes3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "-" Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" <prodiag...@orange.fr> wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du si x
ouun autre caractere que je souhaite et ben il supprime la ligne.
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du si x ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane
stephprod
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-" par exemple
xxxx-qdqsdsd gdfgfdg-fdsfdsfd
merci d'avance
"JB" a écrit dans le message de news:
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du six ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-"
par exemple
xxxx-qdqsdsd
gdfgfdg-fdsfdsfd
merci d'avance
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
4a840d83-fdec-498b-8a43-0ab942a2b6bc@e60g2000hsh.googlegroups.com...
ReBonsoir
Sub SupLignes3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "-" Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" <prodiag...@orange.fr> wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du
six
ouun autre caractere que je souhaite et ben il supprime la ligne.
mais je me suis mal exprimé il faut que la ligne contienne un "-" par exemple
xxxx-qdqsdsd gdfgfdg-fdsfdsfd
merci d'avance
"JB" a écrit dans le message de news:
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du six ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane
JB
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*-*" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
JB
On 27 fév, 20:36, "stephprod" wrote:
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-" par exemple
xxxx-qdqsdsd gdfgfdg-fdsfdsfd
merci d'avance
"JB" a écrit dans le message de news:
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du six ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub SupLignes3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) Like "*-*" Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
JB
On 27 fév, 20:36, "stephprod" <prodiag...@orange.fr> wrote:
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-"
par exemple
xxxx-qdqsdsd
gdfgfdg-fdsfdsfd
merci d'avance
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4a840d83-fdec-498b-8a43-0ab942a2b...@e60g2000hsh.googlegroups.com...
ReBonsoir
Sub SupLignes3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "-" Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" <prodiag...@orange.fr> wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du
six
ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane- Masquer le texte des messages précédents -
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*-*" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
JB
On 27 fév, 20:36, "stephprod" wrote:
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-" par exemple
xxxx-qdqsdsd gdfgfdg-fdsfdsfd
merci d'avance
"JB" a écrit dans le message de news:
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du six ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
stephprod
merci bcps JB ca marche superbe....
"JB" a écrit dans le message de news:
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*-*" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
JB
On 27 fév, 20:36, "stephprod" wrote:
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-" par exemple
xxxx-qdqsdsd gdfgfdg-fdsfdsfd
merci d'avance
"JB" a écrit dans le message de news:
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du six ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
merci bcps JB ca marche superbe....
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
81ae7e8d-aade-4d0a-85fb-680301c60afc@n77g2000hse.googlegroups.com...
Sub SupLignes3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) Like "*-*" Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
JB
On 27 fév, 20:36, "stephprod" <prodiag...@orange.fr> wrote:
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-"
par exemple
xxxx-qdqsdsd
gdfgfdg-fdsfdsfd
merci d'avance
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4a840d83-fdec-498b-8a43-0ab942a2b...@e60g2000hsh.googlegroups.com...
ReBonsoir
Sub SupLignes3()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [A65000].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "-" Then Rows(i).Delete
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" <prodiag...@orange.fr> wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du
six
ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane- Masquer le texte des messages précédents -
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) Like "*-*" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
JB
On 27 fév, 20:36, "stephprod" wrote:
Merci JB
mais je me suis mal exprimé il faut que la ligne contienne un "-" par exemple
xxxx-qdqsdsd gdfgfdg-fdsfdsfd
merci d'avance
"JB" a écrit dans le message de news:
ReBonsoir
Sub SupLignes3() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = [A65000].End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "-" Then Rows(i).Delete Next i Application.Calculation = xlCalculationAutomatic End Sub
http://cjoint.com/?cBuhG4C8lN
JB
On 27 fév, 19:59, "stephprod" wrote:
Bonsoir,
j'aimerais une macro qui me permette dans une colonne A1 par exemple
que le code balaye chaque ligne et si il trouve le symbole "-" tiret du six ouun autre caractere que je souhaite et ben il supprime la ligne.
est ce possible?
Merci d'avance.
stefane- Masquer le texte des messages précédents -