Macro de recherche dans une matrice

camarchepas à dit:

Bonjour,

Voici une solution :

Appuyer sur la touche analyse aprés avoir sélectionné le type de produit

Cliquez pour agrandir...

Option Explicit

Sub jj()
Dim ColMax As Long
Dim Valeur As Long
Dim Tourne As Long
Dim Trouve As Range
Dim Ligne As Long
Dim LigneVal
Dim DerLig As Long, i As Long
Worksheets("Fiche recette").Range("A7:B600").ClearContents
Worksheets("Fiche recette").Range("A3") = Worksheets("Fiche recette").Range("K3")
ColMax = Worksheets("Données").Range("AZ1").End(xlToLeft).Column
Set Trouve = Worksheets("Données").Range("A:A").Find(Worksheets("Fiche recette").Range("K3"), lookat:=xlWhole)
Ligne = Trouve.Row

For Tourne = 2 To ColMax
LigneVal = Tourne + 5 'voici la ligne modifier
If Worksheets("Données").Range("A" & Ligne).Offset(0, Tourne - 1) <> "" Then
Worksheets("Fiche recette").Range("A" & LigneVal) = Worksheets("Données").Range("A1").Offset(0, Tourne - 1)
Worksheets("Fiche recette").Range("B" & LigneVal) = Worksheets("Données").Range("A" & Ligne).Offset(0, Tourne - 1)
End If
Next Tourne
DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = DerLig To 7 Step -1
If Cells(i, 1) = "" Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...