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 :

Stocker données d'un Userform [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Septembre 2009
    Messages
    54
    Détails du profil
    Informations forums :
    Inscription : Septembre 2009
    Messages : 54
    Par défaut Stocker données d'un Userform
    Bonjour à tous !

    J'ai crée un formulaire sous excel à l'aide d'un Userform seulement il faut que je stock les données entrées dans une ligne, ce que je ne sais pas faire. C'est pourquoi je vous demande votre aide! J'espère avoir été assez clair dans ma demande.

    Merci.

  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
    Salut,
    Ou j'ai un gros problème de PC ou ton fichier joint est comlètement "vide"
    Quoi qu'il en soit, pour ton cas, on imagine un bouton 'valider' (CommandButton) sur ton Userform, c'est sur ce bouton qu'on associe l'évènement (l'exemple sans avoir renommé les éléments):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub CommandButton1_Click()
     
    Dim DerLig As Long
     
    'récupère la dernière ligne remplie sur base de la colonne A
    DerLig = Sheets("sheet1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
     
    'Place la valeur de la combobox dans la première cellule vide de la colonne A
    Sheets("Sheet1").Cells(DerLig + 1, 1) = UserForm1.ComboBox1.Value
     
    End Sub
    Reste à adapter pour ton cas...

    A+

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

Discussions similaires

  1. Tableau , stocker données
    Par marty499 dans le forum Général JavaScript
    Réponses: 21
    Dernier message: 16/06/2008, 12h29
  2. Réponses: 2
    Dernier message: 19/03/2008, 15h27
  3. Modification de base de données ouvre un userform? possible?
    Par jon2050 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/11/2007, 23h56
  4. [VBA Excel] Un problème de recopie des données de l'userform
    Par Viper7 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/06/2006, 15h48
  5. Réponses: 35
    Dernier message: 18/05/2006, 19h30

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