Générer des tableaux

Bonjour,

je maitrise très peu excel mais j'ai besoin de générer des tableaux en entrant un nombre le lignes et de colonnes.

Pour faire plus simple sur ma feuille il faudrait :

Nombre de lignes : XXX

Nombre de colones : XXX

et que le tableau a XXX lignes et XXX colonnes soit créé.

Merci beaucoup.

Bonjour SimonTmb, le forum,

Un exemple....

Sub Tablo()
 Dim a As Integer, b As Integer

 On Error GoTo 1                   'si erreur, allez à l'étape 1

 ActiveSheet.ListObjects("Tableau1").Delete   'efface le tableau nommé Tableau1
 1                                            'étape 1
  a = InputBox("Nombre de colonne: ")    'boite de dialogue Choix du nombre de colonnes
  b = InputBox("Nombre de lignes: ")     'boite de dialogue Choix du nombre de lignes

 ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1"), , xlNo).Name = _
        "Tableau1"                       'création du tableau nommé Tableau1 à partir de A1
 ActiveSheet.ListObjects("Tableau1").Resize Range(Cells(1, 1), Cells(b + 1, a)) 'dimensionnement du tableau1 en fonction de a et b
End Sub

CTRL + e pour exécuter la macro (créée à partir de l'enregistreur de macro).

Cordialement,