Test sur un split

Bonjour,

J'utilise la fonction split pour separer des chiffres que l'utilisateur entre avec un inputbox. Normalement il y a 6 chiffres a rentrer pour que ma macro marche mais si un seul chiffre est rentré la macro provoque une erreur. J'aimerais faire des test sur le split mais je n'y arrive pas. voici mon code :

Dim prompt As String
prompt = InputBox("Ligne ?", "choix de ligne") 'La variable reçoit la valeur entrée dans l'InputBox
If prompt = "" Then Exit Sub
tableau = Split(prompt, " ")
If tableau(0) <> "" Then ligne1 = tableau(0)
If tableau(1) <> "" Then ligne2 = tableau(1)
If tableau(2) <> "" Then ligne3 = tableau(2)
If tableau(3) <> "" Then ligne4 = tableau(3)
If tableau(4) <> "" Then ligne5 = tableau(4)
If tableau(5) <> "" Then ligne6 = tableau(5)

J'aimerais que si l'utilisateur n'entre que 1 chiffre ou 2 le code se deroule quand meme.

cordialement,

Bonjour

Tu peux essayer ça

Sub test()
Dim prompt As String
  Do
    prompt = InputBox("Ligne ?", "choix de ligne") 'La variable reçoit la valeur entrée dans l'InputBox
    If prompt = "" Then Exit Sub
    tableau = Split(prompt, " ")
    If UBound(tableau) = 5 Then Exit Do
    MsgBox "Il faut 6 données"
  Loop

  If tableau(0) <> "" Then ligne1 = tableau(0)
  If tableau(1) <> "" Then ligne2 = tableau(1)
  If tableau(2) <> "" Then ligne3 = tableau(2)
  If tableau(3) <> "" Then ligne4 = tableau(3)
  If tableau(4) <> "" Then ligne5 = tableau(4)
  If tableau(5) <> "" Then ligne6 = tableau(5)

Bonjour,

merci pour ton code mais ce n'est pas exactement ce que je recherches. Là dans ton code si l'utilisateur ne rentre pas 6 valeurs alors il redemande le prompt. Moi ce que je voudrais c'est : Si l'utilisateur entre 1 valeur le code s'execute quand meme. Mais je ne peux pas faire de test sur tableau(1), tableau(2) ... erreur : l'indice n'appartient pas a la selection. J'aimerais verifier que tableau(1) soit créer sinon tableau(1) = 0, mais je n'y arrive pas.

Bonjour

Avant tes If .....

Places

On Error Resume Next

Je ne sais pas si c'est la meilleure solution car ne connaissant pas la finalité de ta macro, je ne sais pas si c'est une réponse adaptée