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
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:
