Discussion :

[Makrov]

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





quelqu'un pourrait m'aider svp .

[Invité]

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 :

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

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+

[Makrov]

merci beaucoup BrunoM45 ,ça marche très bien