Macro de recherche sur excel 2007

[LHAG76]

Bonjour,
J'ai écris une macro pour rechercher un mot dans une base de données. Mes cette macro recherche sur tout le classeur et sur chaque feuille. J'aimerais, si possible que cette macro recherche sur une feuille bien définie et seulement sur les 3 premières colonnes.
Je vous met mon code

Sub Recherche()
Dim F As Worksheet
Dim Cel As Range
Dim Cel_Ref As Range
Set Cel_Ref = Range("R1")
For Each F In Sheets
For Each Cel In F.UsedRange
If (Cel.Address <> Cel_Ref.Address Or F.Name <> ActiveSheet.Name) And _
Cel Like Cel_Ref Then
F.Activate
Cel.Activate
Exit Sub
End If
Next Cel
Next F
MsgBox "N° du bac avec lettre en majuscule, espace et chiffre ! ! ! "
End Sub

Je vous remercie d'avance

Cordialement

Un débutant en VBA bloqué ^^

 

[Hulk]

Re : Macro de recherche sur excel 2007

Slt LHAG,

Sans avoir testé, essaie un truc du genre...

    Dim Cel As Range
    Dim Cel_Ref As Range

    Set Cel_Ref = Range("R1")

    For Each Cel In Range("A2:C50") 'Plage à adapter
        If Cel.Address <> Cel_Ref.Address And Cel Like Cel_Ref Then
            Cel.Activate
            Exit Sub
        End If
    Next Cel
        
    MsgBox "N° du bac avec lettre en majuscule, espace et chiffre ! ! ! "

 

[LHAG76]

Re : Macro de recherche sur excel 2007

Ah nan je suis dsl mais ce code ne fonctionne pas quand je lance la macro ça me sélectionne directement la cellule A2 =/

 

[LHAG76]

Re : Macro de recherche sur excel 2007

Autant pour moi je suis dsl j'ai fait une erreur nan cela fonctionne parfaitement je te remercie beaucoup pour cette réponse ultra rapide.

Bonne soirée