IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

ComboBox avec item action


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2008
    Messages : 35
    Par défaut ComboBox avec item action
    Bonjour,

    Merci de venir à mon secours. J'aimerais bien savoir comment peux-t-on faire un ComboBox avec plusieurs items et dès que l'on choisi un item, une feuille de calcul excel s'ajoute à mon workbook avec pour nom le nom de l'item choisi.

    Exemple.
    Toto1
    Toto2
    Toto3

    Si on choisi Toto1 et qu'on click sur un bouton Ok alors une nouvelle feuille s'ajoute avec pour nom Toto1.

    Merci bien pour votre aide.

  2. #2
    Membre Expert
    Avatar de JackOuYA
    Inscrit en
    Juin 2008
    Messages
    1 040
    Détails du profil
    Informations forums :
    Inscription : Juin 2008
    Messages : 1 040
    Par défaut
    bonjour,


    il va falloir que tu nous détaille ton probléme, où met tu ce combobox dans une feuille de calcul, un userform..., tes "toto.." il viennent d'ou .?

    bon le combobox dans un userform, la liste toto1.. ecrite dans l'activate de ce combobox cela donne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Private Sub ComboBox1_Change()
    On Error GoTo ErrFeuil 'Une erreur est généré si feuille n'existe pas
      ThisWorkbook.Sheets(ComboBox1.Text).Activate
      Exit Sub
    ErrFeuil:
     If Err = 9 Then
      ThisWorkbook.Sheets.Add
      ActiveSheet.Name = ComboBox1
     Else
       MsgBox "Erreur : " & Err & " " & Err.Description
     End If
    End Sub
     
    Private Sub UserForm_Activate()
      ComboBox1.AddItem "toto1"
      ComboBox1.AddItem "toto2"
      ComboBox1.AddItem "toto3"
    End Sub

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    35
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2008
    Messages : 35
    Par défaut
    Merci Jacques

    Formidable,
    Ta reponse correspond à mes attentes.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Charger une combobox avec Items.AddObject
    Par Delphi-ne dans le forum Composants VCL
    Réponses: 5
    Dernier message: 02/04/2015, 14h25
  2. [AC-2007] Sélectionner un item d'une combobox avec une valeur?
    Par Vhalar dans le forum VBA Access
    Réponses: 1
    Dernier message: 08/09/2011, 22h07
  3. [C#]ComboBox avec 30 000 items
    Par Knightrider dans le forum Windows Forms
    Réponses: 6
    Dernier message: 10/11/2009, 15h24
  4. Réponses: 3
    Dernier message: 06/02/2008, 22h35
  5. Réponses: 2
    Dernier message: 25/07/2007, 11h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo