Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres numéro de serie dans une textbox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

@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
 
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
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…