Discussion :

[sawsliders]

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 ?

[Theze]

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 :

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
 
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 :

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

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 :

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

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é.

[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.