Excel VBA multiples tentatives pp

Bonjour,

première chose : bienvenue sur le forum !
Deuxième chose : vous vous êtes trompé de forum pour poser votre question, ici vous êtes sur le forum des applications Un modérateur de passage pourra éventuellement le déplacer au "bon endroit".
Troisième chose : pour un débutant, bravo ! Vous travaillez avec des tableaux structurés !

Mais le problème c'est que vous n'allez pas plus loin dans le travail de tel tableau, VBA regorge de fonction qui simplifie la tache quant à leur gestion !
Si dessous un code qui ajoute une ligne à un tableau structuré, puis remplie cette ligne avec les différentes données d'un USF.

Private Sub CommandButton1_Click()
    ' on dimensionne une variable Tableau structuré
    Dim MonTab As ListObject
    ' on dimensionne une variable Ligne de tableau structuré
    Dim lRow As ListRow
    ' on attribue à la variable tableau le premier tableau de la feuille Formulaire
    Set MonTab = Sheets("Formulaire").ListObjects(1)
    ' avec ce tableau
    With MonTab
        ' on attribue à la variable ligne, la ligne "nouvelle ligne" que l'on crée
        Set lRow = .ListRows.Add()
        ' avec cette ligne
        With lRow
            ' on lui attribue en colonne 1 de cette ligne la valeur de la combobox
            .Range.Cells(1).Value = Me.ComboBox1.Value
            ' on crée une boucle de 1 à 7 pour remplir les 7 autres colonnes avec les textbox adéquate
            For i = 1 To 7
                .Range.Cells(i + 1) = Controls("TextBox" & i).Value
            Next i
        ' on a fini de jouer avec la ligne
        End With
    ' on a fini de jouer avec le tableau
    End With
End Sub

Le Fichier :

Avec ceci vous devriez pouvoir avancer dans votre projet.

@ bientôt

LouReeD

Re bonjour,

suite au test de votre fichier, une fois la donnée sous le tableau effacée, votre code à l'air de fonctionner... Et ben après un deuxième test : non, c'est à rien n'y comprendre, on dirait que votre tableau ne s'agrandi pas automatiquement aux nouvelles données... Donc mieux vaut gérer avec les instruction spécifiques.

Sinon lors d'une recherche de la dernière cellule non vide de la colonne A, j'ai appris qu'il était préférable de partir "d'en-bas" et de remonter plutôt que l'utilisation de Down : Range("A" & Rows.Count).End(xlUp).Select, sélectionne la dernière cellule non vide de la colonne A.

@ bientôt

LouReeD

MILLE FOIS MERCI JE vais tester et revient vers vous.

non je suis nul pffff merci pour votre aide

SUJET RESOLUT UN GRANDDDDD MERCIIIII A VOUS