IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

N° Incrémenté dans un TextBox


Sujet :

Macros et VBA Excel

  1. #1
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Bonjour,

    Dans un UserForm (FrmEngt) (page1), j'ai un TextBox (TnumInc) que je souhaite incrémenté à chaque fois que l'UserForm est activé, mais avec une possibilité d'effacement du numéro tant que l'on a pas appuyé sur le bouton valider de l'UserForm.

    En clair, si un agent active l'UserForm par erreur et le referme aussitôt, l'incrémentation reprends là où elle s'est arrétée.

    Dans l'UserForm j'ai 3 boutons (Valider, Annuler, Fermer)

    Peut-on les utiliser ?

    Comment faire ? Merci pour votre aide

    J'ai essayé de reprendre le dernier numéro de la colonne A de la Feuille "Engagement", là où sont stockés les numéros d'ordre d'entrée, mais je n'y arrive pas.

    J'ai essayé avec ces codes mais sans succès :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Private Sub UserForm_Activate()
    If Sheets("Engagements").Range("A6").Value="" then
    Me.TnumInc.Value=1
    End If
    End Sub
    Ensuite
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub CbOk_AfterClick()
    Me.TnumInc.Value=Sheets("Engagements").Range("A65535").End(xlUp).Row + 1
    End Sub
    Mais sans succès

  2. #2
    Membre Expert Avatar de Fvandermeulen
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    1 869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 869
    Par défaut
    Bonjour,
    Voici comment j'ai procédé pour un fichier qui ressemble un peu à ton problème (fichier que je n'ai plus...)

    Uniquement lié au bouton 'valider' incrémenté le nombre dans une cellule définie dans une des feuilles, ca évite les '.end(xlup)' que, personellement, je n'aime pas de trop

    Au vu de l'exemple de ton code tu ne devrais pas avoir de mal à le faire.

    En espérant avoir été clair et que ça aide.

    A+

  3. #3
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Voici ce que j'ai fait mais sans succès, car l'incrémentation s'arrête à 2
    Pouvez-vous m'aider ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Private Sub UserForm_Activate()
    If Sheets("Engagements").Range("A6").Value = "" Then
    Me.TnumInc.Value = 1
    Else
    Me.TnumInc.Value = VopNum + 1
    End If
    End Sub
    Ensuite dans CbOk_Click() (bouton "Valider")
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Dim NL As Long
    If Sheets("Engagements").Range("A6").Value = "" Then
    Me.TnumInc.Value = 1
    Else
    NL = Sheets("Engagements").Range("A:A").End(xlUp).Row + 1
    Me.TnumInc.Value = NL
    End If

  4. #4
    Membre émérite
    Avatar de fred65200
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    901
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 901
    Par défaut
    bonjour,

    Je n'utiliserai que le bouton "valider" et son Tag
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub BtnValider_Click()
    BtnValider.Tag = BtnValider.Tag + 1
    MsgBox BtnValider.Tag
    Unload Me
    End Sub
    @+

  5. #5
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Bonjour,

    Le Tag correspond à quoi exactement ? Il faut bien récupérer un numéro dans un TextBox que je dois récupérer lors de l'édition d'une feuille.
    Désolé, mais je ne comprends pas.

  6. #6
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    ça marche à peu prés avec ce bout de code.
    En fait si la cellule A6 de la feuille "Engagements" est vide, alors leTextBox(TnumInc) prend le n°1.
    Ensuite, TnumInc reprend le N° VopNum et ajoute 1.
    Par contre, lorsque je ferme l'UserForm, il ne reprend pas le dernier numéro enregistrer.
    Où ai-je commis une erreur ?
    Merci par avance
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    vrésul = Format(VopNum, "0")
    If Sheets("Engagements").Range("A6").Value = "" Then
    FrmEngt.TnumInc = "1"
    Else
    FrmEngt.TnumInc = VopNum + 1
    End If

  7. #7
    Membre émérite
    Avatar de fred65200
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    901
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 901
    Par défaut
    bonjour, que tu récupères un numéro dans un textbox ou dans le tag d'un bouton, ou est la différence?

  8. #8
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Bonjour,

    Le problème est que je ne sais pas ce qu'est un tag ?

  9. #9
    Membre émérite
    Avatar de fred65200
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    901
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 901
    Par défaut
    re

    @+

  10. #10
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Je viens de lire l'aide, mais je ne vois pas comment je peux l'appliquer à mon cas.
    Je ne comprends pas l'exemple fournit.
    Désolé

  11. #11
    Membre émérite
    Avatar de fred65200
    Profil pro
    Inscrit en
    Septembre 2007
    Messages
    901
    Détails du profil
    Informations personnelles :
    Âge : 58
    Localisation : France

    Informations forums :
    Inscription : Septembre 2007
    Messages : 901
    Par défaut
    bonjour,

    prends l'exemple de Fvandermeulen, avec une cellule dans une feuille masquée par exemple et tu pourras retrouver ta valeur partout dans ton code.
    Cordialement

  12. #12
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Par défaut
    Ok, ok je commence à comprendre. Je suis du genre diésel, il faut que je chauffe longtemps pour bien rouler.
    J'applique et je te dis ce qu'il en est.
    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Incrémenter une date dans un textbox
    Par mlrdeni dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 28/04/2013, 20h46
  2. Réponses: 2
    Dernier message: 12/08/2010, 14h55
  3. [c#]Gros text à afficher dans une textbox
    Par famemaur dans le forum ASP.NET
    Réponses: 3
    Dernier message: 04/05/2005, 10h12
  4. [batch] incrémentation dans une boucle for
    Par bart64 dans le forum Scripts/Batch
    Réponses: 4
    Dernier message: 08/09/2004, 20h05
  5. Réponses: 2
    Dernier message: 08/04/2004, 11h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo