Erreur '404' objet requis Résolu/Fermé

Question

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

michel_m · Answer

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 ExplicitDim 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 WithEnd Sub'-----------------------------------------Private Sub ComboBox1_Change()If Flag = False Then   MsgBox Feuil1.ComboBox1.ValueEnd IfEnd 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

Erreur '404' objet requis

1 réponse

Discussions similaires