Erreur '404' objet requis

Résolu

Zanlepan -
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
Word et excel gratuit - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide
Excel moyenne - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

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

1000 merci ça marcheeeee !!!!!

Discussions similaires

Iptv smarters pro Network error occured! Please try again

Ordi lenovo fan error

Votre réponse

Discussions similaires