Autres numéro de serie dans une textbox

[ngexcel]

Bonjour à tous
J'ai construit avec plusieurs macros trouvés sur le site une base de donnée.
je bloque sur mon userform1 qui comporte une textbox105 en haut à gauche dans mon userform
je voudrais qu'à chaque ouverture de mon userform1 que ma textbox105 incrémente N° consigne 001 puis des que je fais nouveau N° consigne 2 etc...
Je vous remercie de votre aide

 

[soan]

Bonjour ngexcel,

juste une piste : fais une recherche avec « numéro automatique » ; tu auras une foule d'exemples ! 🙂​

soan

 

[ngexcel]

Bonjour soan j ai fais des recherches et des "copier coller" de macro mais j ai toujours des erreurs
je continu a chercher merci

 

[ngexcel]

voici un model que je n arrive pas à adapter !

 

[cp4]

voici un model que je n arrive pas à adapter !

Bonsoir,

@ngexcel : Comme te l'as précisé Soan, tu peux trouver beaucoup d'exemple sur le forum.
Quel est ton modèle?

 

[ngexcel]

Bonjour j ai mis plus haut mon fichier nommé basé

 

[soan]

@ngexcel (salut cp4)

j'ai d'abord regardé ton classeur modèle : ok, no problem. 🙂

ensuite j'ai regardé ton fichier, mais ça bloque en boucle sur cette fenêtre :

comme j'arrive pas à sortir de la boucle à répétition, je peux pas accéder à Outils / Références pour décocher les références manquantes ; j'ai dû quitter ton classeur via le Gestionnaire de tâches de Windows.​

soan

 

[ngexcel]

Mince

 

[soan]

suggestion : vérifie ton fichier pour qu'il n'y aie aucune référence manquante, puis envoie-le ; mais inutile d'envoyer de nouveau le fichier du modèle.

pour vérifier les références, va d'abord sur l'Éditeur VBA (fenêtre Microsoft Visual Basic), puis : menu « Outils / Références... ».

si en haut tu vois des lignes avec « MANQUANT », décoche-les toutes, puis clique sur le bouton OK.​

soan

 

[ngexcel]

Ok des que je suis devant le pc merci

 

[Staple1600]

Re

=>ngexcel
Surtout merci de désactiver en le commentant le code présent dans ThisWorkbook

Private Sub UserForm_Terminate()
End
End Sub

Private Sub Workbook_Activate()
        Application.DisplayFullScreen = True
        Application.AskToUpdateLinks = True
    End Sub

    Private Sub Workbook_Deactivate()
        Application.DisplayFullScreen = False
        Application.AskToUpdateLinks = False
    End Sub

Private Sub Workbook_Open()
[Connexions!a1] = Environ("username")
 Sheets("Connexions").Select
    Range("B1").Select
    ActiveCell.FormulaR1C1 = Now
     Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Feuil1").Select
Jouer_WAV
    Randomize


End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = True
 Desactiver_WAV
End Sub

NB: Décoche la référence à Outlook View Control et à la librairie Outlook 16.0

PS:
• Suggestions en passant
Tu peux ne joindre qu'un fichier exemple qu'avec un seul userform.
Juste de quoi traiter cette histoire d'auto-incrémentaion d'un Textbox
• Conseils en passant
Généralement, on ne joint jamais la copie complète de son appli sur le forum.

 

[ngexcel]

Bonsoir voici un exemple que je voudrais mettre sur mon projet mais cela bug

 

[Staple1600]

Re

Il manque le fichier joint.

 

[ngexcel]

pardon

 

[Staple1600]

Re

=>ngexcel
C'est le même fichier que dans le message#4, non ?

NB: Mes conseils et remarques du message#11 concernaient le classeur base.xlsm (celui du message#1)