Faire fonctionner mon code développeur

Bonjour, je recherche à faire une liste déroulante intuitive comme dans le fichier "liste déroulante intuitive" donc j'ai copié du fichier Excel "Liste déroulante Intuitive" section développeur; code; Visual Basic et coller dans le fichier Excel "classeur" section développeur; code; Visual Basic, j'ai modifié ce qui pour moi devait être modifié mais quand je clique dans la colonne pour recherche la ville il y a un message d’erreur qui s'affiche "Erreur de compilation: Type défini par l'utilisateur non défini" et je voudrais comprendre mon erreur. merci

18classeur1.xlsm (25.68 Ko)

Bonjour et bienvenu(e)

Tu as oublié de placer la ComboBox

Onglet développeur, mode création, insérer, et dans la liste choisis dans la partie "Contrôles ActiveX" la zone de liste déroulante (contrôle activex)

Ensuite sur la page Excel tu dessines ton contrôles que tu places dans la cellule C3

Fait dans le fichier

Je vous remercie de l'aide et de la rapidité Banzaï64

quelqu'un saurais m'expliquer pourquoi dans cet exemple cela ne va pas ?

7gestion.xlsm (73.67 Ko)

Bonjour

Tu as des cellules fusionnées : pas glop avec VBA

Modifie la macro actuelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([E7:Q9], Target) Is Nothing Then              'And Target.Count = 1 Then
    a = Application.Transpose(Sheets("Liste des Clients").Range("Facture_Nom_L").Value)
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target.Cells(1, 1)
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub

Je vous re-remercie de l'aide et de la rapidité Banzaï64

Rechercher des sujets similaires à "fonctionner mon code developpeur"