Autres numéro de serie dans une textbox

ngexcel

XLDnaute Occasionnel
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
 

Pièces jointes

  • base.xlsm
    105.9 KB · Affichages: 24

soan

XLDnaute Barbatruc
Inactif
@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 :

Image.jpg


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
 

soan

XLDnaute Barbatruc
Inactif
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
 

Staple1600

XLDnaute Barbatruc
Re

=>ngexcel
Surtout merci de désactiver en le commentant le code présent dans ThisWorkbook
VB:
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.
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal