Rechercher la première cellule sur un filtre avancé

Bonjour,

Mon problème : J'effectue un filtre avancé et je cherche dans mon tableau la première ligne vide que je ne souhaite pas nommé dans la formule, et je veux lui donner une valeur et que cette valeur s'applique sur l'ensemble des lignes de la sélection (Autofill destination).

Range("AA2:AA" & Range("A104576").End(xlUp).Row).SpecialCells(xlVisible).Cells(1, 1) = "ANNUL"

Je ne souhaite pas nommer ma première ligne AA2 !!! comment puis-je faire ?

Ensuite je souhaite appliquer l'autofill destination sur les cellules visibles (Puisqu'il y a un filtre).

Je vous remercie pour votre aide.

Bonjour,

A tester si j'ai compris la demande.

Public Sub DEMO()
Dim rng As Range, Cell As Range
    With ActiveSheet.AutoFilter.Range
        On Error Resume Next
        Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        If Not rng Is Nothing Then
            Application.ScreenUpdating = False
            For Each Cell In rng
                Cell.Value = "ANNUL"
            Next Cell
        End If
    End With
End Sub

Bonjour Jean-Eric,

J'essaye d'associer ton code avec le mien et on peut dire que le melange n'est pas encore cela. Ta macro répond à ma demande à 200%.

Cependant, je n'arrive pas à associer ce bout de code avec le tien :

Pourquoi ? déjà je lis très difficilement ton code (cf mon niveau débutant), d'autre part le code s'arrête sur

With ActiveSheet.AutoFilter.Range

en notant ; Variable objet ou variable de bloc with non définie.

With Sheets(1).Activate
            If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End With
                        Dernligne = Range("A" & Rows.Count).End(xlUp).Row
                        Range("A1:AJ" & Dernligne).AdvancedFilter _
                        Action:=xlFilterInPlace, _
                        CriteriaRange:=Sheets("Macro").Range("A10:A11"), _
                        Unique:=False

Jean-Eric a écrit :

Bonjour,

A tester si j'ai compris la demande.

Public Sub DEMO()
Dim rng As Range, Cell As Range
    With ActiveSheet.AutoFilter.Range
        On Error Resume Next
        Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
        If Not rng Is Nothing Then
            Application.ScreenUpdating = False
            For Each Cell In rng
                Cell.Value = "ANNUL"
            Next Cell
        End If
    End With
End Sub

Je te remercie pour ton aide,

Cordialement,

Laurent.

Re,

Et si tu envoyais un petit fichier pour illustrer ce dont on parle ?

Cdlt.

Jean-Eric a écrit :

Re,

Et si tu envoyais un petit fichier pour illustrer ce dont on parle ?

Cdlt.

bonjour Jean eric,

C'est vrai qu'un fichier est plus facile pour illustrer, Je te remercie pour ton aide,

cordialement,

Laurent.

Bonjour,

A tester.

Cdlt.