Bonjour, j'ai besoin de votre aide
J'ai crée une macro qui permet de chercher dans une feuille BD_produits (qui contient les produits, des chiffres, des calculs selon des formules) et me copie les lignes ou la ligne correspondante à ma recherche dans une feuille de destination mais ça ne réalise pas ce qui est attendu.

voici mon code
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
32
33
34
35
36
37
38
Sub recherche()
 
 
Dim i As Integer, j As Integer, col As Integer
Dim pr As String
Dim w As Worksheet
Dim s As Worksheet
Dim max_ligne As Integer
Dim nb_max_ligne As Integer
Dim w_tab
Dim w_plage As Range
Set w = Worksheets("BD_Produits")
Set s = Worksheets("Destination")
 
col = Application.CountA(w.Rows(2))       'Compter le nombre des colonnes
nb_max_ligne = Application.CountA(w.Columns(9))    'Compter le nombre des lignes
max_ligne = Application.CountA(s.Columns(9)) + 1  'Trouver la cellule active
 
pr = InputBox(" Veuillez saisir le produit à copier ")
 
For i = 3 To nb_max_ligne
 
If pr = w.Cells(i, 1).Value Then
 
w.Rows(i).EntireRow.Copy
 
s.Rows(max_ligne).PasteSpecial xlPasteAll
End If
 
Next i
Exit Sub
If pr <> w.Cells(i, 1).Value Then
 MsgBox ("veuillez vérifier votre saisie")
Exit Sub
End If
Set w = Nothing
Set s = Nothing
End Sub
Merci d'avance