Selectionner une cellule après filtre

Fermé
malleinj Messages postés 9 Date d'inscription mardi 9 décembre 2014 Statut Membre Dernière intervention 17 juillet 2015 - 7 janv. 2015 à 09:57
eriiic Messages postés 24510 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 7 janv. 2015 à 18:35
Bonjour,

dans ma macro, je réalise un filtre pour des valeurs de 1 à 12.
A chaque filtre, je veux sélectionner la première cellule apparente pour modifier la formule et étendre sur le reste.

Mon problème est que je n'arrive pas a sélectionner cette première cellule quand je n'ai pas de valeur après avoir filtré.

Pouvez-vous m'aider ?

Merci

Voici le code

For i = 1 To 12
numcheck = Sheets("DATA").Range("A" & i)

Selection.AutoFilter Field:=6, Criteria1:=numcheck, Operator:=xlOr, Criteria2:="="


Range("E11:E" & Range("E65536").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1).Select

ActiveCell.FormulaR1C1 = _
"=IF(MID('By Item'!RC[-2]," & 27 + i - 13 & ",150)="""",R[-1]C,MID('By Item'!RC[-2]," & 27 + i - 13 & ",150))"
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown

Next i

ActiveSheet.Range("$A$10:$AY$65536").AutoFilter Field:=6

1 réponse

eriiic Messages postés 24510 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 7 166
7 janv. 2015 à 18:35
Bonjour,

10h sans réponse...
Peut-être qu'avec un fichier ça motivera ?
eric
0