crée tableau avec VBA

Version imprimable

06/08/2015, 22h15
sawsliders

crée tableau avec VBA

Bonjour,

Alors sa fait longtemps que j'ai pas posté pour demandé un coup de main, (beaucoup de boulot).

Alors j'aurais besoin si possible d'une macro qui crée un tableau dans excel avec des dimensions dynamiques.

Actuellement, mon champs de départ pour mon tableau est B4, et il vas jusqu'à la colonne AG

Le soucis que j'ai c'est que la quantité de ligne est variable, très variable et qui m'oblige à crée une macro avec une formule qui permet de la rendre aléatoire la fin du tableau.

J’espère m'avoir fait comprendre.

Pour information âpres le tableau il n'y a aucune autre information dans les lignes suivantes (si sa peux vous aidé a définir la hauteur du tableau)

certain dans d'autres postes m'ont fait prendre la solution de changé ma maniéré de travaille mais j'ai trop de formules derrière qui sont dépendante de ce tableau.

En espérant avoir une réponse.

Avez vous besoin d'autre information ?

Bonjour,

J'ai de la peine à comprendre ce que tu souhaites !

Tu veux savoir quelle est la plage couverte par ton tableau ?
Ceci pour définir la plage à partir de A1 jusqu'à la dernière cellule utilisée dans ta feuille (la plus en bas et/ou la plus à droite) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Plage()
 
    Dim Plage As Range
 
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), _
                    .Cells(.Cells.Find("*", .[A1], -4123, , _
                    1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
 
    End With
 
    MsgBox Plage.Address(0, 0)
 
End Sub

Pour la dernière ligne d'une colonne (ici A) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Ligne()
 
    Dim Lgn As Long
 
    With ActiveSheet
 
        'sur la colonne A
        Lgn = .Cells(.Rows.Count, 1).End(xlUp).Row
 
    End With
 
    MsgBox Lgn
 
End Sub

et pour la dernière colonne d'une ligne (ici 1) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Colonne()
 
    Dim Col As Long
 
    With ActiveSheet
 
        'sur la ligne 1
        Col = .Cells(1, .Columns.Count).End(xlToLeft).Column
 
    End With
 
    MsgBox Col
 
End Sub

Hervé.

07/08/2015, 09h24
sawsliders

Bonjour,

Merci tout d'abord d'avoir cherché à me comprendre ainsi que à m’aide dans ma quette du grall.

Enfaite non je voudrais crée un tableau (fonction dans excel dans insertion) mais pour détermine la zone qui vas composé le tableau je dois lui dire cellule départ (B4:AGx) donc X est variable. si j'enregistre la macro il me prend juste une zone prédéfini et du coup s'il me manque des lignes sa fout tout en l'air.