Numérotation automatique

[joums]

Bonjour,

Dans mon userform, je souhaite afficher le un sigle dans un textbox.
Ce sigle dépend de la valeur d'une combobox.

Je pensais utiliser une des méthodes de Boisgontier
mais je bloque

Set mondico = CreateObject("Scripting.Dictionary")
  For i = 1 To Range("sigle").Count
    If Range("prestation")(i) = Me.Combobox1 Then
      temp = Range("sigle")(i)
      If Not mondico.Exists(temp) Then mondico.Add temp, temp
    End If
  Next i
  Me.combobox.1.text = mondico.items

Merci de votre aide
Voici un fichier pour que cela soit plus clair

 

[Guest]

Re : Numérotation automatique

Bonjour,

Voici ton classeur modifié avec deux possibilités. L'objet dictionary n'est pas utilisé.

P.S. ton fil n'a rien à voir avec son titre, change ce dernier.
A+

 

[joums]

Re : Numérotation automatique

Merci pour le fichier, je vais essayer de comprendre à présent
Il y a donc 2 possibilités différentes dans le fichier joint

 

[joums]

Re : Numérotation automatique

Je reviens vers vous de nouveau, car mon problème n'est pas résolu.
J'ai été incomplet dans mes explications.
Au final, le sigle doit permettre une numérotation automatique dans le textbox

Encore merci de votre aide
Ci-joint le fichier avec des explications beaucoup plus claires