Erreur 1004 erreur objet range

Bonjour

ci dessous une procédure qui me donnait satisfaction avec un Set Celluletrouvee sur une plage fixe :"F3:AT3"

Le fait de passer en variable sur la colonne de fin ("AU3" ...) me génère l'erreur 1004.

Après moultes essais, j'en arrive à vous demander de l'aide.

Merci d'avance

Frederic

Private Sub RechercheAna()
'Recherche de l'analyse sélectionnée dans la ligne des analyses

Dim celluletrouvee As Range

ColFin = WsBase.Range("A1").End(xlToRight).Column

Set celluletrouvee = WsBase.Range(Cells(3, 6), Cells(3, ColFin)).Find(NomAna, lookat:=xlWhole) ' Erreur 1004 erreur de l'ojet range a échoué
Set celluletrouvee = WsBase.Range("F3:AT3").Find(NomAna, lookat:=xlWhole) '---------- OK

    If celluletrouvee Is Nothing Then
        MsgBox ("Cette analyse n'existe pas dans la base")
        Exit Sub
    Else
        Lg = celluletrouvee.Column

    End If

End Sub

Bonjour,

WsBase est bien défini ?

Je l'ai enlevé pour les tests et pas d'erreur...

Sinon un extrait du classeur serait le bienvenu.

eric

Bonsoir

A mon avis modifies ta macro ( pas testé)

Set celluletrouvee = WsBase.Range(WsBase.Cells(3, 6), WsBase.Cells(3, ColFin)).Find(NomAna, lookat:=xlWhole)

Bonjour à tous

Oui Wsbase est correctement défini.

Sinon j'ai eu un flach ce matin en me levant ... c'est la solution de Banzaï!!!

merci à tous

Frederic