Remplir une BDD via un formulaire à partir des références tete de colonne

Bonjour, j'ai créé un formulaire de saisie qui remplit une base de données. Actuellement je me base sur les noms des colonnes A, B, C avec le code suivant qui marche parfaitement : ActiveCell.Offset(0, 0) = txtdate

Or j'aimerais pouvoir ajouter ou supprimer des colonnes sans décaler les références des têtes de colonne de mon tableau. Mon code actuel est le suivant :

txtdate = Range("Tableau3[Date]").Select

Or actuellement il ne marche pas du tout. Merci d'avance de votre aide

image

Bonjour, peux tu joindre ton fichier?

Bonjour, je suppose que Txtdate est une textbox ? vous voulez faire entrer le contenu d'une colonne dans une textbox ??

Il faut voir votre userform et ce que vous souhaitez faire ... Txtdate= ........ select ? pourquoi select ?

Oui bien sur, le voila

15suivivba.xlsm (71.88 Ko)

Bonjour,

Pour cela , il vous suffit d'utiliser la classe "ListObject" relative à un tableau structuré :

Private Sub Ajoutbase_Click()
    Dim i As Integer

    With Range("Tableau3").ListObject
        .ListRows.Add           'ajout d'une ligne vide à la fin du tableau
        i = .ListRows.Count     'dernière ligne du tableau
        .ListColumns("Date").DataBodyRange.Rows(i) = CDate(txtdate)
        .ListColumns("Num semaine").DataBodyRange.Rows(i) = Application.WorksheetFunction.WeekNum(Date)
        '......
    End With

Un petit lien informatif sur l'utilisation des tableaux structurés en VBA

https://www.excel-pratique.com/fr/astuces/tableau-structure

Super merci à tous ca marche parfaitement !!

Rechercher des sujets similaires à "remplir bdd via formulaire partir references tete colonne"