Probleme VBA

Fermé

Nono.40 - Modifié par jordane45 le 28/12/2015 à 14:48
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 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
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
28 déc. 2015 à 15:00

Bonjour,

C'est quoi Lieux ???

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

Nono.40
28 déc. 2015 à 15:56

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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
28 déc. 2015 à 16:36

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

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 29/12/2015 à 09:02

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

VBA : Range avec références variables..

VBA erreur 1004

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

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

Discussions similaires

Newsletters