OVH Cloud OVH Cloud

Select Case toujours sur Case Else

1 réponse
Avatar
Daniel
Bonjour,

J'ai un mini userform avec une combobox qui s'initialise très bien et
un bouton de validation.


Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("Listes!Nom_des_colonnes")
End Sub

Ensuite, je souhaite avec le bouton effectuer telle ou telle macro
suivant le choix dans la combo. Mon soucis c'est que j'ai
systématiquement la MsgBox du Case Else qui apparait comme si aucun des
Case ne pouvait convenir alors que la liste de la combo est faite au
départ avec un copier coller des noms des colonnes... d'où cela peut-il
venir ?

' Il n'y a que 2 choix d'indiqués dans le code là mais en fait j'en ai
plusieurs c'est la raison de l'utilisation du Select Case

Private Sub CommandButton1_Click()

Sheets("Feuil1").Activate
Range("F1").Value = ComboBox1.Value


Select Case ("F1")

Case "NomColonneC"
Call Macro1

Case "NomColonneF"
Call Macro2

Case Else
MsgBox "Ce n'est pas un nom de colonne connu"

End Select
End Sub

Mes macro1, macro2 sont dans le module, et elles fonctionnent lorsque je
les lance manuellement.
Dois-je les déclarer ailleurs ? ou est-ce mon code Select Case qui n'est
pas bon ?


Merci d'avance de votre aide

Daniel

1 réponse

Avatar
isabelle
bonjour Daniel,

essai comme ça,

Select Case Sheets("Feuil1").Range("F1")

ou

Select Case Sheets("Feuil1").[F1]

isabelle

Bonjour,

J'ai un mini userform avec une combobox qui s'initialise très bien et
un bouton de validation.


Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("Listes!Nom_des_colonnes")
End Sub

Ensuite, je souhaite avec le bouton effectuer telle ou telle macro
suivant le choix dans la combo. Mon soucis c'est que j'ai
systématiquement la MsgBox du Case Else qui apparait comme si aucun des
Case ne pouvait convenir alors que la liste de la combo est faite au
départ avec un copier coller des noms des colonnes... d'où cela peut-il
venir ?

' Il n'y a que 2 choix d'indiqués dans le code là mais en fait j'en ai
plusieurs c'est la raison de l'utilisation du Select Case

Private Sub CommandButton1_Click()

Sheets("Feuil1").Activate
Range("F1").Value = ComboBox1.Value


Select Case ("F1")

Case "NomColonneC"
Call Macro1

Case "NomColonneF"
Call Macro2

Case Else
MsgBox "Ce n'est pas un nom de colonne connu"

End Select
End Sub

Mes macro1, macro2 sont dans le module, et elles fonctionnent lorsque je
les lance manuellement.
Dois-je les déclarer ailleurs ? ou est-ce mon code Select Case qui n'est
pas bon ?


Merci d'avance de votre aide

Daniel