Macro excel funzione cerca

[peterb]

Cosa ha questo script che solo quando non trova un valore mi da errore:
'1- con un imptubox
Sub CercaInput()
Dim plage As Range, valeur
Set plage = Range("A1:A10")
valeur = InputBox("Valore da cercare :")
If valeur = "" Then Exit Sub
If InStr(1, valeur, _
Application.International(xlDateSeparator)) > 0 Then
valeur = CDate(valeur)
End If
plage.Find(valeur).Select
End Sub 'fs
'2- con una cella
Sub CercaCella()
Dim plage As Range
Set plage = Range("A1:A10")
plage.Find([D1]).Select
End Sub

grazie e saluti

[NonCeLaFaccio+]

Prova così

Sub CercaInput()
Dim plage As Range, valeur
Set plage = Range("A1:A10")
valeur = InputBox("Valore da cercare :")
If valeur = "" Then Exit Sub
If InStr(1, valeur, _
Application.International(xlDateSeparator)) > 0 Then
valeur = CDate(valeur)
End If
If Not plage.Find(valeur) Is Nothing Then
plage.Find(valeur).Select
End If
End Sub

[peterb]

non fa nulla e non da errore.

ciao

[NonCeLaFaccio+]

Credevo che fosse ciò che volevi: che non desse errore.
Del resto cosa vuoi che faccia? Che dia un messaggio? Ecco:

Sub CercaInput()
Dim plage As Range, valeur
Set plage = Range("A1:A10")
valeur = InputBox("Valore da cercare :")
If valeur = "" Then Exit Sub
If InStr(1, valeur, _
Application.International(xlDateSeparator)) > 0 Then
valeur = CDate(valeur)
End If
If Not plage.Find(valeur) Is Nothing Then
plage.Find(valeur).Select
Else
MsgBox ("Testo non trovato")
End If
End Sub

Ciao

[peterb]

Questo e' perfetto, grazie 1000.
Sullo script precedente io avevo commesso un errore, dovevo aumentare il raggio di ricerca.


ciao