Select Case sans End Select
J
Bonjour tout le monde,
Je fais de la VBA depuis peu et je me débrouille en prenant des morceaux de code à droite et à gauche en les assemblant pour faire ce que j'ai besoin de faire.
Actuellement, j'ai besoin de créer un outil de mailing sur Excel avec différents niveau de sélection, sous ce schéma :
A
- - A1
- - - - A1a
- - - - A1b
...
- - - - A1f
- - A2
- - - - A2a
- - - - A2b
- - - - A2c
- - - - A2d
- - A3
B
- - B1
- - B2
- - B3
- - B4
C
- - C1
- - C2
D
- - D1
...
- - D12
Chaque choix doit mener à un mail dont le texte et l'objet sont différents.
Le code que j'ai écrit fonctionne sur les 2 premiers niveaux (A et A1), mais dès que j'ajoute le 3ème niveau (A1a etc), j'ai le message "Select Case sans End Select" alors que je ne trouve aucun Case Select posant problème.
Le code VBA qui me pose problème est le "Test_2"
Merci par avance de votre aide !
Je fais de la VBA depuis peu et je me débrouille en prenant des morceaux de code à droite et à gauche en les assemblant pour faire ce que j'ai besoin de faire.
Actuellement, j'ai besoin de créer un outil de mailing sur Excel avec différents niveau de sélection, sous ce schéma :
A
- - A1
- - - - A1a
- - - - A1b
...
- - - - A1f
- - A2
- - - - A2a
- - - - A2b
- - - - A2c
- - - - A2d
- - A3
B
- - B1
- - B2
- - B3
- - B4
C
- - C1
- - C2
D
- - D1
...
- - D12
Chaque choix doit mener à un mail dont le texte et l'objet sont différents.
Le code que j'ai écrit fonctionne sur les 2 premiers niveaux (A et A1), mais dès que j'ajoute le 3ème niveau (A1a etc), j'ai le message "Select Case sans End Select" alors que je ne trouve aucun Case Select posant problème.
Le code VBA qui me pose problème est le "Test_2"
Merci par avance de votre aide !
bonjour JM_Julien, comme ça (mais peut-être plus facile avec un menu déroulant)
Sub OK2()
Dim userInput As String
' Show the initial input box with three options
userInput = InputBox("Please select an option:" & vbCrLf & _
"1. Option A" & vbCrLf & _
"2. Option B" & vbCrLf & _
"2. Option C" & vbCrLf & _
"3. Option D")
' Check the selected option and display the subsequent options
Select Case userInput
Case "1" ' Option A selected
userInput = InputBox("Please select an option:" & vbCrLf & _
"1. Sub-option A1" & vbCrLf & _
"2. Sub-option A2" & vbCrLf & _
"3. Sub-option A3")
Select Case userInput
Case "1" ' Option A selected
userInput = InputBox("Please select an option:" & vbCrLf & _
"1. Sub-option A1a" & vbCrLf & _
"2. Sub-option A1b" & vbCrLf & _
"3. Sub-option A1c jusqu'à f")
Case "2" ' Option A selected
userInput = InputBox("Please select an option:" & vbCrLf & _
"1. Sub-option A2a" & vbCrLf & _
"2. Sub-option A2b" & vbCrLf & _
"3. Sub-option A2c jusqu'à d")
' Process the selected sub-option A
Case "3"
MsgBox "il n'y a plus de choix"
Case Else: MsgBox "porlbème"
End Select 'fin pour le choix A *******************************
Case "2" ' Option B selected
userInput = InputBox("Please select an option:" & vbCrLf & _
"1. Sub-option B1" & vbCrLf & _
"2. Sub-option B2" & vbCrLf & _
"3. Sub-option B3" & vbCrLf & _
"4. Sub-option B4")
' Process the selected sub-option B
Select Case userInput
Case "1" ' Sub-option B1 selected
MsgBox "You selected Sub-option B1."
Case "2" ' Sub-option B2 selected
MsgBox "You selected Sub-option B2."
Case "3" ' Sub-option B3 selected
MsgBox "You selected Sub-option B3."
Case "4" ' Sub-option B4 selected
MsgBox "You selected Sub-option B4."
Case Else
MsgBox "Invalid sub-option selected."
End Select