Bonjour
J’ai réalisé une petite application pour rechercher des caractères dans une colonne. Cela marche, mais dès que je mets ces lignes dans un formulaire. Rien ne va plus :
Soit qu’on me dit ' Bloc if sans end if ', et si j’en mets un on me signale ' erreur d’execution13 '
Quelqu'un pourrait-il me guider pour corriger ces lignes
et me conseiller pour que mon application ne tienne pas compte de la casse lors de la recherche.
Merci
Francis
Sub motàtrouver()
Dim MotCherché As Variant
Dim ValTest As String
Application.ScreenUpdating = False
ValTest = ActiveCell.Value
derligne = Cells(Rows.Count, 'f').End(xlUp).Row
Range(Cells(11, 1), Cells(derligne, 9)).EntireRow.Select
Selection.EntireRow.Hidden = True
n = 6
For l = derligne To 11 Step -1
MotCherché = Application.Find(ValTest, Cells(l, n))
If Not (IsError(MotCherché)) Then _
Cells(l, n).EntireRow.Hidden = False
Next
Range('a1').Select
End Sub
J’ai réalisé une petite application pour rechercher des caractères dans une colonne. Cela marche, mais dès que je mets ces lignes dans un formulaire. Rien ne va plus :
Soit qu’on me dit ' Bloc if sans end if ', et si j’en mets un on me signale ' erreur d’execution13 '
Quelqu'un pourrait-il me guider pour corriger ces lignes
et me conseiller pour que mon application ne tienne pas compte de la casse lors de la recherche.
Merci
Francis
Sub motàtrouver()
Dim MotCherché As Variant
Dim ValTest As String
Application.ScreenUpdating = False
ValTest = ActiveCell.Value
derligne = Cells(Rows.Count, 'f').End(xlUp).Row
Range(Cells(11, 1), Cells(derligne, 9)).EntireRow.Select
Selection.EntireRow.Hidden = True
n = 6
For l = derligne To 11 Step -1
MotCherché = Application.Find(ValTest, Cells(l, n))
If Not (IsError(MotCherché)) Then _
Cells(l, n).EntireRow.Hidden = False
Next
Range('a1').Select
End Sub