InputBox : données de 1 à 5

bonsoir,

actuellement j'utilise une macro qui fonctionne tres bien mais par contre au niveau des inputbox je galere un peu a trouver la solution alors comme toujours je me trourne vers vous afin de m'aider

je vous explique : ce que je souhaiterai faire c'est lorsque je rentre dans mes inputbox les donnees qui peuvent varier de 1 inputbox a 5

que si par exemple 2 inputbox sont saisie lancer la fin du script sinon annule et seule 2 box sont lancer , alors que maintenant meme si je saisie 1 inputbox les 5 sont executer

If runType = "G" Then

Const max = 5

Dim addroute(5) As String

addroute(1) = InputBox("Entrer la Route   1")
addroute(2) = InputBox("Entrer la Route  2")
addroute(3) = InputBox("Entrer la Route   3")
addroute(4) = InputBox("Entrer la Route   4")
addroute(5) = InputBox("Entrer la Route   5")

Exchange = True

While Exchange

      Exchange = False

      For I = 1 To max

    .MoveCursor 3, 18
  .TransmitAnsi "o"
     .MoveCursor 3, 43
  .TransmitAnsi "c"
     .MoveCursor 3, 75
  .TransmitAnsi "c"
    .MoveCursor 8, 14
  .TransmitAnsi "00"
    .MoveCursor 8, 19
  .TransmitAnsi "00"
     .MoveCursor 8, 24
  .TransmitAnsi "05"
     .MoveCursor 8, 29
  .TransmitAnsi "00"
 .MoveCursor 8, 64
  .TransmitAnsi "cdg"

     .MoveCursor 14, 15
  .TransmitAnsi "cdghu"
     .MoveCursor 21, 46
  .TransmitAnsi "x"
     .MoveCursor 22, 51
  .TransmitAnsi "ippbg680"

  .MoveCursor 8, 3
    .TransmitAnsi newRtDate

    .MoveCursor 8, 54
    .TransmitAnsi newRtDate

     .MoveCursor 8, 45

     .TransmitAnsi addroute(I)

    .TransmitTerminalKey rcIBMEnterKey

        Next I

   Wend

  End If

salut,

Si j'ai bien compris, tu veux exécuter le code uniquement si les 5 inputbox sont remplies.

Si c'est ça, tu peux faire un test sur le contenu des inputbox

...
addroute(4) = InputBox("Entrer la Route   4")
addroute(5) = InputBox("Entrer la Route   5")

If addroute(1) = "" Or addroute(2) = "" Or addroute(3) = "" Or addroute(4) = "" Or addroute(5) = "" Then
    MsgBox "Vous devez compléter les 5 inputbox", vbApplicationModal + vbInformation, "Erreur"
    Exit Sub
End If

A+

Bonjour,

moi j'ai compris qu'il devait être possible d'introduire un nombre variable (de 1 à 5) de routes. Voici le code qui correspond à ma compréhension de la demande.

 Const max = 5

    Dim addroute(5) As String
    nr = 0 'nombre de routes introduites
    Do
        nr = nr + 1
        addroute(nr) = InputBox("Entrer la Route " & nr)
    Loop While addroute(nr) <> "" And nr < max
    nr = nr - 1

    For i = 1 To nr
        '....
    Next i

Merci pour ce code qui m'a permis de resoudre mon souci

Bon boulot comme toujours.

merci