Ajout données à un tableau Excel

Accueil – Le CFO masqué Forums VBA Ajout données à un tableau Excel

Mots-clés : 

Affichage de 1 message (sur 1 au total)
  • Auteur
    Articles
  • #123916
    tdupont
    Participant

    Bonjour à toutes et à tous,

    Je viens vers vous car je bloque sur un sujet VBA, à mon avis simple pour vous ^^’

    J’explique mon problème.

    La 1er étape :

    Dans l’onglet 2, j’ai un tableau avec 10 colonnes.

    J’ai réussi à créer une macro qui ajoute automatiquement une ligne à ce tableau dès que je veux rajouter des données.

    Code ci dessous :

    “Sub AjoutLigneTab()

    ‘ AjoutLigneTab Macro


    Sheets(“Tableau”).Select
    Range(“CondTab”).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Range(“B6:K6”).Select
    Sheets(“Conditionnement article”).Select
    End Sub”

    Mon problème arrive à la 2ème étape :

    Dans l’onglet 1, j’ai des lignes (qui reprend les colonnes du tableau) dans lequel je rentre des données.
    Je souhaiterais que dès que je clique sur le bouton, les données arrivent dans les bonnes colonnes du tableau (onglet 2).

    J’ai fait cela avec ‘enregistrer une macro’ mais à chaque fois, les nouvelles données remplacent les précédentes.

    Code ci-dessous :

    Sub InscriptionData()

    ‘ InscriptionData Macro


    Sheets(“Tableau”).Select
    Range(“CondTab”).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=True
    Range(“B6:K6”).Select
    Sheets(“Conditionnement article”).Select
    Range(“B26”).Select
    Selection.Copy
    Sheets(“Tableau”).Select
    Range(“B6”).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets(“Conditionnement article”).Select
    Range(“C26”).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(“Tableau”).Select
    Range(“C6”).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets(“Conditionnement article”).Select
    Range(“D26:D33”).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(“Tableau”).Select
    Range(“D6”).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    Sheets(“Conditionnement article”).Select
    End Sub

    Par avance, je vous remercie de votre aide.

    Théo

Affichage de 1 message (sur 1 au total)
  • Vous devez être connecté pour répondre à ce sujet.