Renvoyer un objet range

Salut a toutes et a tous!

je suis nouveau dans le codage VBA.

j'ai plusieurs problèmes a moi seul....

- le premier est que je cherche un code Vba qui va me créer des immatriculation commençant pas C19-0001 est le programme complété le reste jusqu'à l'infini...

- En suite de mon premier problème.... je veux un code qui me permettre à l'ouverture de mon formulaire(Userform) m'affiche le Code qui va être créer dans ma base de donnée dans ma ListBox1 c'est-à-dire C19-0002.... Et une foie enregistré dans ma base de donnée, la fonction dois me permttre d'affiche le prochain code (C19-0001)... infini.....

- J'ai une Base de donnée, je veux copie des information dans une cellule ou range d'une autre feuille nomme LISTE.... dans cette feuille LISTE, il y a un bouton nommé TxtCode.... LISTE est ma feuille de recherche.

Merci, pour la compréhension et l'aide que vous m'apportez.

Bonjour,

Quel rapport entre les besoins et le titre de la discussion ?

Un classeur contenant quelques données et le code déjà écrit, permettrait peut-être d'avancer.

Quel devrait être le format des immatriculation:

Par exemple pour la première :

C19-00011 ou C19-0001 1 ou ....

Ces immatriculations sont elles écrites dans l'ordre croissant ou non ?

A+

Merci de voir ma préoccupation!

à rajouter dans Private Sub UserForm_Initialize()

à tester:

    With Worksheets("BD_SKOX")
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
    code = "C19-" & Format(Right(.Range("A" & derlig).Value, 4) + 1, "0000")
    ListBox1.AddItem code
    End With

Mais pourquoi utiliser une listbox (liste de choix) pour afficher un N° imposé ?

Un label aurait suffit ?

A+

Je sais pas mais je me suis dit que c'est le mieux comprend moi je suis novice en la matière, je prends cela en compte pour ma formation... merci

Paz de réaction

Private Sub ListBox1_Click()

With Worksheets("BD_SKOX")

derlig = .Range("A" & Rows.Count).End(xlUp).Row

code = "C19-" & Format(Right(.Range("A" & derlig).Value, 4) + 1, "0000")

ListBox1.AddItem code

End With

End Sub

ou je dois placer le code afin qu'il fonctionne, Merci pour l'aide apporter

EXCUSE J'AI PAS VU TON TITRE, MERCI INFINIMENT

Mon Userform recherche ne fonction pas comment faire pour effectuer une recherche afin d'avoir toutes mes information via C19-0001 dans mon textCode de mon Userform PROFIL... MERCI