Macro:problème effacement sélection cellules filtre automatique

[Boubas1]

Bonjour,

Je viens vers vous car en colonne G, je veux effacer le contenu de toutes les cellules où apparait "#VALEUR!" qui est du texte. Donc pour cela, j'utilise 1 filtre automatique et je selectionne "#VALEUR!" dans mon filtre. Mais le problème, c'est qu'après le lancement de ma macro, tout le contenu de ma colonne G est effacé. Donc pouvez vous me dire ce qui ne va pas dans ma macro ci-dessous:


Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="#VALEUR!"
Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Merci de votre aide.
Nb: J'utilise excel 2000

 

[Pierrot93]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Bonjour boubas

essaye peut être ainsi :

If Application.CountIf(Range("G2:G" & Range("G65536").End(xlUp).Row), "#VALUE!") > 0 Then
    Selection.AutoFilter Field:=7, Criteria1:="#VALEUR!"
    Range("G2:G" & Range("G65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).ClearContents
End If

bonne journée
@+

 

[Boubas1]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Bonsoir,

Je me permets de vous envoyer mon fichier excel car je ne vois vraiment pas ce qui cloche. Pouvez-vous svp y jeter 1 petit coup d'oeil. Merci.

 

[Pierrot93]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Bonjour Boubas,

vois pas le code donné dans ton fichier !!! j'ai modifié un peu..

Sub test()
If Application.CountIf(Range("F2:F" & Range("F65536").End(xlUp).Row), "#VALUE!") > 0 Then
    Range("A1:F1").AutoFilter Field:=6, Criteria1:="#VALUE!"
    Range("F2:F" & Range("F65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).ClearContents
End If
End Sub

bonne journée
@+

 

[Boubas1]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Bonjour,

Désolé, j'ai essayé de mettre votre code mais ça efface toujours l'intégralité de la colonne. Je vous renvoie le fichier . Merci.

 

[Staple1600]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Bonjour



Test ok sur Excel 2000

Sub effacerlignesfiltre()
Dim r As Range
    With ActiveSheet
        With .Range("A1")
            .AutoFilter
            .AutoFilter 6, "#VALUE!"
        End With
    Set r = .Range("_FilterDataBase")
    r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    .AutoFilterMode = False
    End With
End Sub

 

[Boubas1]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Bonsoir,

C'est presque ça, sauf que je veux conserver les lignes où apparaissait un "#VALEUR!", je ne veux pas que cela supprime les lignes , je veux juste que le "#VALEUR!" disparaisse dans les cellules concernées.

 

[Staple1600]

Re : Macro😛roblème effacement sélection cellules filtre automatique

Re


Et comme cela

Sub effacevaleur()
Columns("F:F").SpecialCells(xlCellTypeConstants, 16).ClearContents
End Sub