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 :

recuperer valeur d'une cellule vers 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é
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    89
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 89
    Par défaut recuperer valeur d'une cellule vers textbox
    Bonjour,
    je souhaiterais récuperer la valeur de la derniere cellule d'une colone vers une textbox

    je m'explique j'ai une userform que je remplie avec plusieurs données a renseigner dès que j'ai tout renseigner les valeurs sont incrementé dans une feuille
    j'ai une textbox ou je souhaiterais recuperer la valeur de la derniere cellule +1 de la colonne T

    Pouvez-vous m'aider?

  2. #2
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour fullmetalknet le forum pourquoi plus 1?? un exemple simple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    TextBox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    89
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 89
    Par défaut
    +1 pour avoir une numero de commande different

    sinon comment faire pour que la textbox est la valeur a initialization de l'userform?

  4. #4
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    re, pour l'avoir a l'ouverture de ton user 2 possibilitées

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub UserForm_Initialize()
    Textbox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
    End Sub
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub UserForm_Activate()
    Textbox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
    End Sub
    par contre si tu modifie une fois ton user charge
    un exemple

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub CommandButton1_Click()
    Range("T" & Cells(Rows.Count, 20).End(xlUp).Row + 1) = 50
    Textbox1 = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row)
    End Sub

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    89
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 89
    Par défaut
    Merci laetitia!

    j'ai un peu modifier ton code pour avoir ce que je voulais!
    j'ai juste rajouter +1 a la fin de ton code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    Sheets("Feuil3").Select
    TextBox1.Value = Range("T" & Cells(Rows.Count, 20).End(xlUp).Row) + 1
    en essayant le code je me suis aperçu que ca ne fonctionnait pas comme je voulais!

    je n'y avai pas pensé ! désolé!

    j'explique mon cas

    j'ai une feuille 3 qui me sert pour les actions que je dois appliquer

    quand ses actions sont effectuer elles sont valider et coller sur la feuille 2, elles sont supprimer de la feuille 3

    si je rajoute une action sur la feuille 3 elle reprendra forcement le meme numero

    est-il possible que prendre le numero le plus élevé entre la feuille 2 et la feuille 3?

    j'espere que je suis assez explicite!!

    merci

  6. #6
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    re, comme cela pas si simple assez abstrait!! pour moi
    je suppose que le numero tu le reportes sur la feuille 2 en colonne T a la suite
    c'est a ce niveau qu'il faut adapter!!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub UserForm_Initialize()
     Dim x As Long, z As Long
       Sheets("Feuil3").Select
          x = Sheets("Feuil3").Range("t65536").End(xlUp).Rows
          z = Sheets("Feuil2").Range("t65536").End(xlUp).Rows
       If x > z Then TextBox1 = x + 1 Else TextBox1 = z + 1
    End Sub

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

Discussions similaires

  1. Récupérer la valeur d'une cellule vers un textbox
    Par RMA1969 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 29/12/2014, 20h41
  2. recuperer valeur d'une cellule
    Par misakilou dans le forum jQuery
    Réponses: 1
    Dernier message: 28/04/2011, 16h04
  3. Recuperer valeur d'une cellule sur double clic sur la ligne
    Par boboss123 dans le forum Composants
    Réponses: 2
    Dernier message: 18/01/2010, 08h54
  4. [XL-2007] Recuperation de données de cellule vers textbox selon condition
    Par dodo28 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/08/2009, 15h45
  5. couleur de police d'une cellule vers textbox
    Par fabrice44 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 17/05/2008, 23h32

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