Probleme VBA

Nono.40 -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 29 déc. 2015 à 09:02

Bonjour,

J'ai un petit souci, j'essaye de céeer un formulaire vba mais il m'indique (erreur d'éxécution '424' objet requis) voici ceux que j'ai inscrit:

Private Sub UserForm_Initialize()
    Dim i As Integer
    i = 1
    Do While Worksheets("Lieux").Cells(i, 1) <> ""
        Lieux.AddItem Worksheets("Lieux").Cells(i, 1)
        i = i + 1
    Loop
End Sub

merci de votre aide.

EDIT : Ajout des balises de code. (la coloration syntaxique )
Explication disponible ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser à l'avenir.

A voir également:

Probleme VBA
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Bonjour,

C'est quoi Lieux ???

Worksheets("Lieux").Cells(i, 1) est un objet Range !

Nono.40

Lieux est un endroit de l'usine, il y a 20 lieux différents

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

C'est quoi Lieux (vis à vis du VBA !) ?

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour,

Ce qu'essaie de te dire Patrice c'est que dans ton code tu as deux Lieux :

Worksheets("Lieux")
==> Il s'agit ici d'un objet feuille. Si tu n'as pas de feuille nommée Lieux dans ton classeur, ou si elle n'est pas accessible, ça va planter.

Lieux.AddItem
==> Sous-entend que, dans ton UserForm, tu as placé une liste (ComboBox ou ListBox) nommée Lieux. Si ce n'est pas le cas, ça va planter...

Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires