Discussion :

[Vadorblanc]

Bonjour
J'applique un code qui me supprime des lignes selon la condition "#VALEUR!" mais il me reste toujours quelques lignes et ceci après la suppression de toutes les autres. Comment modifier ce code de façon qu'il supprime toutes les lignes.
Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Module05SupprimerLignesSelonCondition()
 
 
Dim i As Long, LigDeb As Long, LigFin As Long
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveCell.CurrentRegion
    LigDeb = .Cells(1).Row
    .Cells(1).EntireRow.Insert
    LigFin = LigDeb + .Rows.Count
End With
With ActiveSheet
    If LigFin - LigDeb > 1 Then
        .Range(.Cells(LigDeb, 1), .Cells(LigDeb, 5)).Value = "#VALUE!"
        ActiveCell.CurrentRegion.AdvancedFilter xlFilterInPlace, , , True
        For i = LigFin To LigDeb + 1 Step -1
            If .Rows(i).Hidden Then .Rows(i).Delete
        Next i
    End If
    .Rows(LigDeb).Delete
    If .FilterMode And Cells(LigDeb, 1).CurrentRegion.Rows.Count > 1 Then .ShowAllData
    Cells(LigDeb, 1).Select
End With
Application.DisplayAlerts = True
End Sub

[Qwazerty]

Salut
Plutot que CurrentRegion, j'utiliserais UsedRange

Cette propriété renvoie un objet Range qui représente la zone en cours. Celle-ci est une plage limitée par toute combinaison de lignes et de colonnes vides

Je ne saurais trop te conseiller de pointer la feuille sur laquelle tu travailles en la placant dans une variable WorkSheet. Depuis cette variable tu pourras ainsi appeler UsedRange

[Edit]
Sinon une autre piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub teste()
'Virer les lignes #Valeur
Dim TheCell As Range
Dim iRow As Long
Dim MonWs As Worksheet
 
'Init
Set MonWs = Worksheets("FEuil1") ' a adapter
 
With MonWs
    For iRow = .Cells(Rows.Count, "E").End(xlUp).Row To 1 Step -1
        Application.DisplayAlerts = False
        If IsError(.Cells(iRow, "E")) Then .Rows(iRow).Delete 'prend en compte tous type d'erreur
        Application.DisplayAlerts = True
    Next
End With
End Sub

Je ne l'ai pas testé par contre
[/Edit]

++
Qwaz

[Vadorblanc]

Bonjour Qwazerty
Quand je fais F5, Cellules, Zone en cours, j'ai bien toute la zone qui m'interesse qui est sélectionnée.
Je vais essayer de mettre ce code dans une autre feuille pour essai
Après essai, il ne me reste toujours qu'une ligne, je pense que ce code laisse toujours une ligne
Il faut que j'essaie de faire autrement
Merci

[Qwazerty]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        .Range(.Cells(LigDeb, 1), .Cells(LigDeb, 5)).Value = "#VALUE!"
        ActiveCell.CurrentRegion.AdvancedFilter xlFilterInPlace, , , True

Je comprend pas ce que tu fais.
Tu appliques le texte "#Value!" dans toutes tes cellules (Juste pour faire un teste?)
Tu fais un filtrage avancé mais il n'y a pas de critères de spécifiés.

Peux tu éclairer ma lanterne? :p
++
Qwaz

[Vadorblanc]

Qwazerty
J'ai récupéré ce code et j'essaie de l'appliquer dans ma feuille qui comprends des lignes qui ont des cellules avec des "#VALEUR!" mais qui sont du texte suite à copier collage spécial valeur, je souhaiterais donc supprimer toutes les lignes qui ont ce texte et qui sont dans la colonne E sur certaines lignes.
J'ai aussi essayé avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Module1SuppressionLignesAvecCritères()
 
 
For n = Range("A65536").End(xlUp).Row To 1 Step -1
      If InStr(Range("A" & n), "#VALEUR!") > 0 Then Rows(n).Delete
    Next n
End Sub

mais je dois faire une erreur que je ne trouve pas
J'espère t'avoir bien expliqué,
Merci

[Vadorblanc]

Rebonjour Qwazerty
Je viens de trouver une solution, toujours quelque chose de non codable par un pro car du bricolage, mais bon ça marche.
C'est le "#" qui me bloquait tout, je le supprime, puis je lance la boucle qui supprimes toutes mes lignes, c'est pas bien beau, mais je fais avec mes connaissance, et tu m'as fait réfléchir autrement.
Merci à toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Module12Replacer()
 
    Cells.Replace What:="#VALEUR!", Replacement:="VALEUR!", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Module06SuppressionLignesAvecCritères()
 
 
For n = Range("E65536").End(xlUp).Row To 1 Step -1
      If InStr(Range("E" & n), "VALEUR!") > 0 Then Rows(n).Delete
    Next n
End Sub

[Qwazerty]

Re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub teste()
'Virer les lignes #Valeur
Dim TheCell As Range
Dim iRow As Long
Dim MonWs As Worksheet
 
'Init
Set MonWs = Worksheets("FEuil1") ' a adapter
 
With MonWs
    For iRow = .Cells(Rows.Count, "E").End(xlUp).Row To 1 Step -1
        Application.DisplayAlerts = False
        If .Cells(iRow, "E") = "#Valeur!" Then .Rows(iRow).Delete 'prend en compte tous type d'erreur
        Application.DisplayAlerts = True
    Next
End With
End Sub

Si ça ne fonctionne pas essai avec la méthode Find appliqué sur la plage de cellule.

++
Qwaz

[Vadorblanc]

Qwazerty
Je croyai avoir trouvé, mais mon code ne fonctionne pas par VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Module12Replacer()
 
    Cells.Replace What:="#VALEUR!", Replacement:="VALEUR!", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Il ne fonctionne qu'avec l'opérateur

Ton code bloque sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If .Cells(iRow, "E") = "#Valeur!" Then .Rows(iRow).Delete 'prend en compte tous type d'erreur

Bon, je continue demain, car boulot

Merci

[Qwazerty]

Salut
Voila, ce code devrait résoudre ton problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub teste()
'Virer les lignes #Valeur
Dim TheCell As Range
Dim iRow As Long
Dim MonWs As Worksheet
 
'Init
Set MonWs = Worksheets("FEuil1") ' a adapter
 
With MonWs
    For iRow = .Cells(Rows.Count, "E").End(xlUp).Row To 1 Step -1
        Application.DisplayAlerts = False
        If .Cells(iRow, "E").Text = "#VALEUR!" Then .Rows(iRow).Delete 'prend en compte tous type d'erreur
        Application.DisplayAlerts = True
    Next
End With
End Sub

++
Qwaz

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
On Error Resume Next
Worksheets("FEuil1").Columns(5).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
On Error GoTo 0

[Vadorblanc]

Bonjour Qwazerty
Génial, tout fonctionne, ta macro superbe
Un grand merci à toi

Bonjour Mercatog
J'ai essayé aussi ton code, mais tu sais bien que je bricole, je n'ai pas réussi ta proposition.
Un grand merci aussi, tu m'as déjà tellement arrangé de code.
Très cordialement à tous les deux

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub test()
On Error Resume Next
Worksheets("Feuil1").Columns(5).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
On Error GoTo 0
end sub

Tu adaptes le nom de la feuille Feuil1 et le N° de colonne (ici 5)
Les erreurs sont issues de formules, sinon remplace xlCellTypeFormulas par xlCellTypeConstants

[Vadorblanc]

Mercatog
J'ai du mettre comme tu me l'as proposé sur ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 xlCellTypeConstants

et tout fonctionne, je dirais que c'est...bluffant, car l'exécution est pratiquement instantanée, il y a une époque ou j'aimais qu'une boucle travaille longtemps et ça me semblait étonnant, maintenant j'essaie de raccourcir le temps d'exécution au maximum. Comment fais tu pour tout connaitre des expressions "xlCellTypeFormulas par xlCellTypeConstants".
Encore un code qui va me servir pour faciliter le travail de mes collègues et tout ça pour le plaisir d'essayer de lires vos codes tous les soirs après mon boulot ou je ne manque pas de voter quand j'arrive à faire marcher vos propositions de codes.
Merci.
Bien cordialement

[mercatog]

Pour moi, je ne me passe jamais du F1
Bon week end à contempler la beauté du Mont Blanc