Discussion :

[jerem1]

Bonjour à tous,
J'ai le filtre suivant :

Code :

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

1
2
     Range("A3:K5003").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("feuille de calcul").Range("A79:A80"), Unique:=False

Je voudrais pouvoir selectionner la cellule de la colonne C (qui varie de la ligne 4 à la ligne5003 puisque la ligne 3 contient les en-têtes de mon tableau) qui ressort suite à ce filtre et inserer = 4 dans cette case

Comment feriez vous ?

Merci beaucoup

[mayekeul]

bonjour,

peut-être quelque chose dans le genre?

Code :

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

1
2
3
4
5
6
7
Sub mettre4()
Dim rng As Range
 
Set rng = Range("C4:C500").SpecialCells(xlCellTypeVisible)
rng = 4
 
End Sub