VBA - Erreur dans l'écriture

Bonjour,

A = Worksheets("BIB.OUV").Range("A24:A28").Worksheets("LIST.RESS 2").Find(Cells(i, 1), lookat:=xlWhole).Row + 1

Ce code est sensé renvoyer le numéro de ligne du mot placé dans la cellule (i;1) de la feuille LIST.RESS 2 sur la plage A24 : A28 dans la feuille BIB.OUV.

Cette ligne de code ne marche pas, que dois-je modifier ?

Cordialement,

Antho-

Bonjour

Alors pour commencer, décompose ton code pour que ce soit plus simple de trouver le bug quand il y en a un

Si j'ai bien compris voici le code

Sub Test()
  Dim i As Long, sCrit As String, LigFind As Long
  ' Numéro de ligne à identifier
  i = 2 ' !?
  ' Critère de recherche
  sCrit = Worksheets("LIST.RESS 2").Cells(i, 1)
  ' En cas d'erreur dans la recherche
  On Error Resume Next
  ' Chercher le critère dans la plage de la feuille
  LigFind = 0
  LigFind = Worksheets("BIB.OUV").Range("A24:A28").Find(What:=sCrit, LookAt:=xlWhole).Row
  ' Gestion normale des erreurs
  On Error GoTo 0
  ' Petit message
  If LigFind = 0 Then
    MsgBox "Aucune valeur trouvée !", vbCritical, "OUPS..."
  Else
    MsgBox "Valeur trouvée, ligne : " & LigFind & " de la feuille BIB.OUV", vbInformation, "YES..."
  End If
End Sub

Avec le fichier joint, c'est mieux