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
michdenis
Bonjour Aurelien,
Tu pourrais utiliser quelque chose dans le genre :
Je n'ai pas le temps de tester ....
'---------------------------- Dim Rg As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .Cells.SpecialCells(xlCellTypeConstants, xlErrors) For Each c In Rg c.Formula = "if(iserror(" & c.Formula & "),""""," & c.Formula & ")" Next End With Set Rg = Nothing '----------------------------
Salutations!
"Aurelien" a écrit dans le message de news:0a6a01c48b77$b262e050$ bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant une erreur N/A dans la premiere cellule
merci beaucoup par avance
Bonjour Aurelien,
Tu pourrais utiliser quelque chose dans le genre :
Je n'ai pas le temps de tester ....
'----------------------------
Dim Rg As Range
On Error Resume Next
With Worksheets("Feuil1")
Set Rg = .Cells.SpecialCells(xlCellTypeConstants, xlErrors)
For Each c In Rg
c.Formula = "if(iserror(" & c.Formula & "),""""," & c.Formula & ")"
Next
End With
Set Rg = Nothing
'----------------------------
Salutations!
"Aurelien" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0a6a01c48b77$b262e050$a301280a@phx.gbl...
bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant
une erreur N/A dans la premiere cellule
Tu pourrais utiliser quelque chose dans le genre :
Je n'ai pas le temps de tester ....
'---------------------------- Dim Rg As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .Cells.SpecialCells(xlCellTypeConstants, xlErrors) For Each c In Rg c.Formula = "if(iserror(" & c.Formula & "),""""," & c.Formula & ")" Next End With Set Rg = Nothing '----------------------------
Salutations!
"Aurelien" a écrit dans le message de news:0a6a01c48b77$b262e050$ bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant une erreur N/A dans la premiere cellule
merci beaucoup par avance
Daniel.M
J'ai compris qu'il faut effacer toutes les lignes qui ont une erreur en colonne A
Sub EffaceDansColA() Dim D As Range
On Error Resume Next Set D = Range("A:A").SpecialCells(xlCellTypeConstants, 16) If Not D Is Nothing Then D.EntireRow.Delete
Set D = Range("A:A").SpecialCells(xlCellTypeFormulas, 16) If Not D Is Nothing Then D.EntireRow.Delete On Error GoTo 0
Set D = Nothing End Sub
Salutations,
Daniel M.
"Aurelien" wrote in message news:0a6a01c48b77$b262e050$
bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant une erreur N/A dans la premiere cellule
merci beaucoup par avance
J'ai compris qu'il faut effacer toutes les lignes qui ont une erreur en colonne
A
Sub EffaceDansColA()
Dim D As Range
On Error Resume Next
Set D = Range("A:A").SpecialCells(xlCellTypeConstants, 16)
If Not D Is Nothing Then D.EntireRow.Delete
Set D = Range("A:A").SpecialCells(xlCellTypeFormulas, 16)
If Not D Is Nothing Then D.EntireRow.Delete
On Error GoTo 0
Set D = Nothing
End Sub
Salutations,
Daniel M.
"Aurelien" <anonymous@discussions.microsoft.com> wrote in message
news:0a6a01c48b77$b262e050$a301280a@phx.gbl...
bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant
une erreur N/A dans la premiere cellule
J'ai compris qu'il faut effacer toutes les lignes qui ont une erreur en colonne A
Sub EffaceDansColA() Dim D As Range
On Error Resume Next Set D = Range("A:A").SpecialCells(xlCellTypeConstants, 16) If Not D Is Nothing Then D.EntireRow.Delete
Set D = Range("A:A").SpecialCells(xlCellTypeFormulas, 16) If Not D Is Nothing Then D.EntireRow.Delete On Error GoTo 0
Set D = Nothing End Sub
Salutations,
Daniel M.
"Aurelien" wrote in message news:0a6a01c48b77$b262e050$
bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant une erreur N/A dans la premiere cellule
merci beaucoup par avance
michdenis
Bonjour Daniel,
Tu as probablement mieux lu la question ! ...
Vaut mieux supprimer les cellules affichant des erreurs que de les masquer !!!
;-))
Salutations!
"Daniel.M" a écrit dans le message de news: J'ai compris qu'il faut effacer toutes les lignes qui ont une erreur en colonne A
Sub EffaceDansColA() Dim D As Range
On Error Resume Next Set D = Range("A:A").SpecialCells(xlCellTypeConstants, 16) If Not D Is Nothing Then D.EntireRow.Delete
Set D = Range("A:A").SpecialCells(xlCellTypeFormulas, 16) If Not D Is Nothing Then D.EntireRow.Delete On Error GoTo 0
Set D = Nothing End Sub
Salutations,
Daniel M.
"Aurelien" wrote in message news:0a6a01c48b77$b262e050$
bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant une erreur N/A dans la premiere cellule
merci beaucoup par avance
Bonjour Daniel,
Tu as probablement mieux lu la question ! ...
Vaut mieux supprimer les cellules affichant des erreurs que de les masquer !!!
;-))
Salutations!
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de news:ONnPQR5iEHA.2448@TK2MSFTNGP12.phx.gbl...
J'ai compris qu'il faut effacer toutes les lignes qui ont une erreur en colonne
A
Sub EffaceDansColA()
Dim D As Range
On Error Resume Next
Set D = Range("A:A").SpecialCells(xlCellTypeConstants, 16)
If Not D Is Nothing Then D.EntireRow.Delete
Set D = Range("A:A").SpecialCells(xlCellTypeFormulas, 16)
If Not D Is Nothing Then D.EntireRow.Delete
On Error GoTo 0
Set D = Nothing
End Sub
Salutations,
Daniel M.
"Aurelien" <anonymous@discussions.microsoft.com> wrote in message
news:0a6a01c48b77$b262e050$a301280a@phx.gbl...
bonjour a tous
j'aimerais supprimer par macro toutes les ligne comportant
une erreur N/A dans la premiere cellule
