cp4
XLDnaute Barbatruc
Bonsoir
,
En voulant aider, je suis confronté à un problème que je n'arrive pas à résoudre.
D'ailleurs, je me demande si la fonction find n'est pas limitée.
L'objectif est de trouver une date se trouvant dans une textbox sur la bonne feuille (sheet.name= année de la date).
Et ce, en utilisant la fonction find. Car je voudrais bien comprendre son utilisation.
ça sera plus clair avec le fichier. Ci-dessous code qui plante (pour ceux qui n'ouvrent jamais les fichiers joints)
En vous remerciant par avance.
Bonne soirée.
,En voulant aider, je suis confronté à un problème que je n'arrive pas à résoudre.
D'ailleurs, je me demande si la fonction find n'est pas limitée.
L'objectif est de trouver une date se trouvant dans une textbox sur la bonne feuille (sheet.name= année de la date).
Et ce, en utilisant la fonction find. Car je voudrais bien comprendre son utilisation.
ça sera plus clair avec le fichier. Ci-dessous code qui plante (pour ceux qui n'ouvrent jamais les fichiers joints)
VB:
Sub Recherche_données()
Dim LaFeuille As String, Ladate As Range, Ligne As Long, dl As Integer, plage As Range
LaFeuille = Right(TextBox1, 4)
If FeuilleExiste(LaFeuille) = True Then
With Sheets(LaFeuille)
dl = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A1:A" & dl)
Set Ladate = Rng.Cells.Find(What:=CDate(TextBox1.Text), LookIn:=xlFormulas, LookAt:=xlWhole) 'bug objet requis
If Ladate Is Nothing Then
Me.Label1.Caption = "la date " & TextBox1 & " non trouvée sur la feuille " & LaFeuille
Else
Me.Label1.Caption = TextBox1 & " se trouve sur la feuille " & LaFeuille & " en " & Ladate.Address
End If
End With
Else
Me.Label1.Caption = " la feuille " & LaFeuille & " n'existe pas!"
Exit Sub
End If
'*********************************************
Set Ladate = Nothing
Set plage = Nothing
End SubEn vous remerciant par avance.
Bonne soirée.
