Discussion :

[thibaudgreens]

Bonjour,

J'ai un fichier excel qui contient une macro pour ouvrir un autre fichier excel. Ce deuxième fichier excel est un fichier extrait de mon outil de travail. Ce fichier contient des titres avec des champs par exemple : Nom prénom adresse etc etc. Ces informations doivent être classées dans un tableau.
J'aimerai que ce tableau soit défini automatiquement en fonction de la dernière ligne rempli en A par exemple A25 et qu'il se termine par la dernière colonne rempli par exemple BG25

Pour le premier fichier excel la macro fonctionne parfaitement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
    Dim classeur As Workbook
 
        With Application.FileDialog(1)
            .AllowMultiSelect = False
            If .Show = -1 Then Set classeur = Workbooks.Open(.SelectedItems(1))
        End With
 
        If Not classeur Is Nothing Then MsgBox classeur.Name
 
End Sub

Pour le second j'ai fait une macro (via le bouton sur excel --") qui me regroupe toute ces données dans un tableau.
Mais les fichiers excel que j'extrait chaque semaine ne fait pas forcement toujours la meme taille.
Parfois j'ai 20 personnes avec 6 colonnes, parfois 15 personnes avec 8 colonnes.

J'aimerai comprendre comment faire une macro qui détermine la plage du tableau automatiquement.

Voici le code ou je cré un tableau de A1 à BG26 alors que j'aimerai qu'il calcule tout seul que le tableau va de tant à tant... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BG$26"), , xlYes).Name = _
        "Tableau1"
    Range("Tableau1[#All]").Select

Ce que j'aimerai c'est qu'il détermine tout seul la dernière colonne (BG) et la dernière ligne (26) en faisant un if empty -1 par exemple.
J'espere que vous comprendrez ma demande.

Merci

[thibaudgreens]

Je pourrai par exemple faire cela pour la colonne A ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
derniereLigne = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A

Et ceci pour la dernière colonne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
derniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column 'n° de la dernière colonne non vide de la ligne 1

Mais comment modifier ma syntaxe de création de tableau ?

Merci a vous

[Qwazerty]

Salut

Un truc comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test()
    Dim classeur As Workbook
    Dim LastRow As Long, LastCol As Integer
 
        With Application.FileDialog(1)
            .AllowMultiSelect = False
            If .Show = -1 Then
                Set classeur = Workbooks.Open(.SelectedItems(1))
                'On pointe le classeur
                'Il faudra adapter la feuille, voir même boucler pour faire toutes les feuillles?
                With classeur.Worksheets(1)
                    'On cherche la dernière ligne (de la colonne A)
                    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
                    'Idem pour la colonne
                    'Ici la ligne controler est la ligne 1, a adapter selon le besoin
                    LastCol = .Cells(1, .Columns.Count).end(xltoleft).Column
                End With
 
        End With
 
        If Not classeur Is Nothing Then MsgBox classeur.Name
 
End Sub

Je n'ai pas testé le code

Tu as aussi UsedRange qui peut t'aider à déterminer la plage de cellules utilisée dans une feuille mais regarde bien l'aide pour avoir les détails

++
Qwaz

[thibaudgreens]

Merci pour ta réponse.
Ok mais la ca ne me cré pas mon tableau ?
Il me manque juste le code pour ajouter LastCol et LastRow à la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BG$26"), , xlYes).Name = _
        "Tableau1"

[Qwazerty]

Re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Test()
    Dim classeur As Workbook
    Dim LastRow As Long, LastCol As Integer
 
        With Application.FileDialog(1)
            .AllowMultiSelect = False
            If .Show = -1 Then
                Set classeur = Workbooks.Open(.SelectedItems(1))
                'On pointe le classeur
                'Il faudra adapter la feuille, voir même boucler pour faire toutes les feuillles?
                With classeur.Worksheets(1)
                    'On cherche la dernière ligne (de la colonne A)
                    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
                    'Idem pour la colonne
                    'Ici la ligne controler est la ligne 1, a adapter selon le besoin
                    LastCol = .Cells(1, .Columns.Count).Column
                    'On crée le tableau
                    With .ListObjects.Add(xlSrcRange, .Range("A1", .Cells(LastRow, LastCol)), , xlYes)
                        .Name = "Tableau1"
                    End With
                End With
 
        End With
 
        If Not classeur Is Nothing Then MsgBox classeur.Name
End Sub

Tu peux tester ça aussi, par contre il faut bien que le tableau commence en A1 (ça c'est bon) et il ne faut pas que la feuille contienne autre chose que ton tableau (?).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub TestBis()
    Dim classeur As Workbook
    Dim LastRow As Long, LastCol As Integer
 
        With Application.FileDialog(1)
            .AllowMultiSelect = False
            If .Show = -1 Then
                Set classeur = Workbooks.Open(.SelectedItems(1))
                'On pointe le classeur
                'Il faudra adapter la feuille, voir même boucler pour faire toutes les feuillles?
                With classeur.Worksheets(1)
                    'On crée le tableau
                    With .ListObjects.Add(xlSrcRange, .UsedRange, , xlYes)
                        .Name = "Tableau1"
                    End With
                End With
 
        End With
 
        If Not classeur Is Nothing Then MsgBox classeur.Name
End Sub

++
Qwaz

[eriiic]

Bonjour

S'il n'y a ni ligne vide, ni colonne vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[A1].currentregion

te donne le Range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[A1].currentregion.address

te donne la référence de la plage
eric

Qwazerty : je me méfie de usedRange, il faudrait avoir eu un exemple de ses fichiers