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 :

Petit Problème d'éxècution


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Avril 2015
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Aisne (Picardie)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2015
    Messages : 5
    Par défaut Petit Problème d'éxècution
    Un petit problème avec mon code sachant que j'ai passé mes 2 combobox en style ( FmStyleDropDownList ):

    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
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    Private Sub CommandButton2_Click()
    Unload Me
     
    End Sub
     
    Private Sub UserForm_Initialize()
     
    ComboBox1.AddItem ("E001")
    ComboBox1.AddItem ("E002")
    ComboBox1.AddItem ("E003")
    ComboBox1.AddItem ("E004")
    ComboBox1.AddItem ("E005")
    ComboBox1.AddItem ("E006")
    ComboBox1.AddItem ("E007")
    ComboBox1.AddItem ("E008")
    ComboBox1.AddItem ("E009")
    ComboBox1.AddItem ("E010")
    ComboBox1.AddItem ("E011")
    ComboBox1.AddItem ("E012")
    ComboBox1.AddItem ("E013")
    ComboBox1.AddItem ("E014")
    ComboBox1.AddItem ("E015")
    ComboBox1.AddItem ("E016")
    ComboBox1.AddItem ("E017")
    ComboBox1.AddItem ("E018")
    ComboBox1.AddItem ("E019")
    ComboBox1.AddItem ("E020")
    ComboBox1.AddItem ("E021")
    ComboBox1.AddItem ("E022")
    ComboBox1.AddItem ("E023")
    ComboBox1.AddItem ("E024")
    ComboBox1.AddItem ("E025")
    ComboBox1.AddItem ("E026")
    ComboBox1.AddItem ("E027")
    ComboBox1.AddItem ("E028")
    ComboBox1.AddItem ("E029")
    ComboBox1.AddItem ("E030")
    ComboBox1.AddItem ("E031")
    ComboBox1.AddItem ("E032")
    ComboBox1.AddItem ("E033")
    ComboBox1.AddItem ("E034")
    ComboBox1.AddItem ("E035")
    ComboBox1.AddItem ("E036")
    ComboBox1.AddItem ("E037")
    ComboBox1.AddItem ("E038")
    ComboBox1.AddItem ("E039")
    ComboBox1.AddItem ("E040")
    ComboBox1.AddItem ("E041")
    ComboBox1.AddItem ("E042")
    ComboBox1.AddItem ("E043")
    ComboBox1.AddItem ("E044")
    ComboBox1.AddItem ("E045")
    ComboBox1.AddItem ("E046")
    ComboBox1.AddItem ("E047")
    ComboBox1.AddItem ("E048")
    ComboBox1.AddItem ("E049")
    ComboBox1.AddItem ("E050")
    ComboBox1.AddItem ("E051")
    ComboBox1.AddItem ("E052")
    ComboBox1.AddItem ("E053")
    ComboBox1.AddItem ("E054")
    ComboBox1.AddItem ("E055")
    ComboBox1.AddItem ("E056")
    ComboBox1.AddItem ("E057")
    ComboBox1.AddItem ("E058")
    ComboBox1.AddItem ("E059")
    ComboBox1.AddItem ("E060")
    ComboBox1.AddItem ("E061")
    ComboBox1.AddItem ("E062")
    ComboBox1.AddItem ("E063")
    ComboBox1.AddItem ("E064")
    ComboBox1.AddItem ("E065")
    ComboBox1.AddItem ("E066")
    ComboBox1.AddItem ("E068")
    ComboBox1.AddItem ("E069")
    ComboBox1.AddItem ("E070")
    ComboBox1.AddItem ("E071")
    ComboBox1.AddItem ("E072")
    ComboBox1.AddItem ("E073")
    ComboBox1.AddItem ("E074")
    ComboBox1.AddItem ("E075")
    ComboBox1.AddItem ("F001")
    ComboBox1.AddItem ("F002")
    ComboBox1.AddItem ("F003")
    ComboBox1.AddItem ("F004")
    ComboBox1.AddItem ("F005")
    ComboBox1.AddItem ("F006")
    ComboBox1.AddItem ("F007")
    ComboBox1.AddItem ("F008")
    ComboBox1.AddItem ("F009")
    ComboBox1.AddItem ("F010")
    ComboBox1.AddItem ("F015")
    ComboBox1.AddItem ("F016")
    ComboBox1.AddItem ("F017")
    ComboBox1.AddItem ("F018")
    ComboBox1.AddItem ("F019")
    ComboBox1.AddItem ("F207")
    ComboBox1.AddItem ("F208")
    ComboBox1.AddItem ("F209")
    ComboBox1.AddItem ("F210")
    ComboBox1.AddItem ("F211")
    ComboBox1.AddItem ("F212")
    ComboBox1.AddItem ("F219")
    ComboBox1.AddItem ("F220")
    ComboBox1.AddItem ("F221")
    ComboBox1.AddItem ("F222")
    ComboBox1.AddItem ("F223")
    ComboBox1.AddItem ("F224")
    ComboBox1.AddItem ("F225")
    ComboBox1.AddItem ("F226")
    ComboBox1.AddItem ("F227")
    ComboBox1.AddItem ("M001")
    ComboBox1.AddItem ("M002")
    ComboBox1.AddItem ("M003")
    ComboBox1.AddItem ("M004")
    ComboBox1.AddItem ("M005")
    ComboBox1.AddItem ("M006")
    ComboBox1.AddItem ("M007")
    ComboBox1.AddItem ("M008")
    ComboBox1.AddItem ("M009")
    ComboBox1.AddItem ("M010")
    ComboBox1.AddItem ("M011")
    ComboBox1.AddItem ("M012")
    ComboBox1.AddItem ("M013")
    ComboBox1.AddItem ("M014")
    ComboBox1.AddItem ("M015")
    ComboBox1.AddItem ("M016")
    ComboBox1.AddItem ("M017")
    ComboBox1.AddItem ("M018")
    ComboBox1.AddItem ("M019")
    ComboBox1.AddItem ("M021")
    ComboBox1.AddItem ("M022")
    ComboBox1.AddItem ("M023")
    ComboBox1.AddItem ("M024")
    ComboBox1.AddItem ("M025")
    ComboBox1.AddItem ("M026")
     
     
    ComboBox1.Value = ComboBox1.List(0)
    End Sub
     
    Private Sub ComboBox1_Change()
     
     
    Dim nbAsi As Integer
    nbAsi = WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:C129"), 3, 0)
     
    End Sub
    Private Sub ComboBox2_Change()
     
    For i = 1 To nbAsi
     
        ComboBox2.AddItem "BUS.A" & Format(i, "00")
    Next i
    ComboBox2.Value = ComboBox2.List(0)
     
     
    End Sub
     
    Private Sub CommandButton1_Click()
     
     Dim wbOpen As Workbook
     
    Set wbOpen = Workbooks.Open(Filename:=WorksheetFunction.VLookup(ComboBox1.Value, Range("A1:B129"), 2, 0), UpdateLinks:=False)
     
     
    wbOpen.Sheets(ComboBox2.Value).Select
     
     
    End Sub

    Est-ce que quelqu'un y voit une erreur ??

    Merci

  2. #2
    Expert confirmé Avatar de illight
    Homme Profil pro
    Analyste décisionnel
    Inscrit en
    Septembre 2005
    Messages
    2 344
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Analyste décisionnel
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2005
    Messages : 2 344
    Par défaut
    Heu c'est quoi le problème ? tu as une erreur ? ou ça ?
    1. Avant de poster, et http://www.developpez.com/sources/
    2. Lors du post, n'oubliez pas, si besoin les balises CODE => voir ici pour l'utilisation
    3. N'oubliez pas le
    4. N'oubliez pas le si la réponse vous a été utile !

  3. #3
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut



    Bonjour,

    conformément aux règles du forum, modifier le titre en rapport avec la problématique :
    cela devrait motiver plus d'éventuels intervenants à ouvrir cette discussion !
    (Au passage cela corrigera la faute car Bonjour avec un s ! )


    _____________________________________________________________________________________________________
    Je suis Charlie - Je suis Bardo

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Avril 2015
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Aisne (Picardie)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2015
    Messages : 5
    Par défaut Bah la est le problème !!
    j'en vois pas non plus et pourtant sa ne fonctionne pas , je joint mon classeur excel des fois que :

Discussions similaires

  1. Petit problème de décimales !
    Par ridan dans le forum Langage SQL
    Réponses: 5
    Dernier message: 11/09/2004, 21h24
  2. Réponses: 17
    Dernier message: 13/07/2004, 20h37
  3. petit problème premier plan, arrière plan
    Par gros bob dans le forum OpenGL
    Réponses: 4
    Dernier message: 19/04/2004, 12h00
  4. [MFC] problème d'éxécution
    Par ben_iap dans le forum MFC
    Réponses: 2
    Dernier message: 15/03/2004, 10h31
  5. [jointure] Petit problème sur le type de jointure...
    Par SteelBox dans le forum Langage SQL
    Réponses: 13
    Dernier message: 13/02/2004, 18h55

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