Sujet Précédent Sujet Suivant

Numéro automatique userform vba

Fermé
tuxy88 Messages postés 11 Date d'inscription dimanche 3 novembre 2013 Statut Membre Dernière intervention 16 novembre 2013 - 3 nov. 2013 à 20:48
tuxy88 Messages postés 11 Date d'inscription dimanche 3 novembre 2013 Statut Membre Dernière intervention 16 novembre 2013 - 11 nov. 2013 à 16:55
Bonjour à toutes et à tous,

Je sais que ma question a déjà été traitée mais il m'est impossible (après maintes et maintes essais!) de l'appliquer à mon fichier. Cela est probablement dû à mon inexpérience en vba!!! Mais venons en au sujet de mon post.

Je cherche à insérer sur un userform un numéro automatique lorsque ce userform est ouvert. Ce numéro serait la suite logique de celui utilisé précédemment. Pour l'instant je copie des données de mon userform vers ma fiche excel

Voici mon code (le numéro incrémenté serait visible dans TextBox1 et provenant de la feuille Préparation)

Private Sub CommandButton1_Click()
Worksheets("Préparation").Rows("2:2").Insert
Worksheets("Préparation").Cells(2, 1) = TextBox1
Worksheets("Préparation").Cells(2, 2) = nom
Worksheets("Préparation").Cells(2, 3) = dat
Worksheets("Préparation").Cells(2, 4) = heure
Worksheets("Préparation").Cells(2, 5) = venue
Worksheets("Préparation").Cells(2, 6) = dcolorant1
Worksheets("Préparation").Cells(2, 7) = ncolorant1
Worksheets("Préparation").Cells(2, 8) = dosec1
Worksheets("Préparation").Cells(2, 9) = dcolorant2
Worksheets("Préparation").Cells(2, 10) = ncolorant2
Worksheets("Préparation").Cells(2, 11) = dosec2
Worksheets("Préparation").Cells(2, 12) = dcolorant3
Worksheets("Préparation").Cells(2, 13) = ncolorant3
Worksheets("Préparation").Cells(2, 14) = dosec3
Worksheets("Préparation").Cells(2, 15) = darome1
Worksheets("Préparation").Cells(2, 16) = narome1
Worksheets("Préparation").Cells(2, 17) = dosea1
Worksheets("Préparation").Cells(2, 18) = darome2
Worksheets("Préparation").Cells(2, 19) = narome2
Worksheets("Préparation").Cells(2, 20) = dosea2
Worksheets("Préparation").Cells(2, 21) = darome3
Worksheets("Préparation").Cells(2, 22) = narome3
Worksheets("Préparation").Cells(2, 23) = dosea3
UserForm2.PrintForm
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Merci d'avance pour toutes réponses
Cordialement
Tuxy88
A voir également:

6 réponses

Réponse 1 / 6
foo
3 nov. 2013 à 21:01
bonjour

donne au moin un model pour voir comment mettre ta numerotation

et voir les modifes a faire sur ton UserForm

A+
Maurice
0
tuxy88 Messages postés 11 Date d'inscription dimanche 3 novembre 2013 Statut Membre Dernière intervention 16 novembre 2013
3 nov. 2013 à 21:03
Merci de vous intéresser à mon post.
Je ne sais pas comment ajouter mon fichier en pièce jointe :/

A+
0
Réponse 2 / 6
foo
3 nov. 2013 à 21:46
Bonjour

Mettre ton fichier sur http://www.cjoint.com et coller ici le lien fourni.

A+
Maurice
0
Réponse 3 / 6
tuxy88 Messages postés 11 Date d'inscription dimanche 3 novembre 2013 Statut Membre Dernière intervention 16 novembre 2013
3 nov. 2013 à 21:52
Merciiii

Voici le lien :

https://www.cjoint.com/c/CKdvZKPFO7Z

Cordialement
0
Réponse 4 / 6
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 210
3 nov. 2013 à 22:32
Bonsoir,

essaie avec ça : 
Private Sub UserForm_Initialize()
    TextBox1 = Worksheets("Préparation").Cells(2, 1) + 1
End Sub
eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
foo
4 nov. 2013 à 10:27
Bonjour

Bravo eriiic
voila ma modif

Private Sub UserForm_Initialize()
TextBox1.Value = Feuil1.Cells(2, 1) + 1
TextBox1.Enabled = False
End Sub

Private Sub CommandButton1_Click()
' Feuil1 = CodeName (Préparation)
With Feuil1
.Rows("2:2").Insert
.Cells(2, 1) = TextBox1
.Cells(2, 2) = nom
.Cells(2, 3) = dat
.Cells(2, 4) = heure
.Cells(2, 5) = venue
.Cells(2, 6) = dcolorant1
.Cells(2, 7) = ncolorant1
.Cells(2, 8) = dosec1
.Cells(2, 9) = dcolorant2
.Cells(2, 10) = ncolorant2
.Cells(2, 11) = dosec2
.Cells(2, 12) = dcolorant3
.Cells(2, 13) = ncolorant3
.Cells(2, 14) = dosec3
.Cells(2, 15) = darome1
.Cells(2, 16) = narome1
.Cells(2, 17) = dosea1
.Cells(2, 18) = darome2
.Cells(2, 19) = narome2
.Cells(2, 20) = dosea2
.Cells(2, 21) = darome3
.Cells(2, 22) = narome3
.Cells(2, 23) = dosea3
End With
UserForm2.PrintForm
Unload Me
End Sub

A+
Maurice
0
Réponse 6 / 6
tuxy88 Messages postés 11 Date d'inscription dimanche 3 novembre 2013 Statut Membre Dernière intervention 16 novembre 2013
11 nov. 2013 à 16:55
Bonjour à tous,

Merci pour vos réponses, c'est super, j'arrive à faire ce que je ;)

Nouvelles questions, je voudrais maintenant lorsque j'inscris un numéro dans TextBox1 d'un userform, que ce numéro soit recherché dans la colonne A de la feuille 1 et ainsi, mettre les données de mon userform (de Textbox2, TextBox3,...) dans la colonne H,I,... de cette même feuille 1 par exemple
Ceci afin de faire coincïder sur la meme feuille excel la préparation et l'utilisation d'un mélange appelé 1 par exemple.

Je ne sais pas si cela est possible :/

Merci d'avance

Cordialement,

Pierrick
0