Inputbox

Bonjour a tous,

J 'aurais besoin de votre aide car malgré mes recherches je ne sais pas comment faire .

actuellement sur l'exemple du code ci dessous me permet de rentrer une seule valeurs dans inputbox c'est a dire A.B.C.D.E OU F

et ensuite ma macro s'execute selon la condition.

alors ce que je souhaite faire c'est saisir dans inputbox par exemple "A" , et "F" .

ensuite ma macro s'execute que sur les conditions A et F

Merci d'avance.

message = "Entrer "A"ou 'B Ou 'C' Ou 'D' Ou 'E' Ou 'F'  : "
    Title = "track number type:"
    runType = InputBox(message, Title, default1)
    runType = UCase(runType)

    if runType = "A" Then
    'suite du code....

    if runType = "F" Then
    'suite du code....

    

Bonsoir,

Tu peux indiquer la possibilité de choisir plusieurs lettres séparées par des espaces, et à la sortie de l'InputBox (dont il conviendrait de vérifier que la valeur renvoyée n'est pas vide ("")), tu transformes la saisie en tableau :

runType = Split(UCase(runType))

que tu peux ensuite traiter en boucle :

    For i = 0 To UBound(runType)
        Select Case runType(i)
            Case "A"

            Case "B"

            '...
        End Select
    Next i

Cordialement.

Merci Mferrand .

Je test et reviens vers toi pour le resultat.

Encore merci