Suppression des lignes contenant #VALEUR

Bonjour à tous,

J'ai une macro qui fait plusieurs choses, dont étendre une formule sur les 700 premières lignes en A.
Par la suite, ces 700 premières lignes de la colonne A sont mises au format texte.
Mais il me reste beaucoup de #VALEUR! dans cette première colonne.

J'ai essayé plusieurs macros trouvées ci et là, mais elles semblent toutes avoir un problème à chaque fois.
Peut-être est-ce dû à la présence de caractères spéciaux ?
Je précise encore une fois que "#VALEUR!" est un mot au format texte ici.

Merci pour votre aide !

Bonsoir,

Et si tu essayais SIERREUR dans ta formule pour ne plus afficher #VALEUR! ?

=SIERREUR(TaFormule;"")

https://www.excel-pratique.com/fr/fonctions/sierreur

Cordialement,

Bonsoir le fil,

Sinon avec ce code

Sub SupprimerErreur()
  Dim Cel As Range, dCel As Range
  With ActiveSheet
    Set dCel = .Range("A" & Rows.Count).End(xlUp)
    .Range("$A:$A").AutoFilter Field:=1, Criteria1:="#VALEUR!"
    For Each Cel In .Range("$B2:$B" & dCel.Row)
      If Rows(Cel.Row).Hidden = False Then Exit For
    Next Cel
    .Range(Cel, dCel).EntireRow.Select ' A changer par delete après test
  End With
End Sub

A+

Bonjour Bruno et xorsankukai,

Merci pour votre aide !

Avec le SIERREUR, j'ai un problème de syntaxe je pense, ça ne marche pas.
J'ai écris :

ActiveCell.FormulaR1C1 = _
"=SIERREUR(Dealer[@ADRESS]....................;"")"

Pour ta méthode xorsankukai, ça fonctionne parfaitement !
Je souhaiterais juste lever le filtre à la fin pour afficher le contenu restant (sinon cela reste filtré sur des lignes vides). Comment faire ?

Bonjour,

Avec le SIERREUR, j'ai un problème de syntaxe je pense

En VBA, c'est IFERROR me semble-t-il....mais sans fichier difficile de tester...

Pour ta méthode xorsankukai, ça fonctionne parfaitement !

C'est la méthode de BrunoM45,

Cordialement,

Ah oui, au temps pour moi, je me suis emmêlé les pinceaux ^^

En tous cas, j'ai trouvé ma réponse sur le forum pour supprimer les filtres et j'ai ajouté :

  On Error Resume Next
  ActiveSheet.ShowAllData

Je clos donc le sujet, merci beaucoup !

Re,

Sauf erreur de ma part, tu peux te passer du "On Error Resume Next"....

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Cordialement,

C'est noté, merci !

Par contre j'ai modifié une autre macro qui me supprime certaines lignes en fonction de la valeur 0 contenue dans certains champs (macro exécutée en amont de la macro #VALEUR!) et avec cette version j'ai cette erreur

La macro en amont :

'Suppression des Dealer=0 et Organized=0

Dim Ligne As Long
    ActiveCell.SpecialCells(xlLastCell).Select 'dernière cellule Fichier
    Range("A" & Selection.End(xlDown).Row).Select 'dernière cellule Excel colonne A
    Ligne = Selection.End(xlUp).Row 'dernière ligne remplie en colonne A
For Ligne = Ligne To 1 Step -1
    If Range("N" & Ligne).Value + Range("U" & Ligne).Value = 0 Then Rows(Ligne).Delete Shift:=xlUp
Next

Est-ce que le problème pourrait être lié à cette macro récemment modifiée ?
L'ancienne version s'éxécute normalement.