Renvoi Numero d'ordre dans un UserForm2

Encore une demande d'aide d'utilisateur débutant trop pressé.

J'ai fais un post pour demander un code et vérifier dans le classeur fourni et après vérification, clos le post.

La réponse de Banzaï64 :

    Private Sub UserForm_Initialize()
      Me.TextBox7 = Format(Range("B65536").End(xlUp).Offset(1, -1),"000")
    End Sub

Ce code fonctionne bien dans l'userform du modèle de fichier que j'ai transmis, mais quand je le copie pour le mettre dans mon fichier, cela ne fonctionne pas.

En fait, j'aimerai transcrire dans le classeur "Licaon Fonds de dossiers V003_1" :

Le premier numéro d'ordre disponible de la feuille suivi dans le Texbox7 du UserForm2

Lorsque je valide le CommandButton "Enregistrer, transférer les cellules de la feuille "Masque" comme actuellement, et aussi dans la feuille "Suivi" comme suit :

Feuille Masque, Concaténation des cellules D5,G5,H5,J5,K5,L5,M5 et P5 et report en feuille "Suivi" en F3

Transfert de :

ComboBox8 en colonne "B"

ComboBox12 en colonne "C"

ListBox1 en colonne "D" les noms type à la ligne les uns des autres

ComboBox5 en colonne "E"

La concaténation de la cellule F3 de la feuille "Suivi" en colonne "F"

TextBox19 en colonne "F", les noms type à la ligne les uns des autres.

Ces transfert, il va de soi s'inscrivent dans la première ligne de la colonne "B"

Merci de votre collaboration

Licaon

Bonjour,

Le premier numéro d'ordre disponible de la feuille suivi dans le Texbox7 du UserForm2

Le numéro d'ordre correspond à quelle colonne dans ta feuille suivi ?

Sinon une première chose est de lui dire où tu pêches l'info. Donc à essayer:

Me.TextBox7 = Format(Sheets("Suivi").Range("B65536").End(xlUp).Offset(1, -1),"000")

A te relire

Merci Dan,

Ça fonctionne pour le report en TextBox7 du UserForm2.

Reste à solutionner le "rangement des "textBox" dans la feuille "Suivi".

A te lire,

Licaon