Bonjour,

Voici un apercu de ma feuille Excel:



En fait en selectionnant un "Sub-PT" les differentes lignes sur ma droite se mettent a jour automatiquement.
Toutes les donnes son stockees dans une autres feuilles (directement extrait de ma base de donnees). Dans cette autre feuille j'ai 6 colonnes qui correspondent aux 6 champs present sur mon rapport.
En selectionnant un sub-pt, ma premiere liste deroulante se met aussi a jour.
Des que je clique une fois sur une de mes Sub-PT, la liste des elements de la liste sub-PT double. Si j'ai 5 elements, la liste passe a 10 elements. Si je clique encore une fois la liste passe de 10 a 15 et ainsi de suite. Evidement j'ai des doublons puisque les 5 sub-pt reels sont copie a chaque fois.

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
Private Sub cbxWPList_DropButtonClick()
 
 
    Dim i As Integer
    i = 1
    Do While Sheets("SubPTList").Cells(i, 1) <> ""
 
            cbxWPList.AddItem Sheets("SubPTList").Cells(i, 1)
 
        i = i + 1
    Loop
 
End Sub

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
Private Sub cbxWPList_Click()
 
    Dim i As Integer
    i = 1
 
    Do While ThisWorkbook.Sheets("SubPTList").Cells(i, 1).Value <> cbxWPList.Value
 
       If ThisWorkbook.Sheets("SubPTList").Cells(i, 1) = "" Then
            Exit Sub
        Else
        i = i + 1
       End If
    Loop
 
 
    ThisWorkbook.Sheets("PostBCReport").Range("H4").Value = ThisWorkbook.Sheets("SubPTList").Range("B" & i).Value
    ThisWorkbook.Sheets("PostBCReport").cbxCAList.Value = ThisWorkbook.Sheets("SubPTList").Range("C" & i).Value
    ThisWorkbook.Sheets("PostBCReport").Range("H7").Value = ThisWorkbook.Sheets("SubPTList").Range("D" & i).Value
    ThisWorkbook.Sheets("PostBCReport").Range("H5").Value = ThisWorkbook.Sheets("SubPTList").Range("E" & i).Value
    ThisWorkbook.Sheets("PostBCReport").Range("H6").Value = ThisWorkbook.Sheets("SubPTList").Range("F" & i).Value
 
End Sub
Est-ce que vous auriez une idee?