oups

cmbodson · 22 Octobre 2012

a effacer svp

Mytå · 22 Octobre 2012

Re : oups

Salut le forum

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

Le code de ta recherche par feuille

Code:

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 · 22 Octobre 2012

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.

oups

cmbodson

Guest

Mytå

XLDnaute Occasionnel

cmbodson

Guest

Discussions similaires

oups

cmbodson

Guest

Mytå

XLDnaute Occasionnel

cmbodson

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency