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 :

Problème avec un textbox [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    technicien
    Inscrit en
    Janvier 2010
    Messages
    73
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : technicien
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2010
    Messages : 73
    Par défaut Problème avec un textbox
    Bonsoir,

    Débutant en macro excel, je vous demande de l'aide:

    j'ai un souci avec la valeur captée par le textbox1, quand je rentre un nombre à 1 chiffre, tout va bien, la macro me crée un colonne avec sa légende et la colonne entière avec la valeur captée. Le problème survient quand je rentre un nombre à 2 ou 3 chiffres, là je me retrouve avec 3 colonnes créées avec la même légende et 3 colonnes remplies de 2 pour la 1ère de 20 pour la 2ème et enfin 200 pour la 3ème.
    Ce que je cherche à faire c'est créer une colonne cible ou seuil afin de l'intégrer dans un graphique.

    Voici le code du textbox:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Private Sub TextBox1_Change()
     
    Dim MaFeuille As Worksheet
    Dim ligne As Long, ncol As Integer, nomfichier As String
    Dim L1 As Integer, T1 As String
     
    'récupération nom du fichier excel actif
    nomfichier = ActiveWorkbook.Name
     
    Workbooks(nomfichier).Worksheets("Feuil2").Range("h9") = UserForm1.TextBox1.Value
    L1 = Workbooks(nomfichier).Worksheets("Feuil2").Range("h9")
    T1 = Workbooks(nomfichier).Worksheets("Feuil2").Range("h10")
     
    'permet de faire reference a la feuille sans avoir a tout taper
    Set MaFeuille = Workbooks(nomfichier).Worksheets("Feuil1")
     
    'detection nombre lignes & colonnes
    ncol = MaFeuille.Cells(13, "F").End(xlToRight).Column
    ligne = MaFeuille.Cells(Rows.Count, "F").End(xlUp).Row
     
    'Stopper le rafraichissement
        Application.ScreenUpdating = False 'il se remet a true a la fin de la procédure en cours
     
    'copie la légende T1 correspodant à la limite L1
    Workbooks(nomfichier).Worksheets("Feuil1").Cells(13, ncol + 1) = T1
    'rempli la colonne avec la valeur de la limite L1
    Workbooks(nomfichier).Worksheets("Feuil1").Range(Cells(14, ncol + 1), Cells(ligne, ncol + 1)) = L1
    Je suis ouvert à toutes suggestions afin d'améliorer et/ou épurer mon code.

    Merci

    Tremens

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    je n'ai pas vu tout le code
    mais au lieu de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub TextBox1_Change()
    qui s'exécute à chaque changement (écriture) de la textbox
    essaie
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Sub TextBox1_AfterUpdate()

  3. #3
    Membre confirmé
    Homme Profil pro
    technicien
    Inscrit en
    Janvier 2010
    Messages
    73
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : technicien
    Secteur : Santé

    Informations forums :
    Inscription : Janvier 2010
    Messages : 73
    Par défaut
    Merci, je teste de suite...

    super, la macro marche...merci

    Tremens

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

Discussions similaires

  1. Problème avec le textbox
    Par khalidche dans le forum VB.NET
    Réponses: 1
    Dernier message: 17/02/2014, 09h27
  2. Problème avec les textBox et ComboBox
    Par fdegrave dans le forum Excel
    Réponses: 8
    Dernier message: 09/05/2013, 15h59
  3. Problème avec un TextBox
    Par iandeleury dans le forum VB.NET
    Réponses: 6
    Dernier message: 28/02/2008, 16h13
  4. SqlDataSource problème avec le textbox.text
    Par Magjjy dans le forum ASP.NET
    Réponses: 3
    Dernier message: 04/10/2007, 11h54
  5. problème avec une textBox?
    Par UnSofteuxAmateur dans le forum Windows Forms
    Réponses: 1
    Dernier message: 05/07/2007, 21h30

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