Problème avec la fonction find

Bonjour, je cherche avec la fonction find, à reporter la colonne de chaque titre en fonction de leur nom. Mais vba indique une erreur d'exécution : variable objet ou variable de bloc with non définie.

J'ai écrit cela dans une boucle :

k = wsV.Cells(1, 2).Resize(1, nbreSeries).Find(what:=wsStats.Cells(j + 1, 1).Value, LookAt:=xlWhole).Column

Merci pour votre aide

Bonjour,

très probablement le titre de colonne n'est pas trouvé. (sans fichier pas de certitude pour ce diagnostic)

Bonjour à tous,

Essaye comme cela

    Set C = WsV.Cells(1, 2).Resize(1, NbreSeries).Find(what:=wsStats.Cells(j + 1, 1).Value, LookAt:=xlWhole)
    If Not C Is Nothing Then
        k = C.Column
        MsgBox "La valeur " & wsStats.Cells(j + 1, 1).Value & " a été trouvée à l'adresse " & C.Address & Chr(10) & _
        "La valeur de k est : " & k
    Else
        MsgBox "La valeur " & wsStats.Cells(j + 1, 1).Value & " n'a pas été trouvée dans la plage " & WsV.Cells(1, 2).Resize(1, NbreSeries).Address
    End If

Bonjour,

merci de vos réponses h2s04 et gyrus. J'ai essayé votre code et ça marche !

Passez une bonne journée