N
Nat013
Guest
Bonjour,
j'aimerais pouvoir attitré un numéro unique aussitôt qu'on ouvre le formulaire, car il pourrait arriver que plusieurs utilisateur (de différent emplacement ) essaie de créer en simultané des commandes.
Donc, je ne veux pas qu'il voit un numéro erroné à l'écran avant l'enregistrement du formulaire.
Comme je suis débutante, après recherche, j'ai trouvé ceci, mais ne semble pas fonctionné en simultané. Auriez-vous une idée pour moi.
Merci et Bonne journée !
'Mettre un numéro unique à l'ouverture du formulaire (plusieurs utilisateurs en simultanés)
Function NouveauNuméro(Dernum)
NouveauNuméro = Dernum + 1
Sub commande()
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, -1).Select
MsgBox ("BD-PO" & ActiveCell)
End Sub
Sub AffecteNouveauNum()
End Fonction
j'aimerais pouvoir attitré un numéro unique aussitôt qu'on ouvre le formulaire, car il pourrait arriver que plusieurs utilisateur (de différent emplacement ) essaie de créer en simultané des commandes.
Donc, je ne veux pas qu'il voit un numéro erroné à l'écran avant l'enregistrement du formulaire.
Comme je suis débutante, après recherche, j'ai trouvé ceci, mais ne semble pas fonctionné en simultané. Auriez-vous une idée pour moi.
Merci et Bonne journée !
'Mettre un numéro unique à l'ouverture du formulaire (plusieurs utilisateurs en simultanés)
Function NouveauNuméro(Dernum)
NouveauNuméro = Dernum + 1
Sub commande()
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, -1).Select
MsgBox ("BD-PO" & ActiveCell)
End Sub
Sub AffecteNouveauNum()
End Fonction