Discussion :

[mercatog]

Au demeurant, reconnaissons que la saisie du code est simplifiée si la déclaration s'effectue en Scripting.Dictionary
C'est juste mon propos.
Bien à toi.

Oui Marcel dans la phase de développement

il est préférable de développer en activant les références pour bénéficier des variables nommées et de l'intellisense

Dans la phase de déploiement et pour éviter les conflits de compatibilité on recours au Late Binding avec quelques adaptations (notamment déclaration avec CreateObject et remplacement des constantes propre par leurs valeur.

Exemple en late binding si on pilote Word on remplace la constante wdParagraph par sa valeur 4

[MarcelG]

D'accord, je comprends.
J'adapterai, j'essaierai du moins, quant à mes développements sur les publipostages Excel Word.

Bon week-end à toi. Bon week-end au forum.

[OrDonc]

Bonjour

Si tu peux utiliser l’objet Tableau (ListObject) la programmation sera grandement simplifiée.
Avec ton exemple, TV étant le tableau de plage B6 :B… dans l’onglet Ventes et TC celui de la plage B6 :B… de l’onglet Commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub UserForm_Initialize()
    Dim D, R As Range
    Set D = CreateObject("Scripting.Dictionary")
    For Each R In [TV]: D.Item(R.Value) = "": Next
    Fact.List = D.keys
    D.RemovAll
    For Each R In [TC]: D.Item(R.Value) = "": Next
    NumBC.List = D.keys
    Info = Feuil10.Range("D27").Value
End Sub
Private Sub Plus_Click()
  Uf_livre.Show
End Sub

Remarques
- j’utilise des noms simples (exemples NumBC remplace Me.Cmb_NumBC, Info remplace Labe_Info.Caption, …)

- Sheets(10).Range("D27").Value peut ne pas retourner la valeur attendue, le 10 indique la position de l’onglet dans leur liste. Un déplacement inopportun (à droite, à gauche) et on peut avoir autre chose pour l’étiquette.
Il est plus prudent de passer par le ‘Name’ plutôt que par le ‘Codename’

- une sous routine ou fonction est intéressante quand le nombre de cas est significatif.