Probleme VBA Fermé

Question

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.
Configuration: Windows XP / Chrome 47.0.2526.106


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.

Patrice33740 · Answer

Bonjour,

C'est quoi Lieux ???

Worksheets("Lieux").Cells(i, 1) est un objet Range !

pijaku · Answer

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

Probleme VBA

2 réponses

Discussions similaires