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
| Dim wbArticles As Workbook
Dim wb As Workbook
For Each wb In Workbooks
'Regarde si parmis les classeurs ouverts, se trouve le classeur BASE_ARTICLES
'si trouve ce classeur, l'enregistre dans wbArticles
If wb.FullName = WB_BASE_ARTICLES Then
Set wbArticles = wb
Exit For
End If
Next wb
Set WsFacture = ThisWorkbook.Sheets(WS_FACTURE)
'Si le classeur BASE_ARTICLES n'est pas encore ouvert, l'ouvre
If wbArticles Is Nothing Then
Set wbArticles = Workbooks.Open(WB_BASE_ARTICLES) 'ouvre feuille articles
End If
'affecte à WsArticles une référence à la feuille WS_ARTICLES
Set WsArticles = wbArticles.Sheets(WS_ARTICLES)
'Met le Classeur Facture au premier plan
ThisWorkbook.Activate
' recherche la dernière colonne de feuille WS_ARTICLES
Bdc = WsArticles.Cells(1, 1).End(xlToRight).Column
'dans toutes les 12 colonnes en commencant a la 5
For Bn = 5 To Bdc Step 12
ComboBox1.AddItem WsArticles.Cells(2, Bn)
'résultat de recherche dans la combobox1
ComboBox1.List(Bc, 1) = Bn
Bc = Bc + 1
Next |
