Discussion :

[Angeoffi]

Bonjour à Tous

SVP j'ai besoin d'aide

j'archive les commandes que je fais depuis la "feuille commande" dans la "feuille historique_cde"

je voudrais qu' a la sélection du combobox n° de commande qui se trouve dans la "feuille commande" ,
pouvoir récupérer les infos correspondantes dans la feuille historique et les mettre dans la feuille commande .


j'ai bibouiller quelques lignes de code mais j'y arrive pas

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
Dim f As Worksheet, sh As Worksheet
Dim Plage As Range
Dim Lr As Long
 
Set f = Sheets("Historique_Cde")
Set sh = Sheets("Commande")
Set Plage = f.Range("A" & f.Range("H" & Rows.Count).End(xlUp).Row)
Lr = f.Range("A" & Rows.Count).End(xlUp).Row
 
' Effacer les valeurs si existe
 
sh.Range("c6:c7").ClearContents
sh.Range("f12:f30").ClearContents
 
sh.Range("f5:f7").ClearContents
'MsgBox sh.Range("c5").Value
 
For Each c In Plage
    If ComboBox2.Value = sh.Range("c5").Value Then
 
        For i = 12 To 30
           sh.Cells(2, i).Value = f.Range("B" & Lr).Value
           sh.Cells(3, i).Value = f.Range("C" & Lr).Value
           sh.Cells(4, i).Value = f.Range("D" & Lr).Value
           sh.Cells(5, i).Value = f.Range("E" & Lr).Value
           sh.Cells(6, i).Value = f.Range("F" & Lr).Value
 
 
        Next i
 
    End If
Next c
 
Set f = Nothing
Set sh = Nothing
Set Plage = Nothing
End Sub

Merci d'avance pour vos contributions.
je met en PJ une copie du fichier
cordialement