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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140
| Sub Recherche_charge()
'
' Macro permettant la recherche et l'affichage d'un rapport d'une charge
'
Dim Var1, var2
Dim NumLg, comp, dat
Dim nom_parametre As String, test As String, nom As String
On Error Resume Next
Var1 = InputBox(Prompt:="Taper le numéro de lot recherché. ") ' ouverture d'une boite de dialogue demandant le numéro de lot recherché
Sheets("Feuil2").Range("B1") = Var1 'recopie de la valeur dans la cellule B1
Cells.Find(What:=(Var1), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder _
:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
With Application.ActiveCell
NumLg = .Row
End With
var2 = InputBox(Prompt:="Taper le numéro de charge recherchée. ") ' ouverture d'une boite de dialogue demandant le numéro de charge recherché
Sheets("Feuil2").Range("D1") = var2 'recopie de la valeur dans la cellule D1
comp = Cells(NumLg, 4)
If comp = var2.Value Then 'test du numéro de charge
Select Case Cells(NumLg, 2).Value
Case "poids_polymere_1"
Sheets("Feuil2").Range("D1") = Cells(NumLg, 3)
Case "poids_polymere_2"
Sheets("Feuil2").Range("D2") = Cells(NumLg, 3)
Case "poids_polymere_3"
Sheets("Feuil2").Range("D3") = Cells(NumLg, 3)
Case "poids_polymere_4"
Sheets("Feuil2").Range("D4") = Cells(NumLg, 3)
Case "poids_polymere_5"
Sheets("Feuil2").Range("D5") = Cells(NumLg, 3)
Case "poids_produit_1"
Sheets("Feuil2").Range("D18") = Cells(NumLg, 3)
Case "poids_produit_2"
Sheets("Feuil2").Range("D19") = Cells(NumLg, 3)
Case "poids_produit_3"
Sheets("Feuil2").Range("D20") = Cells(NumLg, 3)
Case "poids_sachet"
Sheets("Feuil2").Range("D21") = Cells(NumLg, 3)
Case "poids_huile_1"
Sheets("Feuil2").Range("D12") = Cells(NumLg, 3)
Case "poids_huile_2"
Sheets("Feuil2").Range("D13") = Cells(NumLg, 3)
Case "poids_huile_3"
Sheets("Feuil2").Range("D14") = Cells(NumLg, 3)
Case "poids_noir_1"
Sheets("Feuil2").Range("D8") = Cells(NumLg, 3)
Case "poids_noir_2"
Sheets("Feuil2").Range("D9") = Cells(NumLg, 3)
Case "poids_noir_3"
Sheets("Feuil2").Range("D10") = Cells(NumLg, 3)
Case "poids_noir_4"
Sheets("Feuil2").Range("D11") = Cells(NumLg, 3)
Case "poids_tapis_1"
Sheets("Feuil2").Range("D15") = Cells(NumLg, 3)
Case "poids_tapis_2"
Sheets("Feuil2").Range("D16") = Cells(NumLg, 3)
Case "poids_tapis_3"
Sheets("Feuil2").Range("D17") = Cells(NumLg, 3)
Case "consigne_polymere_1"
Sheets("Feuil2").Range("B1") = Cells(NumLg, 3)
Case "consigne_polymere_2"
Sheets("Feuil2").Range("B2") = Cells(NumLg, 3)
Case "consigne_polymere_3"
Sheets("Feuil2").Range("B3") = Cells(NumLg, 3)
Case "consigne_polymere_4"
Sheets("Feuil2").Range("B4") = Cells(NumLg, 3)
Case "consigne_polymere_5"
Sheets("Feuil2").Range("B5") = Cells(NumLg, 3)
Case "consigne_produit_1"
Sheets("Feuil2").Range("B18") = Cells(NumLg, 3)
Case "consigne_produit_2"
Sheets("Feuil2").Range("B19") = Cells(NumLg, 3)
Case "consigne_produit_3"
Sheets("Feuil2").Range("B20") = Cells(NumLg, 3)
Case "consigne_sachet"
Sheets("Feuil2").Range("B21") = Cells(NumLg, 3)
Case "consigne_huile_1"
Sheets("Feuil2").Range("B12") = Cells(NumLg, 3)
Case "consigne_huile_2"
Sheets("Feuil2").Range("B13") = Cells(NumLg, 3)
Case "consigne_huile_3"
Sheets("Feuil2").Range("B14") = Cells(NumLg, 3)
Case "consigne_noir_1"
Sheets("Feuil2").Range("B8") = Cells(NumLg, 3)
Case "consigne_noir_2"
Sheets("Feuil2").Range("B9") = Cells(NumLg, 3)
Case "consigne_noir_3"
Sheets("Feuil2").Range("B10") = Cells(NumLg, 3)
Case "consigne_noir_4"
Sheets("Feuil2").Range("B11") = Cells(NumLg, 3)
Case "consigne_tapis_1"
Sheets("Feuil2").Range("B15") = Cells(NumLg, 3)
Case "consigne_tapis_2"
Sheets("Feuil2").Range("B16") = Cells(NumLg, 3)
Case "consigne_tapis_3"
Sheets("Feuil2").Range("B17") = Cells(NumLg, 3)
End Select
Else
MsgBox "Aucune donnée pour cette charge"
End If
Feuil2.Select 'ouverture de la page 2
End Sub |
Partager