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
Ellimac
Bonjour,
Sub SuppLigne0() der = Range("a65000").End(xlUp).Row Columns("A:A").Insert Range("A1:a" & der) = "=IF(RC[1]=0,1,""x"")" Columns("A:A").SpecialCells(xlCellTypeFormulas, 1).Select Selection.EntireRow.Delete Columns("A:A").Delete Shift:=xlToLeft Range("A1").Select End Sub
Camille
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes les lignes de mon tableau dans la valeur de la première colonne est 0.
Par avance merci.
Bonjour,
Sub SuppLigne0()
der = Range("a65000").End(xlUp).Row
Columns("A:A").Insert
Range("A1:a" & der) = "=IF(RC[1]=0,1,""x"")"
Columns("A:A").SpecialCells(xlCellTypeFormulas, 1).Select
Selection.EntireRow.Delete
Columns("A:A").Delete Shift:=xlToLeft
Range("A1").Select
End Sub
Camille
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
5c9b991f-5003-42a4-8e48-e8df7db353da@d77g2000hsb.googlegroups.com...
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes
les lignes de mon tableau dans la valeur de la première colonne est 0.
Sub SuppLigne0() der = Range("a65000").End(xlUp).Row Columns("A:A").Insert Range("A1:a" & der) = "=IF(RC[1]=0,1,""x"")" Columns("A:A").SpecialCells(xlCellTypeFormulas, 1).Select Selection.EntireRow.Delete Columns("A:A").Delete Shift:=xlToLeft Range("A1").Select End Sub
Camille
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes les lignes de mon tableau dans la valeur de la première colonne est 0.
Par avance merci.
papou
Bonjour Autre méthode : Sub VireLesZeros() Dim val As Range Do On Error Resume Next Set val = Worksheets("Feuil1").Range("A1:A20") _ .Find(0, LookIn:=xlValues, searchorder:=xlByRows) val.EntireRow.Delete Loop While Not val Is Nothing End Sub
Cordialement Pascal
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes les lignes de mon tableau dans la valeur de la première colonne est 0.
Par avance merci.
Bonjour
Autre méthode :
Sub VireLesZeros()
Dim val As Range
Do
On Error Resume Next
Set val = Worksheets("Feuil1").Range("A1:A20") _
.Find(0, LookIn:=xlValues, searchorder:=xlByRows)
val.EntireRow.Delete
Loop While Not val Is Nothing
End Sub
Cordialement
Pascal
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
5c9b991f-5003-42a4-8e48-e8df7db353da@d77g2000hsb.googlegroups.com...
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes
les lignes de mon tableau dans la valeur de la première colonne est 0.
Bonjour Autre méthode : Sub VireLesZeros() Dim val As Range Do On Error Resume Next Set val = Worksheets("Feuil1").Range("A1:A20") _ .Find(0, LookIn:=xlValues, searchorder:=xlByRows) val.EntireRow.Delete Loop While Not val Is Nothing End Sub
Cordialement Pascal
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes les lignes de mon tableau dans la valeur de la première colonne est 0.
Par avance merci.
Ceno
Merci beaucoup, cela fonctionne comme je voulais, seulement le traitement est un peu long vu le nombre de ligne, je voudrais une autres macro qui après un tri me positionnerais sur la première cellule contenant 0 de la colonne A. Ça serait plus rapide. Savais- vous comment je dois faire ?
Encore merci
Merci beaucoup, cela fonctionne comme je voulais, seulement le
traitement est un peu long vu le nombre de ligne, je voudrais une
autres macro qui après un tri me positionnerais sur la première
cellule contenant 0 de la colonne A. Ça serait plus rapide. Savais-
vous comment je dois faire ?
Merci beaucoup, cela fonctionne comme je voulais, seulement le traitement est un peu long vu le nombre de ligne, je voudrais une autres macro qui après un tri me positionnerais sur la première cellule contenant 0 de la colonne A. Ça serait plus rapide. Savais- vous comment je dois faire ?
Encore merci
stéphane
Bonjour,
on peut utiliser la méthode du filtre automatique .
1/ Filtrer sur valeur 0
2/ Selectionner les lignes et supprimer
Stéphane
"Ceno" a écrit dans le message de news:
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes les lignes de mon tableau dans la valeur de la première colonne est 0.
Par avance merci.
Bonjour,
on peut utiliser la méthode du filtre automatique .
1/ Filtrer sur valeur 0
2/ Selectionner les lignes et supprimer
Stéphane
"Ceno" <cedric-box@ifrance.com> a écrit dans le message de news:
5c9b991f-5003-42a4-8e48-e8df7db353da@d77g2000hsb.googlegroups.com...
Bonjour à tous,
Je cherche une macro qui me permettrais d'effacer le contenu de toutes
les lignes de mon tableau dans la valeur de la première colonne est 0.
J'y ai pensé mais je préfèrerais vider le contenu des lignes.
Encore merci.
SamyTerje
J'utilise cela de mon coté dans plusieurs macros :
Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Range("A1").Select FinalRow = ActiveSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row i = 1 Do Until i > FinalRow If ActiveCell.Text = "#N/A" Then ActiveCell.EntireRow.Delete Shift:=xlUp ActiveCell.Offset(-1, 0).Activate End If ActiveCell.Offset(1, 0).Activate i = i + 1 Loop Application.Calculation = xlCalculationAutomatic Application.Calculate Application.ScreenUpdating = True
De couper le calcul automatique de la feuille et la mise à jour de l'écran accélère considérablement la macro
J'utilise cela de mon coté dans plusieurs macros :
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("A1").Select
FinalRow = ActiveSheet.Cells(Application.Rows.Count,
1).End(xlUp).Row
i = 1
Do Until i > FinalRow
If ActiveCell.Text = "#N/A" Then
ActiveCell.EntireRow.Delete Shift:=xlUp
ActiveCell.Offset(-1, 0).Activate
End If
ActiveCell.Offset(1, 0).Activate
i = i + 1
Loop
Application.Calculation = xlCalculationAutomatic
Application.Calculate
Application.ScreenUpdating = True
De couper le calcul automatique de la feuille et la mise à jour de
l'écran accélère considérablement la macro
J'utilise cela de mon coté dans plusieurs macros :
Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Range("A1").Select FinalRow = ActiveSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row i = 1 Do Until i > FinalRow If ActiveCell.Text = "#N/A" Then ActiveCell.EntireRow.Delete Shift:=xlUp ActiveCell.Offset(-1, 0).Activate End If ActiveCell.Offset(1, 0).Activate i = i + 1 Loop Application.Calculation = xlCalculationAutomatic Application.Calculate Application.ScreenUpdating = True
De couper le calcul automatique de la feuille et la mise à jour de l'écran accélère considérablement la macro