oups

[cmbodson]

a effacer svp

 

[Mytå]

Re : oups

Salut le forum

Oups, parce que tu avais posé la question sur un autre forum.

Le code de ta recherche par feuille

Function Localise(Qui As Range, Feuille As String) As String
Dim Cel As Range

  Application.Volatile
  If Trim(Qui) = "" Then Exit Function
  With Sheets(Feuille)
    Set Cel = .Range("B7,B8:I53,K8:R53").Find(what:=Qui, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Localise = Trim(.Range("A" & Cel.Row))
    End If
  End With
End Function

Mytå

 

[cmbodson]

Re : oups

merci, c'est parfait, si ce n'est que sur mon classeur, il y doit y avoir un problème quelque part car cette macro ne se lance pas d'elle-même à l'ouverture du classeur. Je dois cliquer sur la barre de formule et faire ENTER pour qu'elle s'active. Mis à part çà, elle fonctionne parfaitement, mais faudrait trouver la raison de ce refus de démarrer.