Erreur '404' objet requis

Résolu/Fermé

Zanlepan - 9 sept. 2015 à 21:24
Zanlepan - 10 sept. 2015 à 15:05

Bonjour,

Je suis débutante en VBA et j'ai un problème. J'ai entré des données dans une colonne d'une feuille Excel et je veux placer celles-ci dans un menu déroulant (ComboBox). Par contre, je veux que si une valeur s'ajoute à la colonne, qu'elle soit aussi inclue dans le menu déroulant. Quand je fait runner mon code, un message d'erreur affiche : Erreur '404' objet requis
Voici mon code
J'espère que vous pourrez m'aider

Private Sub ComboBox1_Change()

Dim lastli As Variant
lastli = Range("A1").End(xlDown).Row 'Vecteur de taille égale au nombre d'entrées 'dans la colone A

Dim i As Integer
Dim ComboBox1 As Object

Dim liste()
ReDim liste(lastli)

For i = 1 To lastli
liste(i) = Range("A" & i)
Next

Feuil1.ComboBox1.List() = lastli.Value

End Sub

A voir également:

Error 404 excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 10/09/2015 à 06:34

Bonjour

tu n'as pas besoin de déclarer combobox

si tu déclares "i" comme integer, pourquoi déclarer lastli comme variant puisue tu boucles for i=1 to lasli

Il faut vider le combo quand tu apportes un changement (modif, suppression, adjonction

Option Explicit
Dim Flag As Boolean
'------
Sub remplircombo()
Dim Lig As Integer, Lastli As Integer
    With Feuil1
        Flag = True
        .ComboBox1.Clear
        Flag = False
        Lastli = .Range("A1").End(xlDown).Row
        For Lig = 1 To Lastli
           .ComboBox1.AddItem .Range("A" & Lig)
        Next
        .ComboBox1.ListIndex = 0
    End With
End Sub

'-----------------------------------------
Private Sub ComboBox1_Change()
If Flag = False Then
   MsgBox Feuil1.ComboBox1.Value
End If
End Sub

Si dans colonne A les données sont saisies manuelement, on peut déclencher instantanément la mise à jour combo.
Si ca t'intéresse fais signe

Michel

Zanlepan
10 sept. 2015 à 15:05

1000 merci ça marcheeeee !!!!!

Discussions similaires

Ordi lenovo fan error

problème carte mère CMOS checksum error...

Discussions similaires

Newsletters