Sélectionné une colonne entière mm si filtre actif

Bonjour à tous j'ai besoin de vos lumières je ne sais pas si c'est possible ou pas.

J'ai une base de donnée avec un filtre actif (que je ne peut pas enlever)

et je veut faire une recherche dans toute la colonne R et S pour vérifier la présence d'un numéro qu'il soit dans le filtre ou pas.

Avec la formule ci dessous, la recherche ce fait seulement sur les données filtrés et je voudrais que ça recherche aussi sur les cellules non filtrés.

Merci d'avance pour votre aide

Sub recherche()
Dim Rg As Range, Qui As String, Plage As String
Qui = Range("G7")
Plage = "R:S"
Set Rg = Sheets("Listing").Range(Plage).Find(Qui)
If Not Rg Is Nothing Then MsgBox "ATTENTION : Numéro déjà présent dans la base de donnée"
End Sub

Bonjour,

Un essai ...

Sub recherche()
Dim Rg As Range, Qui As String, Plage As String
Dim Dlig As Long

    Application.ScreenUpdating = False
        Qui = Range("G7")
        Plage = "R2:S" & Cells(Rows.Count, "R").End(xlUp).Row
        For Each Rg In Range(Plage)
            If Rg = Qui Then
                MsgBox "ATTENTION : Numéro déjà présent dans la base de donnée"
                Exit Sub
            End If
        Next Rg
End Sub

ric

Merci ric

Malheureusement le code ne fonctionne pas

Bonjour,

J'en suis désolé. Mais sans un fichier représentatif pour tester ...

ric

Voici le fichier

Merci

1test.xlsm (17.28 Ko)

Bonjour,

Un essai ...

ric

Merci beaucoup ric ça fonctionne à merveille

ric

Rechercher des sujets similaires à "selectionne colonne entiere filtre actif"