Liste déroulante - ajouter éléments

Bonjour,

J’essaie de mettre au point un système permettant à un utilisateur de trouver facilement et par VBA les erreurs présentes dans un classeur. Dans un tableau, j’aimerais afficher le nombre d’erreurs trouvées et dans une liste déroulante, afficher l’adresse de la cellule contenant l’erreur et lorsque l’utilisateur cliquerait dessus, cela pointerait sur la cellule en question.

J’arrive à recherche dans le classeur le nombre d’erreurs et à l’afficher, mais je n’arrive pas à ajouter les adresses des cellules dans la liste déroulante… Pourriez-vous m’aider, s’il vous plait ?

Public Sub RechercherNA()

    Dim adresse As Object
    Dim colonne As Integer
    Dim feuille As Integer
    Dim ligne As Long
    Dim nombre As Integer

    nombre = 0

    For feuille = 1 To Sheets.Count
        With Sheets(feuille)
            ligne = 1: colonne = 1
            Do
                Set adresse = .Cells.Find(What:="#N/A", after:=.Cells(ligne, colonne), _
                    LookIn:=xlValues, LookAt:=xlPart, _
                    SearchOrder:=xlByColumns, _
                    SearchDirection:=xlNext, MatchCase:=False)
                If adresse Is Nothing Then Exit Do
                If adresse.Column <= colonne And adresse.Row <= ligne Then Exit Do
                colonne = adresse.Column
                ligne = adresse.Row
                nombre = nombre + 1
            Loop
        End With
    Next feuille
    Range("D5").Value = nombre - 1

End Sub

J’ai déjà essayé d’ajouter les références dans la liste avec

ComboBox2.AddItem adresse

Mais le message d’erreur 424 « Objet requis » apparaît.

Cordialement,

Bibou

Bonjour

Un essai à tester, si j'ai bien compris.

Te convient-il ?

Bye !

C'est de toute beauté !

Merci beaucoup, je vais moduler à mon souhait mais c'est ce que je voulais.

Bonne continuation !