Problème redimensionnement auto tableau

Bonjour,

Depuis peu, je rencontre un soucis avec mes tableaux. J'ai créé un userform qui alimente un tableau sur une feuille excel. Jusqu'à hier, la dernière ligne était prise en compte dans le "cadre" du tableau mais maintenant plus rien. Je suis à chaque fois obligé d'utiliser la poignée pour le redimensionner.

Je ne sais pas ca vient de macro ou alors si c'est tout simplement une option à activer.

Je vous mets en piece jointe un fichier avec lequel j'ai le même problème.

Pourriez-vous me venir en aide svp? Merci d'avance

Hello,

Étrange. Je viens de tester ton bouton. Cela fonctionne bien chez moi. La valeur de l'useform est bien intégrée en dessous de la dernière ligne du tableau qui s'agrandit en conséquence.

Quel est ton soucis exactement ?

Ce qui m'embête le plus, c'est que le tableau ne s'agrandisse pas automatiquement. Je dois utiliser à chaque fois la poignée du du coup mes données ne s'affiche pas sur mes autres feuilles si j'oublie de le faire. Ça peut venir d'une option non cochée ou d'un bug?

Bonjour,

Essaie ainsi, mais tu auras peut-être des surprises avec Excel 2007.

Cdlt.

Private Sub CommandButton1_Click()
Dim ws As Worksheet, _
    lo As ListObject, _
    rCell As Range

    Set ws = ActiveWorkbook.Worksheets("Feuil1")
    Set lo = ws.ListObjects(1)
    If lo.InsertRowRange Is Nothing Then
        Set rCell = lo.HeaderRowRange.Cells(1).Offset(lo.ListRows.Count + 1)
    Else
        Set rCell = lo.InsertRowRange.Cells(1)
    End If
    rCell.Value = TextBox1.Value

    Set rCell = Nothing: Set lo = Nothing: Set ws = Nothing

End Sub

Bonjour,

Merci Jean Eric pour le code, je viens de l'essayer mais le problème est toujours présent. Je ne sais vraiment pas quoi faire pour résoudre ce problème...

Bonjour,

Un nouvel essai.

Cordialement.

Private Sub CommandButton1_Click()
Dim ws As Worksheet, _
    lo As ListObject, _
    rCell As Range, _
    user_setting As Long

    With Application
        user_setting = .AutoCorrect.AutoExpandListRange
        .AutoCorrect.AutoExpandListRange = True
    End With

    Set ws = ActiveWorkbook.Worksheets("Feuil1")
    Set lo = ws.ListObjects(1)
    If lo.InsertRowRange Is Nothing Then
        Set rCell = lo.HeaderRowRange.Cells(1).Offset(lo.ListRows.Count + 1)
    Else
        Set rCell = lo.InsertRowRange.Cells(1)
    End If
    rCell.Value = TextBox1.Value

    Application.AutoCorrect.AutoExpandListRange = user_setting

    Set rCell = Nothing: Set lo = Nothing: Set ws = Nothing

End Sub

Merci Jean Eric mais ne t'embête plus avec les codes vba, j'ai trouvé la solution.

En fait, c'était juste un problème de configuration de recopie de cellule. J'avais dû faire une mauvaise manip hier en ajoutant des colonnes dans le tableau.

J'ai eu un peu de chance pour régler le problème.

Je vais essayer d'être clair dans mon explication...

Après avoir vidé mon tableau complètement (étape non-obligatoire ),j'ai renseigné plusieurs lignes de mon tableau manuellement. Ensuite j'ai mis une formule dans une des cellule de la première ligne, un petit éclair "option de correction automatique" est apparu pour les cellules des lignes suivantes et là "MIRACLE", dans les contrôles, la case "ajouter des lignes et colonnes automatiquement" était tout simplement désactivée.

Quel soulagement!!!

Merci encore pour vos contributions.

En passant, je tenais à dire que ce forum est vraiment une mine d'information. Bravo et merci à tous de partager vos connaissances.

Re,

Cela ne dit pas si mon second code était fonctionnel.

Lrocédure vérifie que tes options Excel permettent le redimensionnement automatique du tableau.

 With Application
        user_setting = .AutoCorrect.AutoExpandListRange
        .AutoCorrect.AutoExpandListRange = True
    End With

Cdlt.