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 :

Insertion automatique de ligne dans plusieurs tableaux


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Avril 2011
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Insertion automatique de ligne dans plusieurs tableaux
    Bonjour,

    J'ai créé un tableau dans excel qui me sert de base de données à plusieurs autres tableaux du même classeur. J'ai nommé ce tableau Cost_Data et je l'ai copié sur d'autres feuilles (ex: Cost_Data2;Cost_Data3 etc)

    Aussi j'ai copié une macro qui me permet de saisir des données et de les insérer directement dans une ligne de Cost_Data. En fait, je recherche une macro qui me permettrai d'insérer automatiquement la nouvelle ligne du tableau Cost_Data, dans l'ensemble des tableaux de mon classeur.

    J'espère que je suis clair, je suis débutant mais très motivé pour comprendre comment tout ça fonctionne. En pièce jointe mon fichier excel.

    Merci par avance

    ps: des nouveaux tableaux sont susceptibles d'être crée par la suite
    ps2: J'ai envoyé mon fichier sans les macros, je n'arrive pas à envoyer un fichier sous format xlsm; comment faire pour joindre mes marcos?
    en tt cas, ma macro est la suivante (elle se lance en cliquant sur Nouveau Produit)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub CommandButton1_Click()
    Dim LR As ListRow
     
    Range("Cost_data[#Totals]").Select
    Set LR = Selection.ListObject.ListRows.Add(AlwaysInsert:=True)
    LR.Range.Cells(1, 1) = TextBox1
    LR.Range.Cells(1, 2) = CSng(TextBox2)
    LR.Range.Cells(1, 3) = TextBox3
    LR.Range.Cells(1, 4) = TextBox4
    LR.Range.Cells(1, 6) = Format$(TextBox5)
     
    Load Me
    End Sub
    Fichiers attachés Fichiers attachés

  2. #2
    Expert éminent Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Points : 9 548
    Points
    9 548
    Par défaut
    Bonjour,
    bien qu'il soit déconseillé d'envoyer un fichier dès le premier post, pour envoyer un"xlsm", tu fais un Zip ou tu enregistres une copie de ton fichier dans une version antérieure
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Avril 2011
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Insertion d'une ligne dans plusieurs tableaux
    Merci pour les conseils!

    En fait, serait-il judicieux, pour régler mon problème, d'utiliser une variable X pour déclarer mes tableaux (Cost_Data) et ensuite utiliser une boucle For...Each X Next afin de répéter l'insertion de ligne pour chacun de mes tableaux ??

    Si quelqu'un pouvait m'aider pour déclarer des variables qui sont susceptibles d'augmenter (car d'autres tableaux doivent être crées), se serait trop cool!

    Merci

Discussions similaires

  1. Réponses: 10
    Dernier message: 05/12/2013, 17h35
  2. [WD-2003] Insertion automatique de ligne dans tableau word après renvoi à la ligne
    Par melouille56 dans le forum VBA Word
    Réponses: 5
    Dernier message: 05/08/2009, 15h49
  3. insertion automatique de lignes dans la crontab
    Par Mr_Brown dans le forum Administration système
    Réponses: 2
    Dernier message: 27/03/2007, 14h03
  4. [W3C] saut de ligne dans les tableaux
    Par zulul dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 11/09/2005, 22h22
  5. Comment faire un retour a la ligne dans un tableaux Word
    Par alexmorel dans le forum API, COM et SDKs
    Réponses: 2
    Dernier message: 17/06/2004, 09h31

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