1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Sub Main
Dim FeuilleActuel As String
FeuilleActuel = ActiveSheet.Name
MsgBox RechercheVal(Range("G2").Text, "Feuil2"), vbInformation, "RechercheVal"
Sheets(FeuilleActuel).Select
End Sub
Function RechercheVal(ByVal Valeur As String, Feuille As String) As String
Sheets(Feuille).Select
With ActiveSheet.Range("B1:B450") 'ICI il faut indiquer la bonne plage de recherche pour ton cas, ->
'->tu peux bien sur rechercher la dernière Cells remplis pour la colonne
Set c = .Find(Valeur, LookIn:=xlValues)
If Not c Is Nothing Then
RechercheVal = "Valeur trouvé en :" & vbCrLf & "Feuille: " & Feuille & " " & vbCrLf & "Ligne: " & c.Row '& " " & c.Column
Else
RechercheVal = "La valeur n'a pas été trouvé"
End If
End With
End Function |
Partager