Probleme VBA
Nono.40
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
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:
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.
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.
2 réponses
Bonjour,
C'est quoi Lieux ???
Worksheets("Lieux").Cells(i, 1) est un objet Range !
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
8930
Statut
Membre
1 781
C'est quoi Lieux (vis à vis du VBA !) ?
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
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
