Sélectionner un tableau de taille variable

Bonjour à toutes et à tous,

Je suis entrain de créer une macro pour créer des indicateurs de performance d'une base de données.

Cette base de donnée va varier toute les semaines et il me faut exécuter cette macro toute les semaines avec toutes les valeurs.

Lors du démarrage de cette macro, je crée un tableau de toutes ces données. Cependant, dans mon code, la taille du tableau ne varie pas en fonction des données, la taille est figée.

J'aimerais que la taille de mon tableau s'adapte aux nombre de lignes qui seront rajoutées dans le temps.

Mon début de code est :

Columns("C:D").Select

Selection.EntireColumn.Hidden = True

Columns("B:E").Select

Selection.EntireColumn.Hidden = False

Range("D4").Select

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$1:$AK$55015"), , xlYes).Name _

= "Tableau1"

Range("B1:AK55015").Select

Columns("C:D").Select

Selection.EntireColumn.Hidden = True

Columns("F:M").Select

Selection.EntireColumn.Hidden = True

Columns("O:R").Select

Selection.EntireColumn.Hidden = True

Columns("T:AK").Select

Selection.EntireColumn.Hidden = True

Range("AL1").Select

ActiveCell.FormulaR1C1 = "Année"

Comme vous pouvez le voir, le tableau que je crée est fixe ici.

Je vous remercie par avance du temps que vous prendrez à corriger mon problème.

Si ce n'est pas clair faites le moi savoir et je vous répondrai du mieux possible.

Simon

Salut,

Il vaudrait 100 fois mieux nous envoyer un fichier - même un fichier exemple, mais parfaitement correspondant à ton fichier réel - plutôt qu'un bout de macro probablement enregistrée.

Tout d'abord on pourrait te proposer un code un peu plus simple et dynamiser ta recherche de données.

Amicalement.

Bonjour,

C'est vrai mais je ne peux pas vous envoyer mon fichier. J'aimerais juste que la macro s'adapte à la taille du fichier (augmentation de lignes) à chaque fois que je retélécharge la nouvelle base de données.

Amicalement,

Simon

Ok, pas de problème pour moi si tu ne peux pas fournir un fichier exemple.

Bonne continuation.

Rebonjour Yvouille,

J'ai formaté le fichier pour toi,

J'ai enlevé les éléments importants en les remplaçant par des nombre mais ça n'a que peu d'importance.

Je te fourni le fichier.

Bien à toi,

Simon

9exemple.7z (111.85 Ko)

Bonsoir tout le monde,

J'aurais besoin d'un petit coup de pouce.

Je vous remercie d'avance,

Simon

Bonjour,

Ton fichier en retour au format .xlsm (Excel 2007+)

Alt F8, exécuter la procédure CreateTable.

A te relire.

Cdlt.

20simon-lbb.xlsm (24.71 Ko)
Public Sub CreateTable()
Dim wb As Workbook
Dim ws As Worksheet
Dim lo As ListObject
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets("Results")
    With ws
        .Cells(38).Value = "Année"
        Set lo = ws.ListObjects.Add(xlSrcRange, .Cells(2).CurrentRegion, , xlYes)
    End With
    With lo
        .Name = "Table1"
        .TableStyle = ""
        With .HeaderRowRange
            .Cells(1, 2).Resize(, 2).EntireColumn.Hidden = True
            .Cells(1, 5).Resize(, 8).EntireColumn.Hidden = True
            .Cells(1, 14).Resize(, 4).EntireColumn.Hidden = True
            .Cells(1, 19).Resize(, 18).EntireColumn.Hidden = True
        End With
    End With
End Sub

Salut Jean-Eric,

Merci d'être intervenu sur ce fil, mais je n'aurais quand même pas laissé tomber Simon du moment qu'il avait fourni un fichier

Bonjour à vous deux,

Merci énormément Jean-Eric c'est exactement ce qu'il me faut.

Merci aussi à toi Yvouille, je suis certain que tu auras l'occasion de m'aider dans le futur

Je teins vraiment à souligner la réactivité et la justesse des membres de ce forum qui sont tout simplement top.

Simon

Bonjour,

Bonjour Yvouille,

Rien de t'empêchait de faire une contre-proposition.

Le forum apprécie la diversité des interventions et des réponses.

Cdlt.

Rebonjour,

Je me permets de recréer un sujet avec la suite de mon code qui, je pense, mérite d'être amplement simplifié.

Simon

Rechercher des sujets similaires à "selectionner tableau taille variable"