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 :

Modifier une combobox


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut Modifier une combobox
    Bonjour

    Comment je peut faire pour avoir un code un peut pluss esthétique je voulais savoir si on pouvait le raccourcir.. oui je suis sur que l'on peux ?

    Mon code:


    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
    Private Sub ComboBox1_Change()
    TBx_1.Value = ComboBox1.Column(1)
    TBx_2.Value = ComboBox1.Column(2)
    TBx_3.Value = ComboBox1.Column(3)
    TBx_4.Value = ComboBox1.Column(4)
    TBx_5.Value = ComboBox1.Column(5)
    TBx_6.Value = ComboBox1.Column(6)
    TBx_7.Value = ComboBox1.Column(7)
    TBx_8.Value = ComboBox1.Column(8)
    TBx_9.Value = ComboBox1.Column(9)
    TBx_10.Value = ComboBox1.Column(10)
    TBx_11.Value = ComboBox1.Column(11)
    TBx_12.Value = ComboBox1.Column(12)
    TBx_13.Value = ComboBox1.Column(13)
    TBx_14.Value = ComboBox1.Column(14)
    TBx_15.Value = ComboBox1.Column(15)
    TBx_16.Value = ComboBox1.Column(16)
    TBx_17.Value = ComboBox1.Column(17)
    TBx_18.Value = ComboBox1.Column(18)
    TBx_19.Value = ComboBox1.Column(19)
    TBx_20.Value = ComboBox1.Column(20)
     
    End Sub
    Merci d'avance

    Max

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    bonsoir
    essayer avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub ComboBox1_Change()
    for i = 1 to 20
    TBx_(i).Value = ComboBox1.Column(i)
    next i
     
    End Sub

  3. #3
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut
    Bonjour Bennasr

    Je te remercie mais j'ai message d'erreur :
    Erreur de compilation Sub ou Function non définie
    Max

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    A adapter à ta situation
    Voir cette discussion Boucle sur textbox dans userform
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre Expert Avatar de Zekraoui_Jakani
    Homme Profil pro
    Inscrit en
    Novembre 2013
    Messages
    1 671
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 671
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub ComboBox1_Change()
     
    'je suppose que "TBx_" est l'adresse d'une cellule et qu'il existe une zone nommée TBx_i
    'sinon il faudra définir ce que représente TBx: cellue, zone texte, liste, combo, ...
    For i = 1 To 20
        ActiveSheet.Range("TBx_" & i) = ComboBox1.Column(i)
    Next i
     
    End Sub

  6. #6
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut
    Bonjour à tous

    Non j'ai toujours le même message d'erreur

    Mon code au complet:
    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
    Private Sub UserForm_Initialize()
    For i = 1 To 4
        Me.Controls("Label" & i).Visible = False
    Next i
    For i = 1 To 20
        Me.Controls("TBx_" & i).Visible = False
    Next i
    Me.Width = 372
    Me.Height = 83
    End Sub
     
    Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
        ComboBox1.List = Feuil2.Range("B9:O" & Feuil2.Range("B" & Rows.Count).End(xlUp).Row).Value
    End If
    For i = 1 To 61
        Select Case i
            Case 1, 4, 7, 10, 13, 16, 20, 23, 26, 29, 32, 35, 38, 41 'Label True
                Me.Controls("Label" & i).Visible = True
            Case 2, 3, 5, 6, 7, 8, 11, 12, 14, 15, 17, 18, 19, 21, 22, 24, 25, 27, 28, 30, 31, 33, 34, 36, 37, 39, 40, 52, 55, 58, 61 'Label False
                Me.Controls("Label" & i).Visible = False
            Case 42 To 49
                Me.Controls("Label" & i).Visible = False
        End Select
    Next i
    For i = 1 To 20
        Select Case i
            Case 1 To 13
                Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
                Me.Controls("Tbx_" & i).Value = ""
            Case 14 To 20
                Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
                If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
        End Select
    Next i
    ComboBox1.Value = ""
    Me.Width = 372
    Me.Height = 390
     
    End Sub
     
    Private Sub OptionButton2_Click()
    If OptionButton2 = True Then
        ComboBox1.List = Feuil2.Range("P9:AG" & Feuil2.Range("P" & Rows.Count).End(xlUp).Row).Value
    End If
    For i = 1 To 61
        Select Case i
            Case 2, 5, 8, 11, 14, 17, 21, 24, 27, 30, 33, 36, 39, 42, 44, 45, 47, 48 'Label True
                Me.Controls("Label" & i).Visible = True
            Case 1, 3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 46, 47, 49, 52, 55, 58, 61 'Label False
                Me.Controls("Label" & i).Visible = False
            Case 42 To 49
                Me.Controls("Label" & i).Visible = False
        End Select
    Next i
    For i = 1 To 20
        Select Case i
            Case 1 To 17
                Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
                Me.Controls("Tbx_" & i).Value = ""
            Case 18 To 20
                Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
                If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
        End Select
    Next i
    ComboBox1.Value = ""
    Me.Width = 372
    Me.Height = 446
     
    End Sub
     
    Private Sub OptionButton3_Click()
    If OptionButton3 = True Then
        ComboBox1.List = Feuil2.Range("AH9:BB" & Feuil2.Range("AH" & Rows.Count).End(xlUp).Row).Value
    End If
    For i = 1 To 61
        Select Case i
            Case 3, 6, 9, 12, 15, 18, 19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 49, 52, 55, 58, 61 'Label True
                Me.Controls("Label" & i).Visible = True
            Case 1, 2, 4, 5, 7, 8, 10, 11, 13, 14, 16, 17, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 44, 45, 47, 48 'Label False
                Me.Controls("Label" & i).Visible = False
            Case 42 To 49
                Me.Controls("Label" & i).Visible = False
        End Select
    Next i
    For i = 1 To 20
        Select Case i
            Case 1 To 20
                Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
                Me.Controls("Tbx_" & i).Value = ""
            Case 18 To 20
                Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
                If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
        End Select
    Next i
    ComboBox1.Value = ""
    Me.Width = 372
    Me.Height = 510
     
    End Sub
     
    Private Sub CommandButton1_Click()
       Unload Me
    End Sub
     
    'Private Sub ComboBox1_Change()
    'For i = 1 To 20
    'Me.Controls("TBx_" & i).Value = ComboBox1.Column(i)
    'Next i
     
    'End Sub
    Je vous remercie

    Max

  7. #7
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    D'après ta demande initiale
    Exemple avec trois TextBox nommés respectivement TextBox1, TextBox2 et TextBox3 et un contrôle ListBox nommé lstVille
    Sans boucle
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub lstVille_Click()
      With Me
      .TextBox1.Value = .lstVille.Column(1)
      .TextBox2.Value = .lstVille.Column(2)
      .TextBox3.Value = .lstVille.Column(3)
      End With
    End Sub
    Avec boucle
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub lstVille_Click()
      Dim elem As Byte
      For elem = 1 To 3
       With Me
       .Controls("TextBox" & elem).Value = .lstVille.Column(elem)
       End With
      Next
    End Sub
    Pour l'affichage de données après sélection dans un contrôle ListBox ou ComboBox, il est préférable d'utiliser la procédure événementielle Click au lieu de Change

    Le code que tu as donné ensuite n'a plus rien avec ta demande initiale et sans connaître le n° et le message d'erreur reçu ainsi que le n° de la ligne où a lieu l'erreur il est difficle d'apporter une aide quelconque.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  8. #8
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut
    Bonsoir Philippe

    Non ça ne fonctionne pas j'ai fait ceci:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub ComboBox1_Click()
      Dim elem As Byte
      For elem = 1 To 20
       With Me
       .Controls("TBx" & elem).Value = .ComboBox1.Column(elem)
       End With
      Next
    End Sub
    message spécifique introuvable

    Merci

  9. #9
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    J'effectue toujours un test avant de publier et je peux t'assurer que cela fonctionne chez moi.
    Es-tu certain que le code que tu as publié fonctionne ?
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  10. #10
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut
    Re,

    Voila mon complet qui fonctionne je viens encore de le faire fonctionner et je peux même si tu le désires envoyer le dossier

    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
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    267
    268
    269
    270
    271
    272
    273
    274
    275
    276
    277
    278
    279
    280
    281
    282
    283
    284
    285
    286
    287
    288
    289
    290
    291
    292
    293
    294
    295
    296
    297
    298
    299
    300
    301
    302
    303
    304
    305
    306
    307
    308
    309
    310
    311
    312
    313
    314
    315
    316
    317
    318
    319
    320
    321
    322
    323
    324
    325
    326
    327
    328
    329
    330
    331
    332
    333
    334
    335
    336
    337
    338
    Private Sub UserForm_Initialize()
    For i = 1 To 4
        Me.Controls("Label" & i).Visible = False
    Next i
    For i = 1 To 20
        Me.Controls("TBx_" & i).Visible = False
    Next i
    Me.Width = 425
    Me.Height = 83
     
    End Sub
     
    Private Sub OptionButton1_Click()
        If OptionButton1 = True Then
     
            ComboBox1.List = Feuil1.Range("B9:O" & Feuil1.Range("B" & Rows.Count).End(xlUp).Row).Value
        End If
    Label1.Visible = True
    Label2.Visible = False
    Label3.Visible = False
    Label4.Visible = True
    Label5.Visible = False
    Label6.Visible = False
    Label7.Visible = True
    Label8.Visible = False
    Label9.Visible = False
    Label10.Visible = True
    Label11.Visible = False
    Label12.Visible = False
    Label13.Visible = True
    Label14.Visible = False
    Label15.Visible = False
    Label16.Visible = True
    Label17.Visible = False
    Label18.Visible = False
    Label19.Visible = False
    Label20.Visible = True
    Label21.Visible = False
    Label22.Visible = False
    Label23.Visible = True
    Label24.Visible = False
    Label25.Visible = False
    Label26.Visible = True
    Label27.Visible = False
    Label28.Visible = False
    Label29.Visible = True
    Label30.Visible = False
    Label31.Visible = False
    Label32.Visible = True
    Label33.Visible = False
    Label34.Visible = False
    Label35.Visible = True
    Label36.Visible = False
    Label37.Visible = False
    Label38.Visible = True
    Label39.Visible = False
    Label40.Visible = False
    Label41.Visible = True
    Label42.Visible = False
    Label43.Visible = False
    Label44.Visible = False
    Label45.Visible = False
    Label46.Visible = False
    Label47.Visible = False
    Label48.Visible = False
    Label49.Visible = False
    Label52.Visible = False
    Label55.Visible = False
    Label58.Visible = False
    Label61.Visible = False
     
    TBx_1.Visible = True
    TBx_2.Visible = True
    TBx_3.Visible = True
    TBx_4.Visible = True
    TBx_5.Visible = True
    TBx_6.Visible = True
    TBx_7.Visible = True
    TBx_8.Visible = True
    TBx_9.Visible = True
    TBx_10.Visible = True
    TBx_11.Visible = True
    TBx_12.Visible = True
    TBx_13.Visible = True
    TBx_14.Visible = False
    TBx_15.Visible = False
    TBx_16.Visible = False
    TBx_17.Visible = False
    TBx_18.Visible = False
    TBx_19.Visible = False
    TBx_20.Visible = False
     
    TBx_1.Value = ""
    TBx_2.Value = ""
    TBx_3.Value = ""
    TBx_4.Value = ""
    TBx_5.Value = ""
    TBx_6.Value = ""
    TBx_7.Value = ""
    TBx_8.Value = ""
    TBx_9.Value = ""
    TBx_10.Value = ""
    TBx_11.Value = ""
    TBx_12.Value = ""
    TBx_13.Value = ""
    'TBx_14.Value = ""
    TBx_15.Value = ""
    TBx_16.Value = ""
    TBx_17.Value = ""
    TBx_18.Value = ""
    TBx_19.Value = ""
    TBx_20.Value = ""
     
    ComboBox1.Value = ""
     
    Me.Width = 425
    Me.Height = 390
    End Sub
     
    Private Sub OptionButton2_Click()
     
        If OptionButton2 = True Then
     
            ComboBox1.List = Feuil1.Range("P9:AG" & Feuil1.Range("P" & Rows.Count).End(xlUp).Row).Value
        End If
    Label1.Visible = False
    Label2.Visible = True
    Label3.Visible = False
    Label4.Visible = False
    Label5.Visible = True
    Label6.Visible = False
    Label7.Visible = False
    Label8.Visible = True
    Label9.Visible = False
    Label10.Visible = False
    Label11.Visible = True
    Label12.Visible = False
    Label13.Visible = False
    Label14.Visible = True
    Label15.Visible = False
    Label16.Visible = False
    Label17.Visible = True
    Label18.Visible = False
    Label19.Visible = False
    Label20.Visible = False
    Label21.Visible = True
    Label22.Visible = False
    Label23.Visible = False
    Label24.Visible = True
    Label25.Visible = False
    Label26.Visible = True
    Label27.Visible = True
    Label28.Visible = False
    Label29.Visible = False
    Label30.Visible = True
    Label31.Visible = False
    Label32.Visible = False
    Label33.Visible = True
    Label34.Visible = False
    Label35.Visible = False
    Label36.Visible = True
    Label37.Visible = False
    Label38.Visible = False
    Label39.Visible = True
    Label40.Visible = False
    Label41.Visible = False
    Label42.Visible = True
    Label43.Visible = False
    Label44.Visible = True
    Label45.Visible = True
    Label46.Visible = False
    Label47.Visible = True
    Label48.Visible = True
    Label49.Visible = False
    Label52.Visible = False
    Label55.Visible = False
    Label58.Visible = False
    Label61.Visible = False
     
    TBx_1.Visible = True
    TBx_2.Visible = True
    TBx_3.Visible = True
    TBx_4.Visible = True
    TBx_5.Visible = True
    TBx_6.Visible = True
    TBx_7.Visible = True
    TBx_8.Visible = True
    TBx_9.Visible = True
    TBx_10.Visible = True
    TBx_11.Visible = True
    TBx_12.Visible = True
    TBx_13.Visible = True
    TBx_14.Visible = True
    TBx_15.Visible = True
    TBx_16.Visible = True
    TBx_17.Visible = True
    TBx_18.Visible = False
    TBx_19.Visible = False
    TBx_20.Visible = False
     
    TBx_1.Value = ""
    TBx_2.Value = ""
    TBx_3.Value = ""
    TBx_4.Value = ""
    TBx_5.Value = ""
    TBx_6.Value = ""
    TBx_7.Value = ""
    TBx_8.Value = ""
    TBx_9.Value = ""
    TBx_10.Value = ""
    TBx_11.Value = ""
    TBx_12.Value = ""
    TBx_13.Value = ""
    ComboBox1.Value = ""
     
    Me.Width = 425
    Me.Height = 446
    End Sub
     
    Private Sub OptionButton3_Click()
     
     
        If OptionButton3 = True Then
     
            ComboBox1.List = Feuil1.Range("AH9:BB" & Feuil1.Range("AH" & Rows.Count).End(xlUp).Row).Value
        End If
    Label1.Visible = False
    Label2.Visible = False
    Label3.Visible = True
    Label4.Visible = False
    Label5.Visible = False
    Label6.Visible = True
    Label7.Visible = False
    Label8.Visible = False
    Label9.Visible = True
    Label10.Visible = False
    Label11.Visible = False
    Label12.Visible = True
    Label13.Visible = False
    Label14.Visible = False
    Label15.Visible = True
    Label16.Visible = False
    Label17.Visible = False
    Label18.Visible = True
    Label19.Visible = True
    Label20.Visible = False
    Label21.Visible = False
    Label22.Visible = True
    Label23.Visible = False
    Label24.Visible = False
    Label25.Visible = True
    Label26.Visible = False
    Label27.Visible = False
    Label28.Visible = True
    Label29.Visible = False
    Label30.Visible = False
    Label31.Visible = True
    Label32.Visible = False
    Label33.Visible = False
    Label34.Visible = True
    Label35.Visible = False
    Label36.Visible = False
    Label37.Visible = True
    Label38.Visible = False
    Label39.Visible = False
    Label40.Visible = True
    Label41.Visible = False
    Label42.Visible = False
    Label43.Visible = True
    Label44.Visible = False
    Label45.Visible = False
    Label46.Visible = True
    Label47.Visible = False
    Label48.Visible = False
    Label49.Visible = True
    Label52.Visible = True
    Label55.Visible = True
    Label58.Visible = True
    Label61.Visible = True
     
    TBx_1.Visible = True
    TBx_2.Visible = True
    TBx_3.Visible = True
    TBx_4.Visible = True
    TBx_5.Visible = True
    TBx_6.Visible = True
    TBx_7.Visible = True
    TBx_8.Visible = True
    TBx_9.Visible = True
    TBx_10.Visible = True
    TBx_11.Visible = True
    TBx_12.Visible = True
    TBx_13.Visible = True
    TBx_14.Visible = True
    TBx_15.Visible = True
    TBx_16.Visible = True
    TBx_17.Visible = True
    TBx_18.Visible = True
    TBx_19.Visible = True
    TBx_20.Visible = True
     
    TBx_1.Value = ""
    TBx_2.Value = ""
    TBx_3.Value = ""
    TBx_4.Value = ""
    TBx_5.Value = ""
    TBx_6.Value = ""
    TBx_7.Value = ""
    TBx_8.Value = ""
    TBx_9.Value = ""
    TBx_10.Value = ""
    TBx_11.Value = ""
    TBx_12.Value = ""
    TBx_13.Value = ""
    TBx_14.Value = ""
    TBx_15.Value = ""
    TBx_16.Value = ""
    TBx_17.Value = ""
    TBx_18.Value = ""
     
    ComboBox1.Value = ""
    Me.Width = 425
    Me.Height = 510
    End Sub
     
     
    Private Sub ComboBox1_Click()
      Dim elem As Byte
      For elem = 1 To 20
      With Me
       Controls("TBx" & elem).Value = .ComboBox1.Column(elem)
      End With
      Next
    End Sub
     
    Private Sub CommandButton1_Click()
       Unload Me
    End Sub
    Merci

    Max

  11. #11
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Il te manque l'Underscore
    Comme ceci cela ira certainement mieux
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Controls("TBx_" & elem).Value = .ComboBox1.Column(elem)
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  12. #12
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut
    Re,

    Maintenant que j'ai mis l'Underscore il me dit
    impossible de lire la propriété Colum Argument non valide

  13. #13
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Bon, j'ai renommé mes TextBox comme toi. Soit TBx_1, TBX_2 et TBx_3 et j'ai également utilisé un contrôle ComboBox nommé ComboBox1 et je n'ai aucun problème
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub ComboBox1_Click()
     Dim elem As Byte
     For elem = 1 To 3
       With Me
       .Controls("TBx_" & elem).Value = .ComboBox1.Column(elem)
       End With
     Next
    End Sub
    Il doit y avoir autre chose qui coince mais moi j'arrête ici.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  14. #14
    Membre éclairé
    Inscrit en
    Septembre 2008
    Messages
    629
    Détails du profil
    Informations forums :
    Inscription : Septembre 2008
    Messages : 629
    Par défaut
    Re,

    Alors chez moi sa fonctionne jusqu'a au-delà de 13 sa plante....

  15. #15
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Alors chez moi sa fonctionne jusqu'a For elem = 1 To 13 au-delà de 13 sa plante....
    Et bien cela me semble clair, soit il n'y a pas de TextBox nommé TBx_14 et sans doute suivant, soit tout simplement il n'y as pas plus de 13 colonnes affichées dans le ComboBoxe. C'est la première information intéressante qui nous permet d'isoler un problème depuis que tu signales que cela ne fonctionne pas.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  16. #16
    Membre très actif
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    364
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 364
    Par défaut
    Salut ...

    À la lecture de ton code complet, le contexte étant : 1 liste déroulante (Combobox) de 20 colonnes, nommée Cb, 20 contrôles 'TextBox' nommés respectivement TBx1, TBx2 …TBx20, et quelques autres objets,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Cb_Click()
        Dim n As Byte
        For n = 1 To 20: Me("TBx" & n) = Cb.Column(n - 1): Next
    End Sub

  17. #17
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    La toute première question ****** que je me pose est la suivante :
    Comment peut-on avoir défini un nombre de colonnes variable (dépendant d'un choix par bouton d'option) et installé une boucle considérant un nombre fixe (20) de colonnes alors qu'elles sont dans certains cas de choix en nombre inférieur ?
    ****** : et ce n'est pas la seule, ni la plus importante des questions, les autres étant relatives à la conception elle-même (mais c'est un autre sujet).

  18. #18
    Membre très actif
    Profil pro
    Inscrit en
    Mai 2008
    Messages
    364
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2008
    Messages : 364
    Par défaut
    Re ...

    Salut unparia, pour ma part, à partir du message #1, j’ai fait une proposition à adapter.

    Avec l’exemple du message #10*, le nombre de colonnes de la liste déroulante varie en fonction des options (O1, O2 et O3) de la plage concernée ; l’injection des donnés se fera donc à partir du nombre de colonnes de celle-ci.
    Les 3 plages étant nommées respectivement ç1, ç2 et ç3,
    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
    Private Sub O1_Click()
        If O1 Then Cb.ColumnCount=[ç1].Columns.Count : Cb.List = [ç1].Value
              ‘suite
    End if
    Private Sub O2_Click()
        If O2 Then Cb.ColumnCount=[ç2].Columns.Count: Cb.List = [ç2].Value 
              ‘suite
    End if
    Private Sub O3_Click()
        If O3 Then Cb.ColumnCount=[ç3].Columns.Count: Cb.List = [ç3].Value [ç3].Columns.Count
              ‘suite
    End if
    Private Sub Cb_Click()
         Dim i as Byte
        For i = 1 To CB.ColumnCount: Me("TBx" & 1) = Cb.Column(n - 1): Next
    End Sub
    *je n’avais pas, comme Toi, analysé toutes ces lignes avec de tels codes peu attirants

  19. #19
    Rédacteur/Modérateur


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 125
    Billets dans le blog
    131
    Par défaut
    Salut.

    Ne pas oublier que les index des colonnes d'un combobox commencent à 0. La boucle 1 to 20 impose donc qu'il y ait 21 colonnes. De plus, je ne suis pas fan d'un nommage pareil des contrôles ni de la correspondance obligée entre textbox et colonnes de combobox à coup d'index et je me pose la question de la pertinence et de la maintenance de ce code

    Je serais curieux de connaître les tenants et aboutissants de ce projet.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

Discussions similaires

  1. Réponses: 6
    Dernier message: 21/10/2009, 17h39
  2. Modifier une combobox depuis une autre form
    Par piero53 dans le forum Windows Forms
    Réponses: 6
    Dernier message: 31/03/2009, 21h51
  3. ajouter des valeurs dans une ComboBox (zone de liste modifiable)
    Par ghosty04 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/12/2008, 18h11
  4. Copier valeur choisie dans liste modifiable d'une combobox
    Par pinpin31 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 10/10/2008, 21h36
  5. Modifier une liste déroulante (Combobox)
    Par alex.a dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/06/2007, 12h22

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