Aide sur code VBA appliquer text selon plusieurs filtres

[Soleil11]

Bonjour le forum,

J'ai commencé à écrire le code ci-dessous mais je bloque, pourriez-vous m'aider pour la fin de ce code. Je filtre plusieurs colonnes selon critère ci-dessous et j'aimerais qu'il affiche le mot "yes" dans la colonne "z" depuis la celulle Z2 vers le bas mais seulement pour les celulles visibles. Actuellement lorsque je fais tourné ce code il affiche le mot "Yes" dans toutes les colonnes.

Sub Step23()

Dim rRange As Range

Sheets("Test").Select

 
    
Set rRange = Range("$A$1:$AF$30000")

With rRange

    .AutoFilter Field:=25, Criteria1:="Externals"
    .AutoFilter Field:=24, Criteria1:="Spot&others"
    .AutoFilter Field:=14, Criteria1:=Array( _
        "Reverse document", "="), Operator:=xlFilterValues
        
    .Range("Z:Z").Select
    
    
    .Range(Selection, Selection.End(xlDown)).Select
   .Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "yes"
      
    End With

Rows("1:1").Select
Selection.AutoFilter

End Sub

Merci pour votre aide.

Soleil11😕

 

[Pierrot93]

Re : Aide sur code VBA appliquer text selon plusieurs filtres

Bonjour,

essaie peut être ainsi, non testé...

Dim rRange As Range
Set rRange = Range("$A$1:$AF$30000")
With rRange
    .AutoFilter Field:=25, Criteria1:="Externals"
    .AutoFilter Field:=24, Criteria1:="Spot&others"
    .AutoFilter Field:=14, Criteria1:=Array("Reverse document", "="), Operator:=xlFilterValues
End With
Range("A1:AF" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value = "yes"

bon après midi
@+

 

[Soleil11]

Re : Aide sur code VBA appliquer text selon plusieurs filtres

Rebonjour,

Cela fonctionne très bien, je voulais seulement pour la colonne "Z", ci-dessous le code modifié.

Range("Z2:Z" & Range("Z65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value = "yes"

Merci à tout le forum.

Soleil11