Incrémentation Numéro VBA Excel
GromGrom
Messages postés
97
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
Bonsoir à tous,
Je suis en train de créer un formulaire pour enregistrer, modifier et consulter des données.
Dans le cas de l'enregistrement d'une nouvelle fiche, je souhaiterais qu'une valeur soit incrémentée en automatique (1, 2 , ...)
Voici mon bout de code qui m'oblige actuellement à mettre une valeur manuellement dans le comboBox1.
Auriez-vous une idée de solution?
Merci pour votre aide
Clem
Je suis en train de créer un formulaire pour enregistrer, modifier et consulter des données.
Dans le cas de l'enregistrement d'une nouvelle fiche, je souhaiterais qu'une valeur soit incrémentée en automatique (1, 2 , ...)
Voici mon bout de code qui m'oblige actuellement à mettre une valeur manuellement dans le comboBox1.
Auriez-vous une idée de solution?
Merci pour votre aide
Clem
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("Clients").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = TextBox6
Range("I" & L).Value = TextBox7
End If
End Sub
A voir également:
- Excel incrémentation automatique numéro vba
- Numero prive - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Word et excel gratuit - Guide
1 réponse
Bonjour GromGrom, bonjour le forum
Remplace ta ComboBox1 par une textbox (TexBox8 normalement).
Si tu as déjà un code d'initialisation de ton UserForm, ajoute la ligne :
Sinon ajoute ce code d'initialisation :
Et adapte le code du CommandButton1 :
Remplace ta ComboBox1 par une textbox (TexBox8 normalement).
Si tu as déjà un code d'initialisation de ton UserForm, ajoute la ligne :
Me.TextBox8.Value = Application.WorksheetFunction.Max(Sheets("Clients").Columns(1)) + 1
Sinon ajoute ce code d'initialisation :
Private Sub UserForm_Initialize()
Me.textbox8.Value = Application.WorksheetFunction.Max(Sheets("Clients").Columns(1)) + 1
End Sub
Et adapte le code du CommandButton1 :
Range("A" & L).Value = TetxBox8.Value