Sujet Précédent Sujet Suivant

Incrementation id formulaire

Fermé
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021 - Modifié le 3 oct. 2020 à 10:09
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 - 27 janv. 2021 à 22:03
Bonjour,
je sais que ca à certainement dejas ete demandé mais je ne trouve pas de solution sur les forum ou du moins il semble y avoir des tonne de facon de faire...

je voudrais incrementer un numero id a chaque ouverture d'un formulaire, ce que j'ai enfin reussi a faire en suivant un tuto... mon probleme est que le numero 1 apparait bien mais il reste sur 1! car je n'arrive pas a inserer la derniere ligne du tuto a savoir:

Feuil3.Cells(derligne, 30) = Val(TextBox24)

cela me met une erreur 1004.

ci joint mon VBA sachant qu'il y à un commandboutton2 identique avec .show
d'avance merci. 


Private Sub CommandButton1_Click()

'Feuil3.Cells(derligne, 30) = Val(TextBox24)

'message erreur case non remplie
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox8 = "" Or TextBox12 = "jj/mm/aaaa" Or TextBox14 = "" Or TextBox17 = "" Or TextBox18 = "" Then
MsgBox ("les informations: nom, prénom, n°ss, sexe, date entrée, coef et H.hebdo sont indispensables !")
Else
    'si tout est bon, remplir tableau
    If Sheets("PERSONNEL").Range("b4") = "" Then
    Sheets("PERSONNEL").Range("b4") = TextBox1
    Else
    'si tableau dejas remplis, creer une nouvelle ligne en bas
    Sheets("PERSONNEL").ListObjects(1).ListRows.Add
    End If
    'enregistrement sur la derniere ligne de tableau
    dlt = Sheets("PERSONNEL").Range("d1048576").End(xlUp).Row
    
    'affectation case formulaire / tableau
    Sheets("PERSONNEL").Range("b" & dlt) = TextBox1
    Sheets("PERSONNEL").Range("c" & dlt) = TextBox2
    Sheets("PERSONNEL").Range("e" & dlt) = TextBox3
    Sheets("PERSONNEL").Range("d" & dlt) = TextBox4
    Sheets("PERSONNEL").Range("g" & dlt) = TextBox5.Value
    TextBox5 = Format(TextBox5, "mm/dd/yyyy")
    Sheets("PERSONNEL").Range("f" & dlt) = TextBox6
    Sheets("PERSONNEL").Range("v" & dlt) = TextBox7
    Sheets("PERSONNEL").Range("h" & dlt) = TextBox8
    Sheets("PERSONNEL").Range("i" & dlt) = CheckBox5
    Sheets("PERSONNEL").Range("z" & dlt) = TextBox9
    Sheets("PERSONNEL").Range("aa" & dlt) = TextBox10
    Sheets("PERSONNEL").Range("ab" & dlt) = TextBox11
    Sheets("PERSONNEL").Range("x" & dlt) = TextBox12
    Sheets("PERSONNEL").Range("y" & dlt) = TextBox13
    Sheets("PERSONNEL").Range("k" & dlt) = TextBox14.Value
    TextBox14 = Format(TextBox12, "mm/dd/yyyy")
    Sheets("PERSONNEL").Range("l" & dlt) = TextBox15.Value
    TextBox15 = Format(TextBox15, "mm/dd/yyyy")
    Sheets("PERSONNEL").Range("j" & dlt) = TextBox16
    Sheets("PERSONNEL").Range("w" & dlt) = TextBox17
    Sheets("PERSONNEL").Range("s" & dlt) = TextBox18
    Sheets("PERSONNEL").Range("m" & dlt) = TextBox19
    Sheets("PERSONNEL").Range("n" & dlt) = TextBox20
    Sheets("PERSONNEL").Range("o" & dlt) = CheckBox1
    Sheets("PERSONNEL").Range("p" & dlt) = CheckBox2
    Sheets("PERSONNEL").Range("q" & dlt) = CheckBox3
    Sheets("PERSONNEL").Range("r" & dlt) = CheckBox4
    Sheets("PERSONNEL").Range("t" & dlt) = TextBox21
    Sheets("PERSONNEL").Range("u" & dlt) = TextBox22
    Sheets("PERSONNEL").Range("ac" & dlt) = TextBox23
    Sheets("PERSONNEL").Range("ad" & dlt) = TextBox24

Unload UserForm1
    
End If
End Sub


Configuration: Windows / Chrome 85.0.4183.102

14 réponses

Réponse 1 / 14
Utilisateur anonyme
12 sept. 2020 à 20:33
Bonjour

merci de lire ceci https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code, et d'éditer ton texte pour l'appliquer
0
Réponse 2 / 14
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
23 sept. 2020 à 19:22
vraiment désolé, le voici... 

Private Sub CommandButton1_Click()

'Feuil3.Cells(derligne, 30) = Val(TextBox24)

'message erreur case non remplie
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox8 = "" Or TextBox12 = "jj/mm/aaaa" Or TextBox14 = "" Or TextBox17 = "" Or TextBox18 = "" Then
MsgBox ("les informations: nom, prénom, n°ss, sexe, date entrée, coef et H.hebdo sont indispensables !")
Else
'si tout est bon, remplir tableau
If Sheets("PERSONNEL").Range("b4") = "" Then
Sheets("PERSONNEL").Range("b4") = TextBox1
Else
'si tableau dejas remplis, creer une nouvelle ligne en bas
Sheets("PERSONNEL").ListObjects(1).ListRows.Add
End If
'enregistrement sur la derniere ligne de tableau
dlt = Sheets("PERSONNEL").Range("d1048576").End(xlUp).Row

'affectation case formulaire / tableau
Sheets("PERSONNEL").Range("b" & dlt) = TextBox1
Sheets("PERSONNEL").Range("c" & dlt) = TextBox2
Sheets("PERSONNEL").Range("e" & dlt) = TextBox3
Sheets("PERSONNEL").Range("d" & dlt) = TextBox4
Sheets("PERSONNEL").Range("g" & dlt) = TextBox5.Value
TextBox5 = Format(TextBox5, "mm/dd/yyyy")
Sheets("PERSONNEL").Range("f" & dlt) = TextBox6
Sheets("PERSONNEL").Range("v" & dlt) = TextBox7
Sheets("PERSONNEL").Range("h" & dlt) = TextBox8
Sheets("PERSONNEL").Range("i" & dlt) = CheckBox5
Sheets("PERSONNEL").Range("z" & dlt) = TextBox9
Sheets("PERSONNEL").Range("aa" & dlt) = TextBox10
Sheets("PERSONNEL").Range("ab" & dlt) = TextBox11
Sheets("PERSONNEL").Range("x" & dlt) = TextBox12
Sheets("PERSONNEL").Range("y" & dlt) = TextBox13
Sheets("PERSONNEL").Range("k" & dlt) = TextBox14.Value
TextBox14 = Format(TextBox12, "mm/dd/yyyy")
Sheets("PERSONNEL").Range("l" & dlt) = TextBox15.Value
TextBox15 = Format(TextBox15, "mm/dd/yyyy")
Sheets("PERSONNEL").Range("j" & dlt) = TextBox16
Sheets("PERSONNEL").Range("w" & dlt) = TextBox17
Sheets("PERSONNEL").Range("s" & dlt) = TextBox18
Sheets("PERSONNEL").Range("m" & dlt) = TextBox19
Sheets("PERSONNEL").Range("n" & dlt) = TextBox20
Sheets("PERSONNEL").Range("o" & dlt) = CheckBox1
Sheets("PERSONNEL").Range("p" & dlt) = CheckBox2
Sheets("PERSONNEL").Range("q" & dlt) = CheckBox3
Sheets("PERSONNEL").Range("r" & dlt) = CheckBox4
Sheets("PERSONNEL").Range("t" & dlt) = TextBox21
Sheets("PERSONNEL").Range("u" & dlt) = TextBox22
Sheets("PERSONNEL").Range("ac" & dlt) = TextBox23
Sheets("PERSONNEL").Range("ad" & dlt) = TextBox24

Unload UserForm1

End If
End Sub
0
Réponse 3 / 14
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
3 oct. 2020 à 10:01
personne pour m'aider???
0
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
Modifié le 3 oct. 2020 à 11:04
Bonjour,
Merci de préciser sur qu'elle ligne de votre code se produit l'erreur et indiquer l'erreur exact...!
De quel tuto vous faite référence...!
Si possible, vous pouvez mettre votre fichier à disposition sur https://www.cjoint.com/ et poster le lien!
Salutations
Le Pingou
0
Réponse 4 / 14
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
Modifié le 3 oct. 2020 à 11:07
Bonjour le fil, bonjour le forum,

Le fichier nous aurait permis d'optimiser tes codes, mais...

Je te propose ce code qui, à l'ouverture de l'Userform, affichera la plus grande valeur de la colonne AD (=30) de l'onglet Feuil3 plus 1.
Dans la procédure Click du CommandButton1, il ne te restera plus qu'à renvoyer la valeur de la Textbox24 dans la première ligne vide de la colonne 30 de l'onglet Feuil3...

Le code : 
Private Sub UserForm_Initialize()
Dim O As Worksheet
Dim DL As Integer

Set O = Worksheets("Feuil3")
DL = O.Cells(Application.Rows.Count, "AD").End(xlUp).Row
Me.TextBox24.Value = Application.WorksheetFunction.Max(O.Range("AD1:AD" & DL)) + 1
End Sub
0

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

Posez votre question
Réponse 5 / 14
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
17 janv. 2021 à 15:01
Bonjour ThauTheme et bien évidement les autre aussi...
ton code fonctionne mais le numéro ne s'incrémente pas, il reste inexorablement sur 1
aurai-tu une idee de la manip stp.
aussi, serait il possible de mettre sous forme "001"

merci
0
Réponse 6 / 14
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
18 janv. 2021 à 10:49
Bonjour,
modifier cette ligne: 
Application.WorksheetFunction.Max(O.Range("AD1:AD" & DL)) + 1

comme ceci; 
Format(Application.WorksheetFunction.Max(O.Range("AD1:AD" & DL)) + 1, "0000")
0
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
27 janv. 2021 à 18:16
bonjour,
merci le pingou pour la mise en forme,

il me reste le probleme du n° qui ne s'incrémente pas, en fait si je note "1" dans la ligne 1 colonne AD de ma feuille ca fonctionne très bien mais mon tableau commence à la ligne 4.

y aurait il quelqu'un pour m'aiguillé car la solution est certainement très simple mais quand on sait pas eh ben... on cherche, on s'énerve mais... on sait pas
0
Réponse 7 / 14
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
27 janv. 2021 à 18:21
Bonjour,
Si je vous ai bien compris, dans la ligne d'instruction vous remplacez le AD1... par AD4
0
Réponse 8 / 14
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
27 janv. 2021 à 18:36
merci mais... j'avais déjà essayé et ca marche pas.
0
Réponse 9 / 14
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
Modifié le 27 janv. 2021 à 18:57
Bonjour,
Ca ne marche pas n'est pas une réponse qui permet de vous aider.
Qu'elle erreur recevez-vous ?
Autre solution, mettre le fichier à disposition sur https://mon-partage.fr/ ou https://www.cjoint.com/ et poster le lien.

Note j'ai vue au passage que vous cherchez la valeur dans la TextBox24, alors d'où vient la valeur de cette TextBox.?????

0
Réponse 10 / 14
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
Modifié le 27 janv. 2021 à 19:01
oui vous avez raison!
en fait ca ne me met aucune erreur, seulement le formulaire enregistre toujours 0001 sur toute les lignes.
voici le lien du fichier et merci pour votre intérêt,
https://mon-partage.fr/f/ZFWU3ecM/
0
Réponse 11 / 14
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
27 janv. 2021 à 19:05
Bonjour,
Merci de me dire s'il s'agit bien du N°Id du formulaire que vous enregistrez dans la colonne "AD" de la feuille "Personnel " Oui Non ???
0
Réponse 12 / 14
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
27 janv. 2021 à 19:32
Bonjour,
Voir petite explication sur la feuille "Personnel".
Le lien: https://mon-partage.fr/f/y1pfzpTS/
0
Réponse 13 / 14
lol1304 Messages postés 10 Date d'inscription samedi 12 septembre 2020 Statut Membre Dernière intervention 27 janvier 2021
27 janv. 2021 à 20:17
bonjour,
c'est bien le N° ID pour la colonne AD feuille "Personnel"
votre solution est magique, cela fonctionne mais je suis obligé de refaire la manipulation a chaque enregistrement.
n'est ce pas le code VBA qui enregistrerais le nombre en texte?
0
Réponse 14 / 14
Le Pingou Messages postés 12231 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 janvier 2025 1 454
Modifié le 27 janv. 2021 à 22:15
Bonjour,
Faites cette petite correction dans vos 2 procédures de validation :

Patience.

0

Discussions similaires

recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses
Comment définir ma nouvelle PS4 comme PS4 principale ?
cod-alpha -
hhh -

8 réponses
c est quoi un ID
claude -
Sortal -

3 réponses
Civilité (Mr,Mme,Melle) n' apparait pas lors de l'exécution du formulaire
azixe -
cs_Le Pivert -

1 réponse
Problème authentification
Bass -
KiwiFascinant81 -

7 réponses