Tableau avec VBA EXCEL

Bonjour à tous,

je veux faire une macro vba qui affiche les nombres entiers de 1 à x (x sera entré par l'utilisateur)
avec le code ci-joint
mais au moment d'afficher la msgbox il me sort un message d'erreur

Pièce jointe 627518

Pièce jointe 627516

quelqu'un pourrait m'aider svp .

Bonjour Makrov

2 choses :
1) On ne nomme pas une Sub du nom d'une variable 😱
2) Si on veut utiliser Join() avec du texte, il faut que le tableau soit du texte ;)

Code:

---

1 2 3 4 5 6 7 8

Sub DonneTableau() Dim Tableau() As String, X As Integer, I As Integer X = InputBox("Entrez un nombre") For I = 1 To X ReDim Preserve Tableau(I) Tableau(I) = 1 Next I MsgBox Join(Tableau, " ") End Sub

---

A+

merci beaucoup BrunoM45 ,ça marche très bien