Contrôler une variable qui n'existe pas dans la liste

Cydor007

XLDnaute Occasionnel
Bonjour,

à Chaque fois que je rentre un nom de feuille qui n'existe pas dans mon combobox, je vois toujours cette erreur:

Erreur d'exécution 9, L'indice n'appartient pas à la sélection.

J'aimerais mettre une condition que si l'utilisateur écrit un nom de feuille qui n'existe pas, un message apparaît et qui mentionne recommencez. Donc, si la condition est vrai, le message recommencez apparait et on revient au combobox sans avoir d'erreur.

Merci de votre collaboration

Cydor007:):)
 

Pièces jointes

  • Tables.xlsm
    20.4 KB · Affichages: 23
  • Tables.xlsm
    20.4 KB · Affichages: 23
  • Tables.xlsm
    20.4 KB · Affichages: 25

job75

XLDnaute Barbatruc
Re : Contrôler une variable qui n'existe pas dans la liste

Bonjour Cydor007,

Perso je suis contre les messages à tout va, ça agace inutilement.

Voyez par exemple :

Code:
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then _
  ComboBox1 = "": ComboBox1.DropDown Else Sheets(ComboBox1.Text).Activate
End Sub
A+
 

Cydor007

XLDnaute Occasionnel
Re : Contrôler une variable qui n'existe pas dans la liste

Bonjour Cydor007,

Perso je suis contre les messages à tout va, ça agace inutilement.

Voyez par exemple :

Code:
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then _
  ComboBox1 = "": ComboBox1.DropDown Else Sheets(ComboBox1.Text).Activate
End Sub
A+

Bonjour job75,

Après validation, cela marche à merveille.

De plus je vais suivre ton conseil et laisser faire pour le message.

Passe une belle journée.

Cydor007:D:D
 

Discussions similaires

Statistiques des forums

Discussions
312 356
Messages
2 087 561
Membres
103 590
dernier inscrit
Picsou74