Bonjour à tous et à toutes,

Je vous remercie déjà de tous vos conseils précieux en VBA, ils m'ont déjà rendu un Service un nombre incalculable de fois ^^

Cette fois-ci, j'essaie de créer une macro de recherche, puis copier coller dans un nouvel onglet.
Je m'explique, j'aimerais pouvoir rechercher dans l'intégralité de mon classeur toutes les cellules commencant par un texte défini dans une Inputbox (par exemple "20180618_"), puis copier-coller la ligne entière dans un nouvel onglet

J'ai bidouillé un truc comme cela, mais je n'arrive pas à avoir le résultat voulu:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Combobox1_change()
 
Dim recap As Worksheet
 
Dim arTemp() As String 'variable tableau pour la fonction Findall
Dim ValCherchee As String
    ValCherchee = ComboBox1.Value
 
 
Dim Nom_Feuil As String
Nom_Feuil = Worksheets.UsedRange
 
Dim DataColumn  As Integer
    DataColumn = 2                  'Plage de cellules où chercher les données
 
Dim ma_plage As String
    ma_plage = "B1:B1000"
'---------------------------------------------------------------
bFound = FindAll(ValCherchee, Sheets(Nom_Feuil), ma_plage, arTemp())
'---------------------------------------------------------------
 
For bFound = 2 To lastRow
    If bFound= true Then
        bFound.EntireRow.Copy recap.Cells(irecap, 1)
 
        irecap = irecap + 1
    End If
 
Next
 
End Sub

Je suis une Quiche, je sais... Merci par Avance !
Anne-Laure