XL 2016 Pb macro qui plante toujours lors de la seconde exécution...

jozerebel

XLDnaute Occasionnel
Bonjour à tous,

j'ai une macro qui lors du premier lancement fonctionne nickel mais lors du second lancement, elle plante sans arrêt avec la fonction Recherche qui renvoie toujours 0.
La fonction est dans un module et la macro est associé à un Userform et à une listview.
La macro plante sur la ligne .Range car lignenumfac calculé par la fonction Recherche est égal à 0...

Et j'ai beau chercher , je ne vois pas pourquoi...

Une idée de la commu ?

Worksheets("bdd_fac").Activate
With Worksheets("bdd_fac")
Lignenumfac = Recherche(Me.residents_factuvalidees_listview.SelectedItem, 1)

.Range("AG" & Lignenumfac).value = DateValue(Format(Date, "dd/mm/yyyy"))

End With


Function Recherche(Valeur, Colonne As Integer) As Long
Dim Trouve As Range

Set Trouve = Columns(Colonne).Find(Valeur, , xlValues, xlWhole)
If Not Trouve Is Nothing Then 'Trouvé
Recherche = Trouve.Row
Else
Recherche = 0
End If
End Function
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 184
Membres
112 679
dernier inscrit
Yupanki