Remplir Bon de Commande Depuis Combobox activex

Version imprimable

1 pièce(s) jointe(s)

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:

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

17/07/2025, 12h32
Valtrase

Bonjour,
Le fichier fournis est-il définitif ou bien c'est juste un test pour le forum ?
Il demande une refonte assez conséquente; aux niveaux des tableaux.
17/07/2025, 23h28
Angeoffi

Citation:

Envoyé par Valtrase

Bonjour,
Le fichier fournis est-il définitif ou bien c'est juste un test pour le forum ?
Il demande une refonte assez conséquente; aux niveaux des tableaux.

Bonjour Valtrase

le fichier n'est pas definitif. c'est un fichier test

1 pièce(s) jointe(s)

Bonjour,

Une façon de faire exploitant les tableaux structurés:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub RepriseCommande(Cde As String)
    Dim CdeArray As Variant, ArtArray As Variant, QteArray As Variant
    Dim r As Range, i As Long, j As Long
    If MsgBox("Vider la commande actuelle et reprendre celle choisie?", vbYesNo + vbDefaultButton2, "Oui/non") = vbNo Then Exit Sub
    Range("C6:C7,D3:F5,C12:D30").ClearContents
    Set r = Range("tHisto[N° Cde]").Find(What:=Cde, LookAt:=xlWhole)
    Range("C6") = r
    Range("C7") = r.Offset(0, -6)
    Range("D3") = r.Offset(0, -4)
    CdeArray = Range("tHisto[N° Cde]").Value        ' récupère les valeurs dans un tableau 2D (1 colonne)
    ArtArray = Range("tHisto[Désignation]").Value   ' récupère les valeurs dans un tableau 2D (1 colonne)
    QteArray = Range("tHisto[Qté]").Value           ' récupère les valeurs dans un tableau 2D (1 colonne)
    j = 1
    For i = LBound(CdeArray, 1) To UBound(CdeArray, 1)    ' boucle sur les lignes du tableau
        If CdeArray(i, 1) = Cde Then                      ' CdeArray(i, 1) correspond à la cellule de la i-ème ligne, 1ère colonne
            Range("C" & 11 + j) = ArtArray(i, 1)
            Range("D" & 11 + j) = QteArray(i, 1)
            j = j + 1
        End If
    Next i
End Sub

En attaché, une version avec quelques modifications, juste là pour donner quelques idées,
Bonne continuation.

Citation:

Envoyé par EricDgn

Bonjour,

Une façon de faire exploitant les tableaux structurés:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub RepriseCommande(Cde As String)
    Dim CdeArray As Variant, ArtArray As Variant, QteArray As Variant
    Dim r As Range, i As Long, j As Long
    If MsgBox("Vider la commande actuelle et reprendre celle choisie?", vbYesNo + vbDefaultButton2, "Oui/non") = vbNo Then Exit Sub
    Range("C6:C7,D3:F5,C12:D30").ClearContents
    Set r = Range("tHisto[N° Cde]").Find(What:=Cde, LookAt:=xlWhole)
    Range("C6") = r
    Range("C7") = r.Offset(0, -6)
    Range("D3") = r.Offset(0, -4)
    CdeArray = Range("tHisto[N° Cde]").Value        ' récupère les valeurs dans un tableau 2D (1 colonne)
    ArtArray = Range("tHisto[Désignation]").Value   ' récupère les valeurs dans un tableau 2D (1 colonne)
    QteArray = Range("tHisto[Qté]").Value           ' récupère les valeurs dans un tableau 2D (1 colonne)
    j = 1
    For i = LBound(CdeArray, 1) To UBound(CdeArray, 1)    ' boucle sur les lignes du tableau
        If CdeArray(i, 1) = Cde Then                      ' CdeArray(i, 1) correspond à la cellule de la i-ème ligne, 1ère colonne
            Range("C" & 11 + j) = ArtArray(i, 1)
            Range("D" & 11 + j) = QteArray(i, 1)
            j = j + 1
        End If
    Next i
End Sub

En attaché, une version avec quelques modifications, juste là pour donner quelques idées,
Bonne continuation.

Merci EricDgn pour ta reponse.
Je la teste et je te reviens