Excel VBA - Contrôles ActiveX ComboBox avec utilisation de Named Range imbriqués

Anonyme
2018-02-11T17:15:26+00:00

L'utilisation de ces contrôles avec ajout de liste (fonction .Add) ne pose pas de problèmes mais dès lors que j'utilise des Named Ranges (par la fonction ListFillRange), la situation se complique. Déclaration d'objets exigée , la fonction set = etc : d'accord; mais cela ne fonctionne pas mieux. J'ai besoin d'aide. Merci.

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.7K Points de réputation
2018-02-25T17:42:18+00:00

A ma connaissance, il n'y a pas de communication officielle sur ce sujet. On sait que ça se produit, mais on ne sait pas pourquoi. D'où l'importance de sauvegarder régulièrement les classeurs.

Daniel

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires

49 réponses supplémentaires

Trier par : Les plus récents
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.7K Points de réputation
    2018-02-25T14:41:05+00:00

    Je me demande si ton classeur n'est pas corrompu. Le mieux serait de refaire le classeur.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2018-02-25T11:27:53+00:00

    Certes, je me suis trompé. C'est ComboBox2 (il n'y pas de commande ComboBox1, excepté le nom de la procédure de changement).

    J'ai revérifié les changements de valeurs dans les comboBox1, 2 et 3, en appelant tous les cas possibles; je n'ai pas recensé d'erreurs.

    À la fermeture du fichier Essai1802d, systématiquement, j'ai:

    Run-time error '1004':

    Method 'Shetets' of object_'Global' failed

    Arrêt sur la ligne:

    With Sheets("Feuil1").ComboBox2

    À l'ouverture, sauf si j'ai changé une valeur et sauvegardé précédemment:

    Run-time error '438':

    Object doesn't support this porperty or method

    Arrêt sur la même ligne:

    With Sheets("Feuil1").ComboBox2

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. DanielCo 107.7K Points de réputation
    2018-02-24T12:22:03+00:00

    Tout à l'heure, c'était "ComboBox1"... Je ne reproduis pas l'erreur. Si tu peux les reproduire, note le numéro et le libellé de l'erreur. Ajoute en tout cas les "." devant les "Cells" là où ils manquent.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. Anonyme
    2018-02-24T10:30:51+00:00

    Private Sub ComboBox1_Change()

    'On Error Resume Next

    With Sheets("Feuil1").ComboBox2

    Soit

    4è ligne

    Cette réponse a-t-elle été utile ?

    0 commentaires